diff options
Diffstat (limited to 'src/boot/strap/includer.clisp')
-rw-r--r-- | src/boot/strap/includer.clisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/boot/strap/includer.clisp b/src/boot/strap/includer.clisp index 61c7e369..28ade94d 100644 --- a/src/boot/strap/includer.clisp +++ b/src/boot/strap/includer.clisp @@ -186,9 +186,9 @@ (PROG (|n1| |n|) (RETURN (PROGN - (SETQ |n| (STRPOSL " " |x| 0 T)) + (SETQ |n| (|firstNonblankPosition| |x| 0)) (COND ((NULL |n|) NIL) - (T (SETQ |n1| (STRPOSL " " |x| |n| NIL)) + (T (SETQ |n1| (|firstBlankPosittion| |x| |n|)) (COND ((NULL |n1|) (LIST (|subString| |x| |n|) "")) (T (LIST (|subString| |x| |n| (- |n1| |n|)) |