Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Moved distribution capability flag constants from constants.lisp to h…

…andshake.lisp.
  • Loading branch information...
commit bf721f92fe64402cea61dfc2f0902574deb522c0 1 parent 569716b
@flambard authored
Showing with 18 additions and 18 deletions.
  1. +0 −18 src/constants.lisp
  2. +18 −0 src/handshake.lisp
View
18 src/constants.lisp
@@ -27,21 +27,3 @@
(defconstant +new-reference-ext+ 114)
(defconstant +small-atom-ext+ 115)
(defconstant +fun-ext+ 117)
-
-
-;;; Distribution header capability flags (from dist.hrl)
-(defconstant +dflag-published+ #x0001)
-(defconstant +dflag-atom-cache+ #x0002) ;; old atom cache
-(defconstant +dflag-extended-references+ #x0004)
-(defconstant +dflag-dist-monitor+ #x0008)
-(defconstant +dflag-fun-tags+ #x0010)
-(defconstant +dflag-dist-monitor-name+ #x0020)
-(defconstant +dflag-hidden-atom-cache+ #x0040)
-(defconstant +dflag-new-fun-tags+ #x0080)
-(defconstant +dflag-extended-pids-ports+ #x0100)
-(defconstant +dflag-export-ptr-tag+ #x0200)
-(defconstant +dflag-bit-binaries+ #x0400)
-(defconstant +dflag-new-floats+ #x0800)
-(defconstant +dflag-unicode-io+ #x1000)
-(defconstant +dflag-dist-hdr-atom-cache+ #x2000)
-(defconstant +dflag-small-atom-tags+ #x4000)
View
18 src/handshake.lisp
@@ -2,6 +2,24 @@
(in-package :cleric)
+;;; Distribution header capability flags (from dist.hrl)
+(defconstant +dflag-published+ #x0001)
+(defconstant +dflag-atom-cache+ #x0002) ;; old atom cache
+(defconstant +dflag-extended-references+ #x0004)
+(defconstant +dflag-dist-monitor+ #x0008)
+(defconstant +dflag-fun-tags+ #x0010)
+(defconstant +dflag-dist-monitor-name+ #x0020)
+(defconstant +dflag-hidden-atom-cache+ #x0040)
+(defconstant +dflag-new-fun-tags+ #x0080)
+(defconstant +dflag-extended-pids-ports+ #x0100)
+(defconstant +dflag-export-ptr-tag+ #x0200)
+(defconstant +dflag-bit-binaries+ #x0400)
+(defconstant +dflag-new-floats+ #x0800)
+(defconstant +dflag-unicode-io+ #x1000)
+(defconstant +dflag-dist-hdr-atom-cache+ #x2000)
+(defconstant +dflag-small-atom-tags+ #x4000)
+
+
;;;
;;; Name message
;;
Please sign in to comment.
Something went wrong with that request. Please try again.