+(eval-when (:compile-toplevel :load-toplevel :execute)
+ (defvar +plist-header+ "sdata"
+ "string that starts an encoded plist"))
+
+(defconstant +plist-header-length+ (length +plist-header+))
+
+(defparameter *wol-version* '(0 1 0))
+
+(defvar *wol-stream* nil
+ "The output stream for the current request")