[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-lispworks.lisp swank.lisp 
Log Message:
* swank-lispworks.lisp (with-swank-compilation-unit): Return the
values of BODY.
(compile-from-temp-file): Return T on success.

* swank.lisp (collect-notes): Check return type of
FUNCTION.

--- /project/slime/cvsroot/slime/ChangeLog	2008/10/16 21:15:28	1.1557
+++ /project/slime/cvsroot/slime/ChangeLog	2008/10/16 21:15:48	1.1558
@@ -3,6 +3,13 @@
 	* swank-backend.lisp (swank-compile-file): Return the same
 	values as COMPILE-FILE.  Update backends accordingly.
 
+	* swank-lispworks.lisp (with-swank-compilation-unit): Return the
+	values of BODY.
+	(compile-from-temp-file): Return T on success.
+
+	* swank.lisp (collect-notes): Check return type of
+	FUNCTION.
+
 2008-10-16  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-openmcl.lisp (frame-catch-tags): Disabled as it prevents
--- /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/10/16 21:15:28	1.119
+++ /project/slime/cvsroot/slime/swank-lispworks.lisp	2008/10/16 21:15:48	1.120
@@ -419,9 +419,11 @@
   (lw:rebinding (location)
     `(let ((compiler::*error-database* '()))
        (with-compilation-unit ,options
-         , at body
-         (signal-error-data-base compiler::*error-database* ,location)
-         (signal-undefined-functions compiler::*unknown-functions* ,location)))))
+         (multiple-value-prog1 (progn , at body)
+           (signal-error-data-base compiler::*error-database* 
+                                   ,location)
+           (signal-undefined-functions compiler::*unknown-functions* 
+                                       ,location))))))
 
 (defimplementation swank-compile-file (filename load-p external-format)
   (with-swank-compilation-unit (filename)
@@ -487,11 +489,13 @@
 
 	   (write-string string s)
 	   (finish-output s))
-	 (let ((binary-filename 
-                (compile-file filename :load t
-                              :external-format *temp-file-format*)))
+         (multiple-value-bind (binary-filename warnings? failure?)
+             (compile-file filename :load t
+                           :external-format *temp-file-format*)
+           (declare (ignore warnings?))
            (when binary-filename
-             (delete-file binary-filename))))
+             (delete-file binary-filename))
+           (not failure?)))
     (delete-file filename)))
 
 (defun dspec-function-name-position (dspec fallback)
--- /project/slime/cvsroot/slime/swank.lisp	2008/10/16 21:15:39	1.602
+++ /project/slime/cvsroot/slime/swank.lisp	2008/10/16 21:15:48	1.603
@@ -2470,6 +2470,7 @@
         (handler-bind ((compiler-condition
                         (lambda (c) (push (make-compiler-note c) notes))))
           (measure-time-interval function))
+      (check-type successp boolean)
       (make-compilation-result (reverse notes) successp seconds))))
 
 (defslimefun compile-file-for-emacs (filename load-p)