diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
commit | 292bd212f1c30a51f0191128d5a9cd2691c5ccf9 (patch) | |
tree | b3df4b4c43f312e5f0ac52dde5de9b3791833714 /src/interp/vmlisp.lisp | |
parent | 1fd6a63bbce9234ba3b8efa12c9a91643f0a87a1 (diff) | |
download | open-axiom-292bd212f1c30a51f0191128d5a9cd2691c5ccf9.tar.gz |
* boot/tokens.boot: Remove redundant renaming of REM.
loopBody and loopExit are not selectors.
* interp/i-output.boot: Include sys-utility.
* interp/sys-utility.boot (last): New macro.
(loopBody): Likewise.
* interp/vmlisp.lisp (LASTNODE): Remove.
(LASTPAIR): Likewise.
(last): Do not define here.
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index e922e1de..e571a161 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -174,12 +174,6 @@ (defmacro lam (&rest body) (list 'quote (*lam (copy-tree body)))) -(defmacro lastnode (l) - `(last ,l)) - -(defmacro lastpair (l) - `(last ,l)) - (defmacro lessp (&rest args) `(< ,@args)) @@ -665,10 +659,6 @@ ((and (atom item) (not (arrayp item))) (member item sequence)) (T (member item sequence :test #'equalp)))) -; 14.2 Accessing - -(defun |last| (x) (car (lastpair x))) - ; 14.3 Searching (DEFUN |assoc| (X Y) |