[slime-cvs] CVS slime

[CVS User heller]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv13148

Modified Files:
	ChangeLog swank-abcl.lisp swank-allegro.lisp swank-clisp.lisp 
	swank-ecl.lisp 
Log Message:
* swank-lispworks.lisp (with-swank-compilation-unit): Return the
values of BODY.
(compile-from-temp-file)
* swank-allegro.lisp (compile-from-temp-file)
* swank-clisp.lisp (swank-compile-string)
* swank-abcl.lisp (swank-compile-string): Return T on success.
* swank.lisp (collect-notes): Check return type of
FUNCTION.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/16 21:15:48	1.1558
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/16 21:16:01	1.1559
@@ -5,8 +5,10 @@
 
 	* swank-lispworks.lisp (with-swank-compilation-unit): Return the
 	values of BODY.
-	(compile-from-temp-file): Return T on success.
-
+	(compile-from-temp-file)
+	* swank-allegro.lisp (compile-from-temp-file)
+	* swank-clisp.lisp (swank-compile-string)
+	* swank-abcl.lisp (swank-compile-string): Return T on success.
 	* swank.lisp (collect-notes): Check return type of
 	FUNCTION.
 
--- /project/slime/cvsroot/slime/swank-abcl.lisp	2008/10/16 21:15:28	1.56
+++ /project/slime/cvsroot/slime/swank-abcl.lisp	2008/10/16 21:16:01	1.57
@@ -353,7 +353,8 @@
             (*buffer-start-position* position)
             (*buffer-string* string))
         (funcall (compile nil (read-from-string
-                               (format nil "(~S () ~A)" 'lambda string))))))))
+                               (format nil "(~S () ~A)" 'lambda string))))
+        t))))
 
 #|
 ;;;; Definition Finding
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2008/09/19 11:20:15	1.115
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2008/10/16 21:16:01	1.116
@@ -301,14 +301,16 @@
    (lambda (stream filename)
        (write-string string stream)
        (finish-output stream)
-       (let ((binary-filename
-              (excl:without-redefinition-warnings
-                ;; Suppress Allegro's redefinition warnings; they are
-                ;; pointless when we are compiling via a temporary
-                ;; file.
-                (compile-file filename :load-after-compile t))))
+       (multiple-value-bind (binary-filename warnings? failure?)
+         (excl:without-redefinition-warnings
+             ;; Suppress Allegro's redefinition warnings; they are
+             ;; pointless when we are compiling via a temporary
+             ;; file.
+             (compile-file filename :load-after-compile t))
+         (declare (ignore warnings?))
          (when binary-filename
-           (delete-file binary-filename))))))
+           (delete-file binary-filename))
+         (not failure?)))))
 
 (defimplementation swank-compile-string (string &key buffer position directory
                                                 debug)
--- /project/slime/cvsroot/slime/swank-clisp.lisp	2008/10/16 21:15:28	1.79
+++ /project/slime/cvsroot/slime/swank-clisp.lisp	2008/10/16 21:16:01	1.80
@@ -612,7 +612,8 @@
     (let ((*buffer-name* buffer)
           (*buffer-offset* position))
       (funcall (compile nil (read-from-string
-                             (format nil "(~S () ~A)" 'lambda string)))))))
+                             (format nil "(~S () ~A)" 'lambda string))))
+      t)))
 
 ;;;; Portable XREF from the CMU AI repository.
 
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2008/10/16 21:15:28	1.33
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2008/10/16 21:16:01	1.34
@@ -143,9 +143,7 @@
   (declare (ignore external-format))
   (with-compilation-hooks ()
     (let ((*buffer-name* nil))
-      (multiple-value-bind (fn warn fail) 
-          (compile-file *compile-filename*)
-        (values fn warn (or fail (and load-p (not (load fn)))))))))
+      (compile-file *compile-filename* :load t))))
 
 (defimplementation swank-compile-string (string &key buffer position directory
                                                 debug)
@@ -155,7 +153,7 @@
           (*buffer-start-position* position)
           (*buffer-string* string))
       (with-input-from-string (s string)
-        (compile-from-stream s :load t)))))
+        (not (nth-value 2 (compile-from-stream s :load t)))))))
 
 (defun compile-from-stream (stream &rest args)
   (let ((file (si::mkstemp "TMP:ECLXXXXXX")))