Permalink
Browse files

Define node type constants at compile time.

Wrap definitions of +NODE-TYPE-HIDDEN+ and +NODE-TYPE-ERLANG+ in an
EVAL-WHEN since they are needed during compile time by
READ-PORT-PLEASE2-RESPONSE.
  • Loading branch information...
1 parent dea123b commit b9d03e0ab99ddb74d64971f941804e41335014aa @flambard committed Nov 20, 2012
Showing with 4 additions and 2 deletions.
  1. +4 −2 src/epmd.lisp
View
@@ -14,8 +14,10 @@
(defconstant +names-req+ #\n)
;; Node type tags
-(defconstant +node-type-hidden+ 72)
-(defconstant +node-type-erlang+ 77)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defconstant +node-type-hidden+ 72)
+ (defconstant +node-type-erlang+ 77)
+ )
(defconstant +protocol-tcpip4+ 0)

0 comments on commit b9d03e0

Please sign in to comment.