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 | |
| parent | accf24b495a8de5bac09572e588d9b696a130e1a (diff) | |
| download | open-axiom-94c6cd6e946964b3710dbe24dbca7c44a36beee0.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/strap')
| -rw-r--r-- | src/boot/strap/ast.clisp | 2 | ||||
| -rw-r--r-- | src/boot/strap/includer.clisp | 8 |
2 files changed, 4 insertions, 6 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|)) diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 669ca761..57079461 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -135,11 +135,9 @@ (DEFUN |bRgen1| (|s|) (PROG (|a|) (RETURN - (PROGN - (SETQ |a| (|shoeReadLine| |s|)) - (COND - ((|shoePLACEP| |a|) (LIST '|nullstream|)) - (T (CONS |a| (|bRgen| |s|)))))))) + (COND + ((SETQ |a| (|shoeReadLine| |s|)) (CONS |a| (|bRgen| |s|))) + (T (LIST '|nullstream|)))))) (DEFUN |bIgen| (|n|) (|bDelay| #'|bIgen1| (LIST |n|))) |