diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-12-19 16:04:55 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-12-19 16:04:55 +0000 |
| commit | 0baf7a71d80fc15fdab5caa551b7e00800dccbef (patch) | |
| tree | 859d6581ba133d0123a27d7e82f0c64b5aea46bc /src/interp/vmlisp.lisp | |
| parent | ba495f17f8e3a8b780f038fd6f2d5877ccc2476e (diff) | |
| download | open-axiom-0baf7a71d80fc15fdab5caa551b7e00800dccbef.tar.gz | |
* interp/vmlisp.lisp (VECP): Remove.
(REFVECP): Likewise.
(CVECP): Likewise.
(QMEMQ): Likewise.
* interp/bootlex.lisp (TRANSLABEL1): Adjust.
* interp/br-search.boot: Likewise.
* interp/br-util.boot: Likewise.
* interp/c-doc.boot: Likewise.
* interp/category.boot: Likewise.
* interp/database.boot: Likewise.
* interp/debug.lisp: Likewise.
* interp/format.boot: Likewise.
* interp/functor.boot: Likewise.
* interp/g-cndata.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/ggreater.lisp: Likewise.
* interp/guess.boot: Likewise.
* interp/i-coerfn.boot: Likewise.
* interp/i-map.boot: Likewise.
* interp/i-output.boot: Likewise.
* interp/i-resolv.boot: Likewise.
* interp/i-spec2.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/interop.boot: Likewise.
* interp/i-util.boot: Likewise.
* interp/union.lisp: Likewise.
* interp/trace.boot: Likewise.
* interp/pspad2.boot: Likewise.
* interp/pathname.boot: Likewise.
* interp/nrunopt.boot: Likewise.
* interp/nrunfast.boot: Likewise.
* interp/nruncomp.boot: Likewise.
* interp/newfort.boot: Likewise.
* interp/msgdb.boot: Likewise.
* interp/msg.boot: Likewise.
* interp/match.boot: Likewise.
* interp/word.boot: Likewise.
Diffstat (limited to 'src/interp/vmlisp.lisp')
| -rw-r--r-- | src/interp/vmlisp.lisp | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index e388367e..3729558f 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -93,9 +93,6 @@ (defmacro |copyList| (x) `(copy-list ,x)) -(defmacro cvecp (x) - `(stringp ,x)) - (defmacro dcq (&rest args) (cons 'setqp args)) @@ -330,10 +327,6 @@ (defmacro qlength (a) `(length ,a)) -; (defmacro qmemq (a b) -; `(member ,a ,b :test #'eq)) -(defmacro qmemq (a b) `(memq ,a ,b)) - (defmacro qrefelt (vec ind) `(svref ,vec ,ind)) @@ -423,8 +416,6 @@ (defmacro qvsize (x) `(the fixnum (length (the simple-vector ,x)))) -(defmacro refvecp (v) `(simple-vector-p ,v)) - (defmacro resetq (a b) `(prog1 ,a (setq ,a ,b))) @@ -476,8 +467,6 @@ (defmacro vec-setelt (vec ind val) `(setf (svref ,vec ,ind) ,val)) -(defmacro vecp (v) `(simple-vector-p ,v)) - (defmacro zero? (x) `(and (typep ,x 'fixnum) (zerop (the fixnum ,x)))) @@ -1514,7 +1503,7 @@ (COND ( (VARP BV-LIST) (LIST BV-LIST) ) - ( (REFVECP BV-LIST) + ( (simple-vector-p BV-LIST) (FLAT-BV-LIST (VEC2LIST (MAPELT #'FLAT-BV-LIST BV-LIST))) ) ( (NOT (consp BV-LIST)) NIL ) @@ -1522,7 +1511,7 @@ (FLAT-BV-LIST (QCDR BV-LIST)) ) ( (VARP TMP1) (CONS TMP1 (FLAT-BV-LIST (QCDR BV-LIST))) ) - ( (AND (NOT (consp TMP1)) (NOT (REFVECP TMP1))) + ( (AND (NOT (consp TMP1)) (NOT (simple-vector-p TMP1))) (FLAT-BV-LIST (QCDR BV-LIST)) ) ( 'T (NCONC (FLAT-BV-LIST TMP1) (FLAT-BV-LIST (QCDR BV-LIST))) ) )) )) |