[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog swank-ecl.lisp 
Log Message:
* contrib/swank-listener-hooks.lisp: Add missing IN-PACKAGE.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/22 21:14:52	1.1466
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/22 21:15:00	1.1467
@@ -1,3 +1,7 @@
+2008-08-22  Stelian Ionescu <sionescu at common-lisp.net>
+
+	* swank-ecl.lisp: Add a few EVAL-WHENs to fix compilation.
+
 2008-08-22  Helmut Eller  <heller at common-lisp.net>
 
 	Collect most of the inspector state in a structrure.
--- /project/slime/cvsroot/slime/swank-ecl.lisp	2008/08/11 17:41:55	1.27
+++ /project/slime/cvsroot/slime/swank-ecl.lisp	2008/08/22 21:15:01	1.28
@@ -12,6 +12,7 @@
 
 (defvar *tmp*)
 
+(eval-when (:compile-toplevel)
 (if (find-package :gray)
   (import-from :gray *gray-stream-symbols* :swank-backend)
   (import-from :ext *gray-stream-symbols* :swank-backend))
@@ -21,12 +22,13 @@
    :eql-specializer-object
    :generic-function-declarations
    :specializer-direct-methods
-   :compute-applicable-methods-using-classes))
+   :compute-applicable-methods-using-classes)))
 
 
 ;;;; TCP Server
 
-(require 'sockets)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (require 'sockets))
 
 (defun resolve-hostname (name)
   (car (sb-bsd-sockets:host-ent-addresses
@@ -218,23 +220,24 @@
 
 ;;; Debugging
 
-(import
- '(si::*break-env*
-   si::*ihs-top*
-   si::*ihs-current*
-   si::*ihs-base*
-   si::*frs-base*
-   si::*frs-top*
-   si::*tpl-commands*
-   si::*tpl-level*
-   si::frs-top
-   si::ihs-top
-   si::ihs-fun
-   si::ihs-env
-   si::sch-frs-base
-   si::set-break-env
-   si::set-current-ihs
-   si::tpl-commands))
+(eval-when (:compile-toplevel)
+  (import
+   '(si::*break-env*
+     si::*ihs-top*
+     si::*ihs-current*
+     si::*ihs-base*
+     si::*frs-base*
+     si::*frs-top*
+     si::*tpl-commands*
+     si::*tpl-level*
+     si::frs-top
+     si::ihs-top
+     si::ihs-fun
+     si::ihs-env
+     si::sch-frs-base
+     si::set-break-env
+     si::set-current-ihs
+     si::tpl-commands)))
 
 (defvar *backtrace* '())