diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 14:27:31 +0000 |
| commit | bd5f5b0df93361d31592738fb18d77a275f04bc9 (patch) | |
| tree | e2b46b5d5ded0265990ef24f4bf2ddb9640e7fc4 /src/boot/strap/scanner.clisp | |
| parent | 6661a9aa8e79dc934bde807293857f2dfc0eca6f (diff) | |
| download | open-axiom-bd5f5b0df93361d31592738fb18d77a275f04bc9.tar.gz | |
more cleanup
Diffstat (limited to 'src/boot/strap/scanner.clisp')
| -rw-r--r-- | src/boot/strap/scanner.clisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/strap/scanner.clisp b/src/boot/strap/scanner.clisp index 1e5d418b..2a01edc0 100644 --- a/src/boot/strap/scanner.clisp +++ b/src/boot/strap/scanner.clisp @@ -52,7 +52,8 @@ (COND ((NULL |$n|) T) ((CHAR= (SCHAR |$ln| |$n|) |shoeTAB|) - (SETQ |a| (MAKE-FULL-CVEC (- 7 (REM |$n| 8)) " ")) + (SETQ |a| + (|makeString| (- 7 (REM |$n| 8)) (|char| '| |))) (SETF (ELT |$ln| |$n|) (|char| '| |)) (SETQ |$ln| (CONCAT |a| |$ln|)) (SETQ |s1| (CONS (CONS |$ln| (CDR |$f|)) |$r|)) |