From 4cb6f558586ccd4893c2acd088bba66654f6bf19 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Fri, 30 Sep 2011 19:40:42 +0000 Subject: * boot/utility.boot (firstNonblankPosition): New. (firstBlankPosition): Likewis. * boot/translator.boot (reallyPrettyPrint): New. (genOptimizeOptions): Use it. (evalBootFile): Tidy. (shoePPtoFile): Remove as deadcode. (shoeAddbootIfNec): Rewrite. (shoeAddStringIfNec): Remove. * boot/scanner.boot (shoeNextLine): Use firstNonblankPosition. (shoeEsc): Likewise. (shoePossFloat): Likewise. * boot/initial-env.lisp ($IEEE): Remove. (*LISP-BIN-FILETYPE*): Likewise. (*LISP-SOURCE-FILETYPE*): Likewise. (SHOEPRETTYPRINT1): Likewise, (REALLYPRETTYPRINT): Likewise. (SHOENOPRETTYPRINT): Likewise. (STRPOS): Likewise. (STRPOSL): Likewise. (shoeReadLisp): Likewise. --- src/boot/strap/includer.clisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/boot/strap/includer.clisp') 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|)) -- cgit v1.2.3