diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index ae42eeb2..511872c3 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1090,21 +1090,21 @@ ((ATOM VL) (GO BADO))) G180 - (AND (NOT (PAIRP (SETQ V (CAR VL)))) + (AND (NOT (CONSP (SETQ V (CAR VL)))) (SETQ V (LIST V))) (AND (NOT (IDENTP (CAR V))) (GO BADO)) (PUSH (CAR V) VARS) - (PUSH (COND ((PAIRP (CDR V)) (CADR V))) INITS) - (AND (PAIRP (CDR V)) - (PAIRP (CDDR V)) + (PUSH (COND ((CONSP (CDR V)) (CADR V))) INITS) + (AND (CONSP (CDR V)) + (CONSP (CDDR V)) (SEQ (PUSH (CAR V) U-VARS) (PUSH (CADDR V) U-VALS))) - (AND (PAIRP (progn (POP VL) VL)) + (AND (CONSP (progn (POP VL) VL)) (GO G180)) TG5 (setq exitforms (POP L)) - (and (PAIRP EXITFORMS) + (and (CONSP EXITFORMS) (progn (setq endtest (POP EXITFORMS)) exitforms))))) |