Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

* contrib/swank-listener-hooks.lisp: Add missing IN-PACKAGE.

  • Loading branch information...
commit 990fceaf746ac0a6db5b70aee068051e782bd432 1 parent 7233ee6
Helmut Eller authored
View
4 ChangeLog
@@ -1,3 +1,7 @@
+2008-08-22 Stelian Ionescu <sionescu@common-lisp.net>
+
+ * swank-ecl.lisp: Add a few EVAL-WHENs to fix compilation.
+
2008-08-22 Helmut Eller <heller@common-lisp.net>
Collect most of the inspector state in a structrure.
View
4 contrib/ChangeLog
@@ -1,3 +1,7 @@
+2008-08-22 Stelian Ionescu <sionescu@common-lisp.net>
+
+ * swank-listener-hooks.lisp: Add missing IN-PACKAGE.
+
2008-08-20 Tobias C. Rittweiler <tcr@freebits.de>
* slime-fontifying-fu.el: New contrib; fontify with-foo and do-foo
View
2  contrib/swank-listener-hooks.lisp
@@ -5,6 +5,8 @@
;; I guess that only Alan Ruttenberg knows how to use this code. It
;; was in swank.lisp for a long time, so here it is. -- Helmut Eller
+(in-package :swank)
+
(defvar *slime-repl-advance-history* nil
"In the dynamic scope of a single form typed at the repl, is set to nil to
prevent the repl from advancing the history - * ** *** etc.")
View
41 swank-ecl.lisp
@@ -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* '())
Please sign in to comment.
Something went wrong with that request. Please try again.