Browse files

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

  • Loading branch information...
1 parent 97d317f commit 42de9213dc1c1e46212aba39d7e00925e62843b0 @flambard committed Feb 4, 2013
Showing with 3 additions and 1 deletion.
  1. +3 −1 src/node-protocol.lisp
View
4 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)

0 comments on commit 42de921

Please sign in to comment.