[slime-cvs] CVS update: slime/swank-lispworks.lisp

[Edi Weitz]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv19411

Modified Files:
	swank-lispworks.lisp 
Log Message:
correction: swank.lisp is loaded after swank-lispworks.lisp...

Date: Thu May  5 10:59:13 2005
Author: eweitz

Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.71 slime/swank-lispworks.lisp:1.72
--- slime/swank-lispworks.lisp:1.71	Thu May  5 01:15:43 2005
+++ slime/swank-lispworks.lisp	Thu May  5 10:59:13 2005
@@ -537,7 +537,7 @@
                  (nregex::*regex-groups* (make-array 10))
                  (symbol-name (symbol-name symbol)))
              (and (funcall (load-time-value
-                             (swank::compiled-regex "^\"(.+)\" \"(.+)\"$"))
+                             (compile nil (nregex:regex-compile "^\"(.+)\" \"(.+)\"$")))
                            symbol-name)
                   (list 'setf
                         (intern (apply #'subseq symbol-name