[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank-asdf.lisp 
Log Message:
contrib/swank-asdf.lisp: Doing list-all-systems-in-central-registry
might be quite slow since it accesses a file-system,
so run it once at the background to initialize fs caches.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2010/01/06 18:23:44	1.337
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2010/01/08 10:59:46	1.338
@@ -1,3 +1,9 @@
+2010-01-08  Stas Boukarev  <stassats at gmail.com>
+
+	* swank-asdf.lisp: Doing list-all-systems-in-central-registry
+	might be quite slow since it accesses a file-system,
+	so run it once at the background to initialize fs caches.
+
 2010-01-06  Tobias C. Rittweiler  <tcr at freebits.de>
 
 	* swank-arglists.lisp (interesting-variable-p): Exclude keywords
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/01/03 14:18:26	1.26
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2010/01/08 10:59:46	1.27
@@ -199,4 +199,13 @@
   (let ((*recompile-system* (asdf:find-system name)))
     (operate-on-system-for-emacs name 'asdf:load-op)))
 
+;; Doing list-all-systems-in-central-registry might be quite slow
+;; since it accesses a file-system, so run it once at the background
+;; to initialize caches.
+(eval-when (:load-toplevel :execute)
+  (when (eql *communication-style* :spawn)
+    (spawn (lambda ()
+             (ignore-errors (list-all-systems-in-central-registry)))
+           :name "init-asdf-fs-caches")))
+
 (provide :swank-asdf)