diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
| commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
| tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/sys-macros.lisp | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
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))))) |