diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/debug.lisp | 2 | ||||
| -rw-r--r-- | src/interp/lisp-backend.boot | 2 | ||||
| -rw-r--r-- | src/interp/preparse.lisp | 6 | ||||
| -rw-r--r-- | src/interp/sys-macros.lisp | 2 | ||||
| -rw-r--r-- | src/interp/vmlisp.lisp | 9 |
5 files changed, 7 insertions, 14 deletions
diff --git a/src/interp/debug.lisp b/src/interp/debug.lisp index c38f8c8e..71098c9c 100644 --- a/src/interp/debug.lisp +++ b/src/interp/debug.lisp @@ -1014,7 +1014,7 @@ EXAMINE (SETQ RECNO (NOTE |$InputStream|)) (PRIN1 /CALLER CURSTRM))) (MONITOR-PRINARGS (if (SPADSYSNAMEP NAME) - (|reverse!| (REVERSE (|coerceTraceArgs2E| + (|reverse!| (|reverse| (|coerceTraceArgs2E| (INTERN NAME1) (INTERN NAME) /ARGS))) diff --git a/src/interp/lisp-backend.boot b/src/interp/lisp-backend.boot index 0fbb0f33..e5d07fe2 100644 --- a/src/interp/lisp-backend.boot +++ b/src/interp/lisp-backend.boot @@ -562,7 +562,7 @@ for x in [ ['%lempty?, :'NULL], ['%lfirst, :'CAR], ['%llength, :'LIST_-LENGTH], - ['%lreverse, :'REVERSE], + ['%lreverse, :'reverse], ['%lreverse!, :'reverse!], ['%lsecond, :'CADR], ['%lthird, :'CADDR], 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 ())) diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index cda2479d..33e18eb3 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -977,7 +977,7 @@ (LIST 'THETACHECK G (MKQ G)(MKQ OP))) (G) )) (COND ((EQ OP 'CONS) - (SETQ EXIT (LIST 'NREVERSE0 EXIT)))) + (SETQ EXIT (LIST '|reverse!| EXIT)))) ;; CONSCODE= code which conses a member onto the list (SETQ VALUE (COND ((EQ Y 'NO_THETA_PROPERTY) diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp index 3023a662..b5eeb762 100644 --- a/src/interp/vmlisp.lisp +++ b/src/interp/vmlisp.lisp @@ -216,13 +216,6 @@ (defmacro ne (a b) `(not (equal ,a ,b))) -(defmacro nreverse0 (x) - (if (atom x) - `(if (atom ,x) ,x (|reverse!| ,x)) - (let ((xx (gensym))) - `(let ((,xx ,x)) - (if (atom ,xx) ,xx (|reverse!| ,xx)))))) - (defmacro nump (n) `(numberp ,n)) @@ -406,7 +399,7 @@ `(,(dcqexp pattern '=) ,exp)) (defmacro seq (&rest form) - (let* ((body (reverse form)) + (let* ((body (|reverse| form)) (val `(return-from seq ,(pop body)))) (nsubstitute '(progn) nil body) ;don't treat NIL as a label `(block seq (tagbody ,@(|reverse!| body) ,val)))) |