summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-03-13 21:26:38 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-03-13 21:26:38 +0100
commit677f074370336cc5a35f10e9d00bd953a3c50f59 (patch)
treed2a292ef4fddd9c321b980d62b35c230af323bdb /Lisp
parentf02c1eeb97e34134870189c128520ce43ee7a2cb (diff)
OBJCL-CLASS-SET-BACKED-BY-LISP-CLASS/POINTER: Correct type signature.
darcs-hash:6ce8803702bdf866eb984ef0984e4763115c7ec3
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/libobjcl.lisp2
1 files changed, 1 insertions, 1 deletions
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)))