# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1458906449 0
# Node ID e2bb4ea1bfe7dbb44d9599e91ee8dfbd0b7f8b42
# Parent  1ef24327a4cb1f3ec148a216cf50b4a6c62aa4ee
Add docstrings

Need to constantize these at some point...

diff -r 1ef24327a4cb -r e2bb4ea1bfe7 src/wam.lisp
--- a/src/wam.lisp	Fri Mar 25 11:44:54 2016 +0000
+++ b/src/wam.lisp	Fri Mar 25 11:47:29 2016 +0000
@@ -32,8 +32,13 @@
 (define-constant +tag-functor+   #b11
   :documentation "A functor.")
 
-(defparameter functor-arity-width 4)
-(defparameter functor-arity-bitmask #b1111)
+
+(defparameter functor-arity-width 4
+  "Number of bits dedicated to functor arity.")
+
+(defparameter functor-arity-bitmask #b1111
+  "Bitmask for the functor arity bits.")
+
 
 (deftype heap-cell ()
   `(unsigned-byte ,+cell-width+))