diff options
| author | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 12:07:51 -0800 |
|---|---|---|
| committer | Gabriel Dos Reis <gdr@axiomatics.org> | 2016-01-30 12:07:51 -0800 |
| commit | 0e067c51279d5e82a786ad78af04ada13bd33951 (patch) | |
| tree | 38e3b2f636bd1e4556a07bfd415c188669b7529a /src/boot/strap/utility.clisp | |
| parent | 8d6bf58510fb39efa6824cdc902a6527a90e702b (diff) | |
| download | open-axiom-0e067c51279d5e82a786ad78af04ada13bd33951.tar.gz | |
Do not rename mkpf.
Diffstat (limited to 'src/boot/strap/utility.clisp')
| -rw-r--r-- | src/boot/strap/utility.clisp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot/strap/utility.clisp b/src/boot/strap/utility.clisp index 784ec366..c998e665 100644 --- a/src/boot/strap/utility.clisp +++ b/src/boot/strap/utility.clisp @@ -19,7 +19,7 @@ |scalarMember?| |listMember?| |reverse| |reverse!| |lastNode| |append| |append!| |copyList| |substitute| |substitute!| |listMap| |listMap!| |butLast| |butLast!| - |lastItem| |setDifference| |setUnion| |setIntersection| + |last| |setDifference| |setUnion| |setIntersection| |symbolAssoc| |applySubst| |applySubst!| |applySubstNQ| |objectAssoc| |invertSubst| |substTarget| |substSource| |remove| |removeSymbol| |atomic?| |every?| |any?| |take| @@ -44,7 +44,7 @@ (FTYPE (FUNCTION ((|%List| |%Thing|)) (|%Maybe| (|%Node| |%Thing|))) |lastNode|)) -(DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|)) |%Thing|) |lastItem|)) +(DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|)) |%Thing|) |last|)) (DECLAIM (FTYPE (FUNCTION ((|%List| |%Thing|)) (|%List| |%Thing|)) |butLast|)) @@ -261,7 +261,7 @@ (T (SETQ |l| |l'|)))) |l|))) -(DEFUN |lastItem| (|l|) (CAR (|lastNode| |l|))) +(DEFUN |last| (|l|) (CAR (|lastNode| |l|))) (DEFUN |butLast| (|l|) (LET* (|xs| |LETTMP#1|) |