Add docstrings
Need to constantize these at some point...
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 25 Mar 2016 11:47:29 +0000 |
| parents |
1ef24327a4cb
|
| children |
2579f5d00526
|
| branches/tags |
(none) |
| files |
src/wam.lisp |
Changes
--- 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+))