[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
swank-asdf.lisp(asdf-system-loaded-p): Don't return a
generalized boolean, because numbers may be too large for Emacs.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/12/30 10:30:13	1.325
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/01/03 14:18:26	1.326
@@ -1,3 +1,8 @@
+2010-01-03  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp (asdf-system-loaded-p): Don't return a
+	generalized boolean, because numbers may be too large for Emacs.
+
 2009-12-30  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* slime-c-p-c.el (complete-form [test]): Set
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2009/12/19 14:56:07	1.25
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/01/03 14:18:26	1.26
@@ -134,8 +134,9 @@
         files)))
 
 (defslimefun asdf-system-loaded-p (name)
-  (gethash 'asdf:load-op
-           (asdf::component-operation-times (asdf:find-system name))))
+  (and (gethash 'asdf:load-op
+                (asdf::component-operation-times (asdf:find-system name)))
+       t))
 
 (defslimefun asdf-system-directory (name)
   (cl:directory-namestring