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

Diff of /slime/swank.lisp

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

revision 1.426 by nsiivola, Tue Dec 12 15:40:23 2006 UTC revision 1.427 by alendvai, Wed Dec 13 16:57:47 2006 UTC
# Line 3253  Returns a list of completions with packa Line 3253  Returns a list of completions with packa
3253  INPUT is used to guess the preferred case."  INPUT is used to guess the preferred case."
3254    (ecase (readtable-case *readtable*)    (ecase (readtable-case *readtable*)
3255      (:upcase (cond ((or with-escaping-p      (:upcase (cond ((or with-escaping-p
3256                          (every #'upper-case-p input))                          (not (some #'lower-case-p input)))
3257                      #'identity)                      #'identity)
3258                     (t #'string-downcase)))                     (t #'string-downcase)))
3259      (:invert (lambda (output)      (:invert (lambda (output)
# Line 3263  INPUT is used to guess the preferred cas Line 3263  INPUT is used to guess the preferred cas
3263                         (upper (string-downcase output))                         (upper (string-downcase output))
3264                         (t output)))))                         (t output)))))
3265      (:downcase (cond ((or with-escaping-p      (:downcase (cond ((or with-escaping-p
3266                            (every #'lower-case-p input))                            (not (some #'upper-case-p input)))
3267                        #'identity)                        #'identity)
3268                       (t #'string-upcase)))                       (t #'string-upcase)))
3269      (:preserve #'identity)))      (:preserve #'identity)))

Legend:
Removed from v.1.426  
changed lines
  Added in v.1.427

  ViewVC Help
Powered by ViewVC 1.1.5