[slime-cvs] CVS slime
CVS User heller
heller at common-lisp.net
Thu Oct 16 21:16:01 UTC 2008
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")))
More information about the slime-cvs
mailing list