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

Diff of /slime/swank-cmucl.lisp

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

revision 1.230 by sboukarev, Thu Sep 2 17:21:09 2010 UTC revision 1.231 by sboukarev, Mon Sep 20 16:09:13 2010 UTC
# Line 2556  int main (int argc, char** argv) { Line 2556  int main (int argc, char** argv) {
2556        (call-program args :output t)        (call-program args :output t)
2557        (delete-file infile)        (delete-file infile)
2558        outfile)))        outfile)))
2559    
2560    #+#.(swank-backend:with-symbol 'unicode-complete 'lisp)
2561    (defun match-semi-standard (prefix matchp)
2562      ;; Handle the CMUCL's short character names.
2563      (loop for name in lisp::char-name-alist
2564         when (funcall matchp prefix (car name))
2565         collect (car name)))
2566    
2567    #+#.(swank-backend:with-symbol 'unicode-complete 'lisp)
2568    (defimplementation character-completion-set (prefix matchp)
2569      (let ((names (lisp::unicode-complete prefix)))
2570        ;; Match prefix against semistandard names.  If there's a match,
2571        ;; add it to our list of matches.
2572        (let ((semi-standard (match-semi-standard prefix matchp)))
2573          (when semi-standard
2574            (setf names (append semi-standard names))))
2575        (setf names (mapcar #'string-capitalize names))
2576        (loop for n in names
2577           when (funcall matchp prefix n)
2578           collect n)))

Legend:
Removed from v.1.230  
changed lines
  Added in v.1.231

  ViewVC Help
Powered by ViewVC 1.1.5