diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 19:33:34 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 19:33:34 +0100 |
commit | 996fa5e19c1ec8603b99a4ce29b85b7af7468a78 (patch) | |
tree | a544291c00f53951ae979d8b1749212f0176919e /Lisp/policy.lisp | |
parent | 30221c2f6a6384ddb6a3e8a9cc1f191f2791ce12 (diff) |
Refine the public interface to Lisp-managed foreign structs and unions.
darcs-hash:b3c869d86d1e4655ec1562dade69cbdb93600eed
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) |