[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv13502

Modified Files:
	swank.lisp 
Log Message:
(list-all-systems-known-to-asdf): Don't reference asdf directly, that
leads to read errors in some systems.

--- /project/slime/cvsroot/slime/swank.lisp	2007/01/12 07:49:05	1.456
+++ /project/slime/cvsroot/slime/swank.lisp	2007/01/12 15:26:05	1.457
@@ -3098,9 +3098,12 @@
 
 (defslimefun list-all-systems-known-to-asdf ()
   "Returns a list of all systems ASDF knows already."
+  (unless (find-package :asdf)
+    (error "ASDF not loaded"))
   ;; ugh, yeah, it's unexported - but do we really expect this to
   ;; change anytime soon?
-  (loop for name being the hash-keys of asdf::*defined-systems*
+  (loop for name being the hash-keys of (read-from-string 
+                                         "#.asdf::*defined-systems*")
         collect name))
 
 (defslimefun list-asdf-systems ()