diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-28 15:13:49 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-28 15:13:49 +0000 |
| commit | cf0e1760609b1b4772cbb8bc4f511a46a116501d (patch) | |
| tree | 03baee7d87c17ba5599d83f27032c2283dad2636 /src/boot/strap/tokens.clisp | |
| parent | 460eba8d1a5ea8feef28282e70ba2d22fa1fcdc6 (diff) | |
| download | open-axiom-cf0e1760609b1b4772cbb8bc4f511a46a116501d.tar.gz | |
cleanu up syntax in tokens.boot
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index d498edb7..5549b7eb 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -160,7 +160,7 @@ (COND ((OR (ATOM |bfVar#6|) (PROGN (SETQ |i| (CAR |bfVar#6|)) NIL)) (RETURN NIL)) - (T (SETF (GET |i| 'SHOEPRE) 'T))) + (T (SETF (GET |i| 'SHOEPRE) T))) (SETQ |bfVar#6| (CDR |bfVar#6|))))) (EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL) |