[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv16687

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* swank-ecl.lisp: Add :load-toplevel and :execute to EVAL-WHENs to
fix loading.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:53:08	1.1477
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/27 17:53:16	1.1478
@@ -3,6 +3,11 @@
 	* slime.el (slime-compute-modeline-package): Used `when-let' before its definition.
 	(slime-compute-modeline-string): Display "PKG:" before "CON:".
 
+2008-08-27 Anton Vodonosov <avodonosov at yandex.ru>
+
+	* swank-ecl.lisp: Add :load-toplevel and :execute to EVAL-WHENs to
+	fix loading.
+
 2008-08-27  Helmut Eller  <heller at common-lisp.net>
 
 	* swank-cmucl.lisp (remove-sigio-handlers): Fix thinko.
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2008/08/22 21:15:01	1.28
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2008/08/27 17:53:16	1.29
@@ -12,7 +12,7 @@
 
 (defvar *tmp*)
 
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
 (if (find-package :gray)
   (import-from :gray *gray-stream-symbols* :swank-backend)
   (import-from :ext *gray-stream-symbols* :swank-backend))
@@ -220,7 +220,7 @@
 
 ;;; Debugging
 
-(eval-when (:compile-toplevel)
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (import
    '(si::*break-env*
      si::*ihs-top*