From bd5f5b0df93361d31592738fb18d77a275f04bc9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 30 Apr 2011 14:27:31 +0000
Subject: more cleanup

---
 src/boot/strap/scanner.clisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/boot/strap/scanner.clisp')

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|))
-- 
cgit v1.2.3