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

Diff of /slime/swank.lisp

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

revision 1.54 by heller, Tue Nov 4 00:03:48 2003 UTC revision 1.55 by heller, Tue Nov 4 22:33:31 2003 UTC
# Line 176  buffer are best read in this package.  S Line 176  buffer are best read in this package.  S
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-string ,*read-input-catch-tag*))      (send-to-emacs `(:read-string ,*read-input-catch-tag*))
179      (catch *read-input-catch-tag*      (let (ok)
180        (loop (read-from-emacs)))))        (unwind-protect
181               (prog1 (catch *read-input-catch-tag*
182                        (loop (read-from-emacs)))
183                 (setq ok t))
184            (unless ok
185              (send-to-emacs `(:read-aborted)))))))
186    
187  (defslimefun take-input (tag input)  (defslimefun take-input (tag input)
188    (throw tag input))    (throw tag input))
189    
# Line 376  The time is measured in microseconds." Line 381  The time is measured in microseconds."
381      (:upcase (string-upcase string))      (:upcase (string-upcase string))
382      (:downcase (string-downcase string))      (:downcase (string-downcase string))
383      (:preserve string)      (:preserve string)
384      (:invert (with-output-to-string (*standard-output*)      (:invert (cond ((every #'lower-case-p string) (string-upcase string))
385                 (loop for c across string do                     ((every #'upper-case-p string) (string-downcase string))
386                       (princ (if (upper-case-p c)                     (t string)))))
                                 (char-downcase c)  
                                 c)))))))  
387    
388  (defslimefun completions (string default-package-name)  (defslimefun completions (string default-package-name)
389    "Return a list of completions for a symbol designator STRING.    "Return a list of completions for a symbol designator STRING.

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

  ViewVC Help
Powered by ViewVC 1.1.5