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

[Helmut Eller]

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

Modified Files:
	swank-sbcl.lisp swank-allegro.lisp swank-clisp.lisp 
	swank-lispworks.lisp 
Log Message:
(swank-compile-string): Be friendly to case-inverting readtables.

Date: Thu Mar 18 16:53:28 2004
Author: heller

Index: slime/swank-sbcl.lisp
diff -u slime/swank-sbcl.lisp:1.76 slime/swank-sbcl.lisp:1.77
--- slime/swank-sbcl.lisp:1.76	Wed Mar 10 04:10:34 2004
+++ slime/swank-sbcl.lisp	Thu Mar 18 16:53:27 2004
@@ -330,7 +330,7 @@
           (*buffer-offset* position)
           (*buffer-substring* string))
       (funcall (compile nil (read-from-string
-                             (format nil "(CL:LAMBDA () ~A)" string)))))))
+                             (format nil "(~S () ~A)" 'lambda string)))))))
 
 ;;;; Definitions
 


Index: slime/swank-allegro.lisp
diff -u slime/swank-allegro.lisp:1.23 slime/swank-allegro.lisp:1.24
--- slime/swank-allegro.lisp:1.23	Wed Mar 10 03:24:45 2004
+++ slime/swank-allegro.lisp	Thu Mar 18 16:53:27 2004
@@ -203,7 +203,7 @@
           (*buffer-start-position* position)
           (*buffer-string* string))
       (funcall (compile nil (read-from-string
-                             (format nil "(CL:LAMBDA () ~A)" string)))))))
+                             (format nil "(~S () ~A)" 'lambda string)))))))
 
 ;;;; Definition Finding
 


Index: slime/swank-clisp.lisp
diff -u slime/swank-clisp.lisp:1.26 slime/swank-clisp.lisp:1.27
--- slime/swank-clisp.lisp:1.26	Wed Mar 10 03:24:44 2004
+++ slime/swank-clisp.lisp	Thu Mar 18 16:53:27 2004
@@ -48,11 +48,11 @@
 
 ;; XXX currently only works in CVS version. 2.32 breaks.
 ;; #+linux
-;; (defmethod call-without-interrupts (fn)
+;; (defimplementation call-without-interrupts (fn)
 ;;   (with-blocked-signals (#.linux:SIGINT) (funcall fn)))
 ;; 
 ;; #-linux
-(defmethod call-without-interrupts (fn)
+(defimplementation call-without-interrupts (fn)
   (funcall fn))
 
 #+unix (defmethod getpid () (system::program-id))
@@ -283,13 +283,13 @@
 
 (defmacro dynamic-flet (names-functions &body body)
   "(dynamic-flet ((NAME FUNCTION) ...) BODY ...)
-Temporary the symbol slot of NAME in the dynamic extend of BODY to FUNCTION."
+Execute BODY with NAME's funtion slot set to FUNCTION."
   `(ext:letf* ,(loop for (name function) in names-functions
 		     collect `((symbol-function ',name) ,function))
     , at body))
  
 (defun compiler-note-location ()
-  "Return the current compiler location of the compiler."
+  "Return the current compiler location."
   (let ((lineno1 sys::*compile-file-lineno1*)
 	(lineno2 sys::*compile-file-lineno2*)
 	(file sys::*compile-file-truename*))
@@ -348,7 +348,7 @@
     (let ((*buffer-name* buffer)
 	  (*buffer-offset* position))
       (funcall (compile nil (read-from-string
-                             (format nil "(CL:LAMBDA () ~A)" string)))))))
+                             (format nil "(~S () ~A)" 'lambda string)))))))
 
 ;;; Portable XREF from the CMU AI repository.
 


Index: slime/swank-lispworks.lisp
diff -u slime/swank-lispworks.lisp:1.34 slime/swank-lispworks.lisp:1.35
--- slime/swank-lispworks.lisp:1.34	Wed Mar 10 04:10:33 2004
+++ slime/swank-lispworks.lisp	Thu Mar 18 16:53:27 2004
@@ -342,10 +342,9 @@
          (tmpname (hcl:make-temp-file nil "lisp")))
     (with-compilation-unit ()
       (compile-from-temp-file 
-       (with-standard-io-syntax 
-         (format nil "~S~%~A" `(eval-when (:compile-toplevel)
-                                (setq dspec::*location* (list , at location)))
-                 string))
+       (format nil "~S~%~A" `(eval-when (:compile-toplevel)
+                              (setq dspec::*location* (list , at location)))
+               string)
        tmpname)
       (signal-error-data-base compiler::*error-database* location)
       (signal-undefined-functions compiler::*unknown-functions* location))))