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

[Helmut Eller]

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

Modified Files:
	swank-clisp.lisp 
Log Message:
(set-default-directory):  New function.  Patch from Alan Shutko.

(xref-results): Use fspec-location instead of the of
fspec-source-locations.

(break): Be friendly to case-inverting readtables.


Date: Tue Mar 23 16:32:18 2004
Author: heller

Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.27 slime/swank-clisp.lisp:1.28
--- slime/swank-clisp.lisp:1.27	Thu Mar 18 16:53:27 2004
+++ slime/swank-clisp.lisp	Tue Mar 23 16:32:17 2004
@@ -62,6 +62,10 @@
 (defimplementation lisp-implementation-type-name ()
   "clisp")
 
+(defimplementation set-default-directory (directory)
+  (setf (ext:default-directory) directory)
+  (namestring (setf *default-pathname-defaults* (ext:default-directory))))
+
 
 ;;; TCP Server
 
@@ -365,11 +369,10 @@
 (defxref list-callers   xref:list-callers)
 (defxref list-callees   xref:list-callees)
 
-(defun xref-results (fspecs)
+(defun xref-results (symbols)
   (let ((xrefs '()))
-    (dolist (fspec fspecs)
-      (dolist (location (fspec-source-locations fspec))
-	(push (list fspec location) xrefs)))
+    (dolist (symbol symbols)
+      (push (list symbol (fspec-location symbol)) xrefs))
     xrefs))
 
 (when (find-package :swank-loader)
@@ -398,12 +401,12 @@
 	     ;; Issue 91
 	     )				
 	 (ext:with-restarts
-	     ((CONTINUE
+	     ((continue
 	       :report (lambda (stream)
-			 (format stream (sys::TEXT "Return from ~S loop")
+			 (format stream (sys::text "Return from ~S loop")
 				 'break))
 	       ()))
-	   (with-condition-restarts condition (list (find-restart 'CONTINUE))
+	   (with-condition-restarts condition (list (find-restart 'continue))
 				    (invoke-debugger condition)))))
    nil))