diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-07 02:07:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-07 02:07:20 +0000 |
| commit | 0f2dfec8f5bcec44fad342e8f060ed725ddeb889 (patch) | |
| tree | 1a0742bd1d50cbcf22bafe361a4ae3b90bde1756 /src/boot/strap/tokens.clisp | |
| parent | 89674096006b286c3c20e0969c493e7f42b56365 (diff) | |
| download | open-axiom-0f2dfec8f5bcec44fad342e8f060ed725ddeb889.tar.gz | |
cleanup
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index edc5b20a..c8c4afc3 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -60,7 +60,7 @@ (LET ((|bfVar#1| |shoeKeyWords|) (|st| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |st| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (|tableValue| |KeyTable| (CAR |st|)) @@ -120,7 +120,7 @@ (LET ((|bfVar#1| |l|) (|s| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |s| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (|shoeInsert| |s| |d|))) @@ -144,7 +144,7 @@ (LET ((|bfVar#1| |listing|) (|k| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) + ((OR (NOT (CONSP |bfVar#1|)) (PROGN (SETQ |k| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) ((|shoeStartsId| (ELT |k| 0)) NIL) @@ -157,7 +157,8 @@ (LET ((|bfVar#1| (LIST 'NOT 'LENGTH)) (|i| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (GET |i| 'SHOEPRE) T))) (SETQ |bfVar#1| (CDR |bfVar#1|)))) @@ -172,7 +173,8 @@ (|i| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (GET (CAR |i|) 'SHOEINF) (CADR |i|)))) (SETQ |bfVar#1| (CDR |bfVar#1|)))) @@ -189,7 +191,8 @@ (|i| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (GET (CAR |i|) 'SHOETHETA) (CDR |i|)))) (SETQ |bfVar#1| (CDR |bfVar#1|)))) @@ -268,7 +271,8 @@ (|i| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (GET (CAR |i|) 'SHOERENAME) (CDR |i|)))) (SETQ |bfVar#1| (CDR |bfVar#1|)))) @@ -296,7 +300,8 @@ (|i| NIL)) (LOOP (COND - ((OR (ATOM |bfVar#1|) (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) + ((OR (NOT (CONSP |bfVar#1|)) + (PROGN (SETQ |i| (CAR |bfVar#1|)) NIL)) (RETURN NIL)) (T (SETF (GET (CAR |i|) 'SHOESELFUNCTION) (CADR |i|)))) (SETQ |bfVar#1| (CDR |bfVar#1|)))) |