summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp7
1 files changed, 6 insertions, 1 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index c15282d..6c8469a 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -92,10 +92,15 @@
(defcfun ("objcl_alignof_type" %objcl-alignof-type) :long
(typespec :string))
-(defcfun objcl-get-nil :pointer)
+(defcfun ("objcl_get_nil" %objcl-get-nil) :pointer)
(defcfun objcl-get-yes :long)
(defcfun objcl-get-no :long)
+(defun objcl-get-nil ()
+ ;; %OBJCL-GET-NIL can return NIL for CLISP, which CFFI refuses to
+ ;; accept as an argument to POINTER-EQ. This is weird.
+ (or (%objcl-get-nil) (make-pointer 0)))
+
(defun initialise-runtime ()
"Initialise the Objective C runtime.