From 8672c9ca7ea2f66a0ab372697c258dac5bb43382 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 21 Apr 2011 13:47:27 +0000 Subject: * boot/utility.boot (objectMember?): Don't rely non tail recursion removal. (reverse): Define. * boot/tokens.boot: Don't rename reverse anymore. * boot/ast.boot: Generate reverse forms instead of REVERSE. --- src/interp/preparse.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/preparse.lisp') diff --git a/src/interp/preparse.lisp b/src/interp/preparse.lisp index 586bca51..1285de92 100644 --- a/src/interp/preparse.lisp +++ b/src/interp/preparse.lisp @@ -209,7 +209,7 @@ ;; NCBLOCK is the current comment block (DEFUN FINCOMBLOCK (NUM OLDNUMS OLDLOCS NCBLOCK linelist) (PUSH - (COND ((EQL (CAR NCBLOCK) 0) (CONS (1- NUM) (REVERSE (CDR NCBLOCK)))) + (COND ((EQL (CAR NCBLOCK) 0) (CONS (1- NUM) (|reverse| (CDR NCBLOCK)))) ;; comment for constructor itself paired with 1st line -1 ('T (COND ($EchoLineStack @@ -225,7 +225,7 @@ (if (and (numberp (car olocs)) (<= (car olocs) sloc)) (return (car onums)))) - (REVERSE (CDR NCBLOCK))))) + (|reverse| (CDR NCBLOCK))))) $COMBLOCKLIST)) (defun PARSEPRINT (L) @@ -342,7 +342,7 @@ ;; LINE))))) (defun PREPARSE-ECHO (linelist) - (if |$Echo| (REPEAT (IN X (REVERSE $EchoLineStack)) + (if |$Echo| (REPEAT (IN X (|reverse| $EchoLineStack)) (format out-stream "~&;~A~%" X))) (setq $EchoLineStack ())) -- cgit v1.2.3