diff options
author | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-02-10 21:06:02 +0000 |
commit | 81f1eb5784645fffc263bae02d4d12020c1e694c (patch) | |
tree | d0f93eba6aacab8bcb63d4793dcf1f56367579d2 /src/interp/vmlisp.lisp | |
parent | 23d51a95663fe0587a1252193f9a976495ddc146 (diff) | |
download | open-axiom-81f1eb5784645fffc263bae02d4d12020c1e694c.tar.gz |
* interp/vmlisp.lisp (VEC-SETELT): Remove.
* interp/scan.boot (scanInserts): Use vectorRef.
* interp/functor.boot (DescendCode): Don't check for SETELT or
QSETREFV forms.
* interp/nrunfast.boot (evalSlotDomain): Likewise.
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index b4cbf6d2..af7021cd 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -428,9 +428,6 @@ (defmacro times (&rest args) `(* ,@args)) -(defmacro vec-setelt (vec ind val) - `(setf (svref ,vec ,ind) ,val)) - (defmacro zero? (x) `(and (typep ,x 'fixnum) (zerop (the fixnum ,x)))) |