Permalink
Browse files

Moved *LISTENING-SOCKET* from special-variables to listen.lisp.

  • Loading branch information...
1 parent 4ad959b commit 32f604f833608374e7f3c80fb352fb92ce2c2d92 @flambard committed Nov 10, 2012
Showing with 3 additions and 3 deletions.
  1. +3 −0 src/listen.lisp
  2. +0 −3 src/special-variables.lisp
View
3 src/listen.lisp
@@ -1,5 +1,8 @@
(in-package :cleric)
+(defvar *listening-socket* nil
+ "The listening socket. NIL if not listening.")
+
(defun listening-p ()
(not (null *listening-socket*)))
View
3 src/special-variables.lisp
@@ -5,9 +5,6 @@
(defvar *atom-symbol-package* :keyword
"The package in which atom symbols are interned. Symbols are uninterned if NIL.")
-(defvar *listening-socket* nil
- "The listening socket. NIL if not listening.")
-
(defvar *cached-atoms* #()
"A vector of cached atoms.")

0 comments on commit 32f604f

Please sign in to comment.