diff options
Diffstat (limited to 'Lisp/policy.lisp')
-rw-r--r-- | Lisp/policy.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Lisp/policy.lisp b/Lisp/policy.lisp index 41484fa..03b4e62 100644 --- a/Lisp/policy.lisp +++ b/Lisp/policy.lisp @@ -18,6 +18,7 @@ (in-package #:mulk.objective-cl) +;; FIXME: Document. (defun define-returns-boolean-exception (selector-designator) (let ((key (typecase selector-designator (string selector-designator) @@ -25,6 +26,7 @@ (setf (gethash key *boolean-return-exceptions*) t))) +;; FIXME: Document. (defun undefine-returns-boolean-exceptions (selector-designator) (let ((key (typecase selector-designator (string selector-designator) |