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

[Edi Weitz]

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

Modified Files:
	ChangeLog swank-lispworks.lisp 
Log Message:
Fix LW port (broken due to nregex renaming)

Date: Mon Jun 13 11:17:33 2005
Author: eweitz

Index: slime/ChangeLog
diff -u slime/ChangeLog:1.713 slime/ChangeLog:1.714
--- slime/ChangeLog:1.713	Sun Jun 12 23:05:29 2005
+++ slime/ChangeLog	Mon Jun 13 11:17:32 2005
@@ -1,3 +1,8 @@
+2005-06-13  Edi Weitz  <edi at agharta.de>
+
+	* swank-lispworks.lisp (unmangle-unfun): If you rename a package
+	you should rename it everywhere...
+
 2005-06-12  Alexey Dejneka  <adejneka at comail.ru>
 
 	* slime.el (slime-with-xref-buffer): fix "pgk" typo.


Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.72 slime/swank-lispworks.lisp:1.73
--- slime/swank-lispworks.lisp:1.72	Thu May  5 10:59:13 2005
+++ slime/swank-lispworks.lisp	Mon Jun 13 11:17:32 2005
@@ -533,18 +533,18 @@
 function names like \(SETF GET)."
   (or (and (eq (symbol-package symbol)
                (load-time-value (find-package :setf)))
-           (let ((nregex::*regex-groupings* 0)
-                 (nregex::*regex-groups* (make-array 10))
+           (let ((slime-nregex::*regex-groupings* 0)
+                 (slime-nregex::*regex-groups* (make-array 10))
                  (symbol-name (symbol-name symbol)))
              (and (funcall (load-time-value
-                             (compile nil (nregex:regex-compile "^\"(.+)\" \"(.+)\"$")))
+                             (compile nil (slime-nregex:regex-compile "^\"(.+)\" \"(.+)\"$")))
                            symbol-name)
                   (list 'setf
                         (intern (apply #'subseq symbol-name
-                                       (aref nregex::*regex-groups* 2))
+                                       (aref slime-nregex::*regex-groups* 2))
                                 (find-package
                                  (apply #'subseq symbol-name
-                                        (aref nregex::*regex-groups* 1))))))))
+                                        (aref slime-nregex::*regex-groups* 1))))))))
       symbol))
 
 (defun signal-undefined-functions (htab &optional filename)