[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-loader.lisp 
Log Message:
* swank-loader.lisp (default-fasl-dir): Guard against using :asdf
package if it doesn't exist.
Patch by Anton Vodonosov.


--- /project/slime/cvsroot/slime/ChangeLog	2010/10/15 22:53:45	1.2152
+++ /project/slime/cvsroot/slime/ChangeLog	2010/10/16 10:10:38	1.2153
@@ -1,3 +1,9 @@
+2010-10-16  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-loader.lisp (default-fasl-dir): Guard against using :asdf
+	package if it doesn't exist.
+	Patch by Anton Vodonosov.
+
 2010-10-16  Attila Lendvai  <attila.lendvai at gmail.com>
 
 	* swank-fuzzy.lisp: speed up by 2-4 times (on sbcl).
--- /project/slime/cvsroot/slime/swank-loader.lisp	2010/10/15 22:53:45	1.107
+++ /project/slime/cvsroot/slime/swank-loader.lisp	2010/10/16 10:10:38	1.108
@@ -126,7 +126,8 @@
 (defun default-fasl-dir ()
   (or
    ;; If ASDF is available then store Slime's fasl's where ASDF stores them.
-   (let ((translate-fn (find-symbol "COMPILE-FILE-PATHNAME*" :asdf)))
+   (let ((translate-fn (and (find-package :asdf)
+                            (find-symbol "COMPILE-FILE-PATHNAME*" :asdf))))
      (when translate-fn
        (make-pathname
         :name nil :type nil