document BOOLEANP

Also move UNWIND-TRAIL to Misc. section in the manual.
nikodemus · Oct 31, 2011 · f61bba0 · f61bba0
1 parent 9d90370
commit f61bba0
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/TODO b/TODO
@@ -27,7 +27,6 @@
 ******* local-output
 ******* when-failing
 ******* count-failures
-******* booleanp
 ******* <=v
 ******* >v
 ******* >=v

diff --git a/doc/screamer.texinfo b/doc/screamer.texinfo
@@ -412,7 +412,6 @@ solution is very different.)
 @include include/macro-screamer-either.texinfo
 @include include/fun-screamer-fail.texinfo
 @include include/fun-screamer-trail.texinfo
-@include include/fun-screamer-unwind-trail.texinfo
 @include include/macro-screamer-all-values.texinfo
 @include include/macro-screamer-one-value.texinfo
 @include include/macro-screamer-for-effects.texinfo
@@ -466,7 +465,9 @@ solution is very different.)
 
 @chapter Miscellany
 
+@include include/fun-screamer-booleanp.texinfo
 @include include/fun-screamer-purge.texinfo
+@include include/fun-screamer-unwind-trail.texinfo
 @include include/fun-screamer-unwedge-screamer.texinfo
 @include include/var-screamer-star-dynamic-extent?star.texinfo
 @include include/var-screamer-star-screamer-version-star.texinfo

diff --git a/screamer.lisp b/screamer.lisp
@@ -3186,7 +3186,9 @@ Forward Checking, or :AC for Arc Consistency. Default is :GFC.")
 #+screamer-clos
 (defun-compile-time variable? (thing) (typep thing 'variable))
 
-(defun booleanp (x) (typep x 'boolean))
+(defun booleanp (x)
+  "Returns true iff X is T or NIL."
+  (typep x 'boolean))
 
 (defun infinity-min (x y) (and x y (min x y)))