/[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.59 by dtc, Mon Jan 17 16:45:56 2000 UTC revision 1.60 by dtc, Thu Sep 14 14:31:52 2000 UTC
# Line 537  Line 537 
537    +, ///, //, /, and -."    +, ///, //, /, and -."
538    (setf - form)    (setf - form)
539    (let ((results (multiple-value-list (eval form))))    (let ((results (multiple-value-list (eval form))))
540        (finish-standard-output-streams)
541      (setf /// //      (setf /// //
542            // /            // /
543            / results            / results

Legend:
Removed from v.1.59  
changed lines
  Added in v.1.60

  ViewVC Help
Powered by ViewVC 1.1.5