/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

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

revision 1.611 by heller, Tue Dec 9 07:48:10 2008 UTC revision 1.612 by heller, Tue Dec 9 07:48:20 2008 UTC
# Line 1891  Errors are trapped and invoke our debugg Line 1891  Errors are trapped and invoke our debugg
1891    (with-buffer-syntax ()    (with-buffer-syntax ()
1892      (with-retry-restart (:msg "Retry SLIME interactive evaluation request.")      (with-retry-restart (:msg "Retry SLIME interactive evaluation request.")
1893        (let ((values (multiple-value-list (eval (from-string string)))))        (let ((values (multiple-value-list (eval (from-string string)))))
1894            (fresh-line)
1895          (finish-output)          (finish-output)
1896          (format-values-for-echo-area values)))))          (format-values-for-echo-area values)))))
1897    
# Line 1912  last form." Line 1913  last form."
1913        (loop        (loop
1914         (let ((form (read stream nil stream)))         (let ((form (read stream nil stream)))
1915           (when (eq form stream)           (when (eq form stream)
1916               (fresh-line)
1917               (finish-output)
1918             (return (values values -)))             (return (values values -)))
1919           (setq - form)           (setq - form)
1920           (setq values (multiple-value-list (eval form)))           (setq values (multiple-value-list (eval form)))

Legend:
Removed from v.1.611  
changed lines
  Added in v.1.612

  ViewVC Help
Powered by ViewVC 1.1.5