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