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

Diff of /slime/swank.lisp

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

revision 1.454 by mbaringer, Thu Jan 11 16:30:48 2007 UTC revision 1.455 by eweitz, Fri Jan 12 00:06:56 2007 UTC
# Line 3079  Record compiler notes signalled as `comp Line 3079  Record compiler notes signalled as `comp
3079    
3080  (defslimefun list-all-systems-in-central-registry ()  (defslimefun list-all-systems-in-central-registry ()
3081    "Returns a list of all systems in ASDF's central registry."    "Returns a list of all systems in ASDF's central registry."
3082    (delete-duplicates    (mapcar #'pathname-name
3083      (loop for dir in (asdf-central-registry)            (delete-duplicates
3084            for defaults = (eval dir)             (loop for dir in (asdf-central-registry)
3085            when defaults                   for defaults = (eval dir)
3086              nconc (mapcar #'file-namestring                   when defaults
3087                              (directory                     nconc (mapcar #'file-namestring
3088                                (make-pathname :defaults defaults                                     (directory
3089                                               :version :newest                                       (make-pathname :defaults defaults
3090                                               :type "asd"                                            :version :newest
3091                                               :name :wild                                            :type "asd"
3092                                               :case :local))))                                            :name :wild
3093      :test #'string=))                                            :case :local))))
3094               :test #'string=)))
3095    
3096    (defslimefun list-all-systems-known-to-asdf ()
3097      "Returns a list of all systems ASDF knows already."
3098      ;; ugh, yeah, it's unexported - but do we really expect this to
3099      ;; change anytime soon?
3100      (loop for name being the hash-keys of asdf::*defined-systems*
3101            collect name))
3102    
3103    (defslimefun list-asdf-systems ()
3104      "Returns the systems in ASDF's central registry and those which ASDF
3105    already knows."
3106      (nunion (list-all-systems-known-to-asdf)
3107              (list-all-systems-in-central-registry)
3108              :test #'string=))
3109    
3110  (defun file-newer-p (new-file old-file)  (defun file-newer-p (new-file old-file)
3111    "Returns true if NEW-FILE is newer than OLD-FILE."    "Returns true if NEW-FILE is newer than OLD-FILE."

Legend:
Removed from v.1.454  
changed lines
  Added in v.1.455

  ViewVC Help
Powered by ViewVC 1.1.5