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

Diff of /slime/swank.lisp

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

revision 1.67 by heller, Thu Nov 27 00:40:35 2003 UTC revision 1.68 by heller, Fri Nov 28 12:02:29 2003 UTC
# Line 173  back to the main request handling loop." Line 173  back to the main request handling loop."
173    
174  (defun slime-read-string ()  (defun slime-read-string ()
175    (force-output)    (force-output)
176      (force-output *slime-io*)
177    (let ((*read-input-catch-tag* (1+ *read-input-catch-tag*)))    (let ((*read-input-catch-tag* (1+ *read-input-catch-tag*)))
178      (send-to-emacs `(:read-string ,*read-input-catch-tag*))      (send-to-emacs `(:read-string ,*read-input-catch-tag*))
179      (let (ok)      (let (ok)
# Line 267  conditions are simply reported." Line 268  conditions are simply reported."
268    
269  ;;;; Evaluation  ;;;; Evaluation
270    
271    (defun eval-in-emacs (form)
272      "Execute FROM in Emacs."
273      (destructuring-bind (fn &rest args) form
274        (swank::send-to-emacs
275         `(:%apply ,(string-downcase (string fn)) ,args))))
276    
277  (defslimefun eval-string (string buffer-package)  (defslimefun eval-string (string buffer-package)
278    (let ((*debugger-hook* #'swank-debugger-hook))    (let ((*debugger-hook* #'swank-debugger-hook))
279      (let (ok result)      (let (ok result)
# Line 277  conditions are simply reported." Line 284  conditions are simply reported."
284               (force-output)               (force-output)
285               (setq ok t))               (setq ok t))
286          (sync-state-to-emacs)          (sync-state-to-emacs)
287          (force-output *slime-output*)          (force-output *slime-io*)
288          (send-to-emacs (if ok `(:ok ,result) '(:aborted)))))))          (send-to-emacs (if ok `(:ok ,result) '(:aborted)))))))
289    
290  (defun format-values-for-echo-area (values)  (defun format-values-for-echo-area (values)

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

  ViewVC Help
Powered by ViewVC 1.1.5