From heller at common-lisp.net Thu Oct 31 07:55:49 2013 From: heller at common-lisp.net (CVS User heller) Date: Thu, 31 Oct 2013 00:55:49 -0700 (PDT) Subject: CVS slime Message-ID: <20131031075550.0B0BF3566BE@mail.common-lisp.net> Update of /project/slime/cvsroot/slime In directory alpha-cl-net:/tmp/cvs-serv20138 Modified Files: ChangeLog swank-sbcl.lisp Log Message: * swank-sbcl.lisp (swank-compile-string): Don't call LOAD inside WITH-COMPILATION-UNIT. --- /project/slime/cvsroot/slime/ChangeLog 2013/09/29 13:45:42 1.2406 +++ /project/slime/cvsroot/slime/ChangeLog 2013/10/31 07:55:49 1.2407 @@ -1,3 +1,8 @@ +2013-10-31 Helmut Eller + + * swank-sbcl.lisp (swank-compile-string): Don't call LOAD inside + WITH-COMPILATION-UNIT. + 2013-09-29 Helmut Eller For CCL, also search definitions of p2 translators. --- /project/slime/cvsroot/slime/swank-sbcl.lisp 2013/02/02 10:11:16 1.328 +++ /project/slime/cvsroot/slime/swank-sbcl.lisp 2013/10/31 07:55:49 1.329 @@ -679,19 +679,19 @@ (flet ((load-it (filename) (when filename (load filename))) (compile-it (cont) - (with-compilation-hooks () - (with-compilation-unit - (:source-plist (list :emacs-buffer buffer - :emacs-filename filename - :emacs-string string - :emacs-position position) - :source-namestring filename - :allow-other-keys t) - (multiple-value-bind (output-file warningsp failurep) - (compile-file *buffer-tmpfile* :external-format :utf-8) - (declare (ignore warningsp)) - (unless failurep - (funcall cont output-file))))))) + (multiple-value-bind (output-file warningsp failurep) + (with-compilation-hooks () + (with-compilation-unit + (:source-plist (list :emacs-buffer buffer + :emacs-filename filename + :emacs-string string + :emacs-position position) + :source-namestring filename + :allow-other-keys t) + (compile-file *buffer-tmpfile* :external-format :utf-8))) + (declare (ignore warningsp)) + (unless failurep + (funcall cont output-file))))) (with-open-file (s *buffer-tmpfile* :direction :output :if-exists :error :external-format :utf-8) (write-string string s))