Make +PASS-THROUGH+ available at load-time.

flambard · Feb 4, 2013 · 42de921 · 42de921
1 parent 97d317f
commit 42de921
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/node-protocol.lisp b/src/node-protocol.lisp
@@ -1,6 +1,8 @@
 (in-package :cleric)
 
-(defconstant +pass-through+ 112)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (defconstant +pass-through+ 112)
+  )
 
 (alexandria:define-constant +tock+
     (make-array 4 :element-type 'octet :initial-element 0)