diff --git a/code/lispinit.lisp b/code/lispinit.lisp index cff987d67adc74f683e13f44fab96f64c7a1b71d..201cf66362775b5b55307a7182b8983fb639e85c 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 ()