diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-07 00:04:39 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-07 00:04:39 +0000 |
| commit | e869c4e050f29dffb51d26f53489422020f49e4f (patch) | |
| tree | 19fa59732d0162b8b22c8c472f34f807a3d55122 /src/boot/strap | |
| parent | 62fb1ed88e7c6a94e1ba833a2078cc162e1a44f9 (diff) | |
| download | open-axiom-e869c4e050f29dffb51d26f53489422020f49e4f.tar.gz | |
* boot/ast.boot: Translate assignment to head and tail of a list.
Remove explicit uses of RPLACA and RPLACD.
* boot/includer.boot: Likewise.
* boot/scanner.boot: Likewise.
* boot/translator.boot: Likewise.
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/ast.clisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 7f7e52ce..f9a2ecec 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -931,7 +931,7 @@ (COND ((NULL (CADDR |x|)) (LIST 'CONS (CADR |x|) |a|)) (T (SETQ |y| (|bfISReverse| (CADDR |x|) NIL)) - (RPLACA (CDDR |y|) (LIST 'CONS (CADR |x|) |a|)) |y|))) + (RPLACA (CDR (CDR |y|)) (LIST 'CONS (CADR |x|) |a|)) |y|))) (T (|bpSpecificErrorHere| "Error in bfISReverse") (|bpTrap|)))))) (DEFUN |bfIS1| (|lhs| |rhs|) @@ -1662,6 +1662,8 @@ (|y| (COND ((INTEGERP |y|) (LIST 'SETF (LIST 'ELT |var| |y|) |expr|)) + ((EQ |y| 'CAR) (LIST 'RPLACA |var| |expr|)) + ((EQ |y| 'CDR) (LIST 'RPLACD |var| |expr|)) (T (LIST 'SETF (LIST |y| |var|) |expr|)))) (T (LIST 'SETF (LIST 'ELT |var| |sel|) |expr|))))))) |