diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-19 12:54:49 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-19 12:54:49 +0100 |
| commit | 619b17ce5eb96b3cfd5f2d94174270a31e46871c (patch) | |
| tree | ec5100fc26035969d1a90947b9e20fb14ff1f35d /Lisp/policy.lisp | |
| parent | 982965f8e14194dd1660eb1faff9a3bd8be2a00b (diff) | |
Reimplement slot reading.
darcs-hash:bdef9c8f4c3fb2121456295da23fbe679265a15b
Diffstat (limited to 'Lisp/policy.lisp')
| -rw-r--r-- | Lisp/policy.lisp | 10 |
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)))) |