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

Diff of /slime/swank.lisp

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

revision 1.55 by heller, Tue Nov 4 22:33:31 2003 UTC revision 1.56 by heller, Sat Nov 8 16:59:38 2003 UTC
# Line 377  The time is measured in microseconds." Line 377  The time is measured in microseconds."
377    
378  (defun case-convert (string)  (defun case-convert (string)
379    "Convert STRING according to the current readtable-case."    "Convert STRING according to the current readtable-case."
380      (check-type string string)
381    (ecase (readtable-case *readtable*)    (ecase (readtable-case *readtable*)
382      (:upcase (string-upcase string))      (:upcase (string-upcase string))
383      (:downcase (string-downcase string))      (:downcase (string-downcase string))
# Line 401  format. The cases are as follows: Line 402  format. The cases are as follows:
402    (multiple-value-bind (name package-name internal-p)    (multiple-value-bind (name package-name internal-p)
403        (parse-symbol-designator string)        (parse-symbol-designator string)
404      (let ((completions nil)      (let ((completions nil)
405            (package (find-package            (package (let ((n (cond ((equal package-name "") "KEYWORD")
406                      (case-convert                                    (t (or package-name default-package-name)))))
407                       (cond ((equal package-name "") "KEYWORD")                       (if n
408                             (package-name)                           (find-package (case-convert n))
409                             (default-package-name))))))                           *buffer-package* ))))
410        (flet ((symbol-matches-p (symbol)        (flet ((symbol-matches-p (symbol)
411                 (and (string-prefix-p name (symbol-name symbol))                 (and (string-prefix-p name (symbol-name symbol))
412                      (or (or internal-p (null package-name))                      (or (or internal-p (null package-name))

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

  ViewVC Help
Powered by ViewVC 1.1.5