[slime-cvs] CVS slime

[mbaringer]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv14345

Modified Files:
	slime.el 
Log Message:
Fix previous patch, don't call slime-eval since it seems to break


--- /project/slime/cvsroot/slime/slime.el	2008/02/05 12:06:21	1.900
+++ /project/slime/cvsroot/slime/slime.el	2008/02/05 12:43:51	1.901
@@ -2268,8 +2268,10 @@
       (when (or (re-search-backward regexp nil t)
                 (re-search-forward regexp nil t))
         ;; package name can be a string designator, convert it to a string.
-        (slime-eval `(cl:string (cl:second (cl:read-from-string ,(match-string-no-properties 0))))
-                    "COMMON-LISP-USER")))))
+        ;;(slime-eval `(cl:string (cl:second (cl:read-from-string ,(match-string-no-properties 0))))
+        ;;            "COMMON-LISP-USER")
+        (match-string-no-properties 2)
+        ))))
 
 ;;; Synchronous requests are implemented in terms of asynchronous
 ;;; ones. We make an asynchronous request with a continuation function