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

Diff of /slime/swank.lisp

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

revision 1.170 by heller, Wed Apr 21 21:51:23 2004 UTC revision 1.171 by heller, Thu Apr 22 21:37:50 2004 UTC
# Line 1258  Record compiler notes signalled as `comp Line 1258  Record compiler notes signalled as `comp
1258  (defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)  (defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)
1259    "Compile and load SYSTEM using ASDF.    "Compile and load SYSTEM using ASDF.
1260  Record compiler notes signalled as `compiler-condition's."  Record compiler notes signalled as `compiler-condition's."
1261    (swank-compiler (lambda ()    (swank-compiler
1262                      (apply #'operate-on-system system-name operation keywords))))     (lambda ()
1263         (apply #'operate-on-system system-name operation keywords))))
1264    
1265    (defun asdf-central-registry ()
1266      (when (find-package :asdf)
1267        (symbol-value (find-symbol (string :*central-registry*) :asdf))))
1268    
1269    (defslimefun list-all-systems-in-central-registry ()
1270      "Returns a list of all systems in ASDF's central registry."
1271      (loop for dir in (asdf-central-registry)
1272            for defaults = (eval dir)
1273            when defaults
1274            nconc (mapcar #'file-namestring
1275                          (directory
1276                           (make-pathname :defaults defaults
1277                                          :version :newest
1278                                          :type "asd"
1279                                          :case :local)))))
1280    
1281  ;;;; Macroexpansion  ;;;; Macroexpansion
1282    

Legend:
Removed from v.1.170  
changed lines
  Added in v.1.171

  ViewVC Help
Powered by ViewVC 1.1.5