From f5ff3bf482c4b95499274d875bebf05a08cdc1a7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 14 Feb 1991 18:55:56 +0000
Subject: [PATCH] .../systems-work/code/eval.lisp, 09-Aug-90 15:23:35, Edit by
 Chiles, Rob, Wlott.   Fixed INTERACTIVE-EVAL to frob +, ++, +++ correctly.

---
 code/lispinit.lisp | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index cff987d67..201cf6636 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.20 1991/02/08 13:33:44 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.21 1991/02/14 18:55:56 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.20 1991/02/08 13:33:44 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.21 1991/02/14 18:55:56 ram Exp $
 ;;;
 ;;; Initialization stuff for CMU Common Lisp, plus some other random functions
 ;;; that we don't have any better place for.
@@ -654,10 +654,7 @@
 (defun interactive-eval (form)
   "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,
   +, ///, //, /, and -."
-  (setf +++ ++
-	++ +
-	+ -
-	- form)
+  (setf - form)
   (let ((results (multiple-value-list (eval form))))
     (setf /// //
 	  // /
@@ -665,6 +662,9 @@
 	  *** **
 	  ** *
 	  * (car results)))
+  (setf +++ ++
+	++ +
+	+ -)
   (unless (boundp '*)
     ;; The bogon returned an unbound marker.
     (setf * nil)
@@ -672,6 +672,7 @@
 	    "EVAL returned an unbound marker."))
   (values-list /))
 
+
 (defconstant eofs-before-quit 10)
 
 (defun %top-level ()
-- 
GitLab