/[cmucl]/src/code/lispinit.lisp
ViewVC logotype

Diff of /src/code/lispinit.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by ram, Fri Feb 8 13:33:44 1991 UTC revision 1.21 by ram, Thu Feb 14 18:55:56 1991 UTC
# Line 654  Line 654 
654  (defun interactive-eval (form)  (defun interactive-eval (form)
655    "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,    "Evaluate FORM, returning whatever it returns but adjust ***, **, *, +++, ++,
656    +, ///, //, /, and -."    +, ///, //, /, and -."
657    (setf +++ ++    (setf - form)
         ++ +  
         + -  
         - form)  
658    (let ((results (multiple-value-list (eval form))))    (let ((results (multiple-value-list (eval form))))
659      (setf /// //      (setf /// //
660            // /            // /
# Line 665  Line 662 
662            *** **            *** **
663            ** *            ** *
664            * (car results)))            * (car results)))
665      (setf +++ ++
666            ++ +
667            + -)
668    (unless (boundp '*)    (unless (boundp '*)
669      ;; The bogon returned an unbound marker.      ;; The bogon returned an unbound marker.
670      (setf * nil)      (setf * nil)
# Line 672  Line 672 
672              "EVAL returned an unbound marker."))              "EVAL returned an unbound marker."))
673    (values-list /))    (values-list /))
674    
675    
676  (defconstant eofs-before-quit 10)  (defconstant eofs-before-quit 10)
677    
678  (defun %top-level ()  (defun %top-level ()

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5