aboutsummaryrefslogtreecommitdiff
path: root/src/interp/vmlisp.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/vmlisp.lisp')
-rw-r--r--src/interp/vmlisp.lisp7
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)))
)