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

Diff of /slime/swank.lisp

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

revision 1.51 by lgorrie, Sun Nov 2 00:55:10 2003 UTC revision 1.52 by heller, Sun Nov 2 23:08:03 2003 UTC
# Line 82  PORT-FILE-NAMESTRING in ascii text." Line 82  PORT-FILE-NAMESTRING in ascii text."
82                (*trace-output* *slime-output*)                (*trace-output* *slime-output*)
83                (*debug-io* *slime-io*)                (*debug-io* *slime-io*)
84                (*query-io* *slime-io*)                (*query-io* *slime-io*)
85                (*standard-input* *slime-input*))                (*standard-input* *slime-input*)
86                  (*terminal-io* *slime-io*))
87            (apply #'funcall form))            (apply #'funcall form))
88          (apply #'funcall form))))          (apply #'funcall form))))
89    
# Line 171  buffer are best read in this package.  S Line 172  buffer are best read in this package.  S
172    
173  (defvar *read-input-catch-tag* 0)  (defvar *read-input-catch-tag* 0)
174    
175  (defun slime-read-char ()  (defun slime-read-string ()
176    (force-output)    (force-output)
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-char ,*read-input-catch-tag*))      (send-to-emacs `(:read-string ,*read-input-catch-tag*))
179      (code-char (catch *read-input-catch-tag*      (catch *read-input-catch-tag*
180                   (loop (read-from-emacs))))))        (loop (read-from-emacs)))))
181    
182  (defslimefun take-input (tag input)  (defslimefun take-input (tag input)
183    (throw tag input))    (throw tag input))
# Line 255  change, then send Emacs an update." Line 256  change, then send Emacs an update."
256    (package-name *package*))    (package-name *package*))
257    
258  (defslimefun listener-eval (string)  (defslimefun listener-eval (string)
259      (clear-input *slime-input*)
260    (multiple-value-bind (values last-form) (eval-region string t)    (multiple-value-bind (values last-form) (eval-region string t)
261      (setq +++ ++  ++ +  + last-form      (setq +++ ++  ++ +  + last-form
262            *** **  ** *  * (car values)            *** **  ** *  * (car values)

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.52

  ViewVC Help
Powered by ViewVC 1.1.5