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

Diff of /slime/swank.lisp

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

revision 1.483 by trittweiler, Fri May 11 15:40:52 2007 UTC revision 1.484 by trittweiler, Mon May 14 15:21:18 2007 UTC
# Line 3920  Cf. FUZZY-FIND-MATCHING-SYMBOLS." Line 3920  Cf. FUZZY-FIND-MATCHING-SYMBOLS."
3920      (declare (type function converter))      (declare (type function converter))
3921      (if (and time-limit-p (<= time-limit 0))      (if (and time-limit-p (<= time-limit 0))
3922          (values #() time-limit)          (values #() time-limit)
3923          (loop with all-package-names = (mapcan #'(lambda (package)          (loop for package-name in (mapcan #'package-names (list-all-packages))
                                               (cons (package-name package)  
                                                     (copy-list (package-nicknames package))))  
                                           (list-all-packages))  
               for package-name in all-package-names  
3924                for converted-name = (funcall converter package-name)                for converted-name = (funcall converter package-name)
3925                for package-symbol = (or (find-symbol package-name)                for package-symbol = (or (find-symbol package-name)
3926                                          (make-symbol package-name)) ; no INTERN                                          (make-symbol package-name)) ; no INTERN
# Line 4307  that symbols accessible in the current p Line 4303  that symbols accessible in the current p
4303    "Return a list of all package names.    "Return a list of all package names.
4304  Include the nicknames if NICKNAMES is true."  Include the nicknames if NICKNAMES is true."
4305    (mapcar #'unparse-name    (mapcar #'unparse-name
4306            (loop for package in (list-all-packages)            (if nicknames
4307                  collect (package-name package)                (mapcan #'package-names (list-all-packages))
4308                  when nicknames append (package-nicknames package))))                (mapcar #'package-name  (list-all-packages)))))
4309    
4310    
4311  ;;;; Tracing  ;;;; Tracing
# Line 5639  belonging to the buffer package." Line 5635  belonging to the buffer package."
5635      alist))      alist))
5636    
5637  (defun package-names (package)  (defun package-names (package)
5638    "Return the name and all nicknames of PACKAGE in a list."    "Return the name and all nicknames of PACKAGE in a fresh list."
5639    (cons (package-name package) (package-nicknames package)))    (cons (package-name package) (copy-list (package-nicknames package))))
5640    
5641  (defun cl-symbol-p (symbol)  (defun cl-symbol-p (symbol)
5642    "Is SYMBOL a symbol in the COMMON-LISP package?"    "Is SYMBOL a symbol in the COMMON-LISP package?"

Legend:
Removed from v.1.483  
changed lines
  Added in v.1.484

  ViewVC Help
Powered by ViewVC 1.1.5