From 677f074370336cc5a35f10e9d00bd953a3c50f59 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Thu, 13 Mar 2008 21:26:38 +0100 Subject: OBJCL-CLASS-SET-BACKED-BY-LISP-CLASS/POINTER: Correct type signature. darcs-hash:6ce8803702bdf866eb984ef0984e4763115c7ec3 --- Lisp/libobjcl.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp index e8b66f4..de325cb 100644 --- a/Lisp/libobjcl.lisp +++ b/Lisp/libobjcl.lisp @@ -1005,7 +1005,7 @@ __enable-method-syntax__. (defun objcl-class-backed-by-lisp-class-p/pointer (class-ptr) (not (zerop (%objcl-class-backed-by-lisp-class-p class-ptr)))) -#? c-pointer t -> t +#? c-pointer t -> (defun objcl-class-set-backed-by-lisp-class/pointer (class-ptr backed-p) (%objcl-class-set-backed-by-lisp-class class-ptr (if backed-p 1 0))) -- cgit v1.2.3