From f97fad55542df30ece4e076ed31043124a0c67f8 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 18 Oct 2007 12:30:31 +0200 Subject: Improve CLISP compatibility. darcs-hash:ed5c2f6e5f03f8adabfb89279d275a7ce88821c7 --- Lisp/libobjcl.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Lisp/libobjcl.lisp') 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. -- cgit v1.2.3