[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv5969

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
* swank-asdf.lisp (asdf-central-registry): ASDF2 compatibility.
Patch by Leo Liu.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/06/04 07:30:41	1.391
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/06/14 15:27:24	1.392
@@ -1,3 +1,8 @@
+2010-06-14  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp (asdf-central-registry): ASDF2 compatibility.
+	Patch by Leo Liu.
+
 2010-06-04  Helmut Eller  <heller at common-lisp.net>
 
 	* inferior-slime.el (inferior-slime-show-transcript): Update
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/01/08 10:59:46	1.27
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/06/14 15:27:24	1.28
@@ -69,7 +69,8 @@
     (asdf:compile-error () nil)))
 
 (defun asdf-central-registry ()
-  asdf:*central-registry*)
+  (append asdf:*central-registry*
+          #+asdf2 (car asdf::*source-registry*)))
 
 (defslimefun list-all-systems-in-central-registry ()
   "Returns a list of all systems in ASDF's central registry."