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

Diff of /slime/swank.lisp

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

revision 1.753 by sboukarev, Wed Oct 5 11:58:00 2011 UTC revision 1.754 by heller, Thu Oct 13 09:24:03 2011 UTC
# Line 3050  the filename of the module (or nil if th Line 3050  the filename of the module (or nil if th
3050                        ((not pname) (guess-buffer-package package))                        ((not pname) (guess-buffer-package package))
3051                        (t (guess-package pname))))                        (t (guess-package pname))))
3052             (test (lambda (sym) (prefix-match-p name (symbol-name sym))))             (test (lambda (sym) (prefix-match-p name (symbol-name sym))))
3053             (syms (and pkg (matching-symbols pkg extern test))))             (syms (and pkg (matching-symbols pkg extern test)))
3054        (format-completion-set (mapcar #'unparse-symbol syms) intern pname))))             (strings (loop for sym in syms
3055                              for str = (unparse-symbol sym)
3056                              when (prefix-match-p name str) ; remove |Foo|
3057                              collect str)))
3058          (format-completion-set strings intern pname))))
3059    
3060  (defun matching-symbols (package external test)  (defun matching-symbols (package external test)
3061    (let ((test (if external    (let ((test (if external

Legend:
Removed from v.1.753  
changed lines
  Added in v.1.754

  ViewVC Help
Powered by ViewVC 1.1.5