summaryrefslogtreecommitdiff
path: root/Lisp/policy.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp/policy.lisp')
-rw-r--r--Lisp/policy.lisp10
1 files changed, 7 insertions, 3 deletions
diff --git a/Lisp/policy.lisp b/Lisp/policy.lisp
index 03b4e62..71f7795 100644
--- a/Lisp/policy.lisp
+++ b/Lisp/policy.lisp
@@ -38,8 +38,12 @@
(define-returns-boolean-exception "characterAtIndex:")
-(defun objc-char->lisp-value (objc-char receiver selector)
+(defun returned-char-is-bool-p (receiver selector)
(declare (ignore receiver))
- (if (gethash (selector-name selector) *boolean-return-exceptions* nil)
+ (gethash (selector-name selector) *boolean-return-exceptions* nil))
+
+
+(defun objc-char->lisp-value (objc-char char-is-bool-p)
+ (if char-is-bool-p
objc-char
- (not (zerop objc-char)))) \ No newline at end of file
+ (not (zerop objc-char))))