diff options
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r-- | src/interp/vmlisp.lisp | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 9c0de8f7..1ba8da59 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -222,9 +222,6 @@ #-:common-lisp (compile) (load ,filearg))) -(defmacro pairp (x) - `(consp ,x)) - (defmacro plus (&rest args) `(+ ,@ args)) @@ -467,7 +464,7 @@ (defun WRAP (LIST-OF-ITEMS WRAPPER) (prog nil - (COND ((OR (NOT (PAIRP LIST-OF-ITEMS)) (not WRAPPER)) + (COND ((OR (NOT (CONSP LIST-OF-ITEMS)) (not WRAPPER)) (RETURN LIST-OF-ITEMS)) ((NOT (consp WRAPPER)) (SETQ WRAPPER (LOTSOF WRAPPER)))) @@ -1363,7 +1360,7 @@ (DCQ (OP BV . BODY) NEW-DEFINITION) (OR (EQ OP 'LAMBDA) (EQ OP 'MLAMBDA))) (COND - ( (NOT (MEMQ CURRENT-BINDING (FLAT-BV-LIST BV))) + ( (NOT (|symbolMember?| CURRENT-BINDING (FLAT-BV-LIST BV))) (eval `(,OP ,BV ((LAMBDA (,CURRENT-BINDING) . ,BODY) ',OLD-DEF))) ) |