Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Define control message constants at compile time.

  • Loading branch information...
commit 97d317fe40c56e7124a4f622afe7a8ce61338c9d 1 parent 852d8c1
@flambard authored
Showing with 15 additions and 13 deletions.
  1. +15 −13 src/control-message.lisp
View
28 src/control-message.lisp
@@ -18,19 +18,21 @@
;;
;;; Control message tags
-(defconstant +cm-link+ 1)
-(defconstant +cm-send+ 2)
-(defconstant +cm-exit+ 3)
-(defconstant +cm-unlink+ 4)
-(defconstant +cm-node-link+ 5)
-(defconstant +cm-reg-send+ 6)
-(defconstant +cm-group-leader+ 7)
-(defconstant +cm-exit2+ 8)
-;; New control messages for distrvsn = 1 (OTP R4)
-(defconstant +cm-send-tt+ 12)
-(defconstant +cm-exit-tt+ 13)
-(defconstant +cm-reg-send-tt+ 16)
-(defconstant +cm-exit2-tt+ 18)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defconstant +cm-link+ 1)
+ (defconstant +cm-send+ 2)
+ (defconstant +cm-exit+ 3)
+ (defconstant +cm-unlink+ 4)
+ (defconstant +cm-node-link+ 5)
+ (defconstant +cm-reg-send+ 6)
+ (defconstant +cm-group-leader+ 7)
+ (defconstant +cm-exit2+ 8)
+ ;; New control messages for distrvsn = 1 (OTP R4)
+ (defconstant +cm-send-tt+ 12)
+ (defconstant +cm-exit-tt+ 13)
+ (defconstant +cm-reg-send-tt+ 16)
+ (defconstant +cm-exit2-tt+ 18)
+ )
;;;

0 comments on commit 97d317f

Please sign in to comment.
Something went wrong with that request. Please try again.