diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-05 01:06:03 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-05 01:06:03 +0000 |
| commit | 94c6cd6e946964b3710dbe24dbca7c44a36beee0 (patch) | |
| tree | 3f23e82135247dff27c3b6f1d56a9d587b7eacbd /src/boot/strap/ast.clisp | |
| parent | accf24b495a8de5bac09572e588d9b696a130e1a (diff) | |
| download | open-axiom-94c6cd6e946964b3710dbe24dbca7c44a36beee0.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/strap/ast.clisp')
| -rw-r--r-- | src/boot/strap/ast.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/ast.clisp b/src/boot/strap/ast.clisp index 36022667..90c9eab9 100644 --- a/src/boot/strap/ast.clisp +++ b/src/boot/strap/ast.clisp @@ -915,7 +915,7 @@ (COND ((EQ |var1| 'DOT) (CONS (LIST 'L%T |g| |rev|) |l2|)) ((PROGN - (SETQ |ISTMP#1| (|last| |l2|)) + (SETQ |ISTMP#1| (CAR (|lastNode| |l2|))) (AND (CONSP |ISTMP#1|) (EQ (CAR |ISTMP#1|) 'L%T) (PROGN (SETQ |ISTMP#2| (CDR |ISTMP#1|)) |