summaryrefslogtreecommitdiff
path: root/Lisp/libobjcl.lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-16 21:12:37 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-16 21:12:37 +0100
commit5799411300f74f5c029c4c024cd6dfc50de168f6 (patch)
treece7d1fabcc8d6a703cfff314fdba51c4c6a2663b /Lisp/libobjcl.lisp
parent32eac2a29c9e6a62497f19cfd47148363201314e (diff)
Split MAKE-POINTER-WRAPPER into two parts.
darcs-hash:4b07101cbbba48fb579cb22ebac8ff8f520552c7
Diffstat (limited to 'Lisp/libobjcl.lisp')
-rw-r--r--Lisp/libobjcl.lisp6
1 files changed, 3 insertions, 3 deletions
diff --git a/Lisp/libobjcl.lisp b/Lisp/libobjcl.lisp
index 7c5fd8c..1a7e21a 100644
--- a/Lisp/libobjcl.lisp
+++ b/Lisp/libobjcl.lisp
@@ -412,7 +412,7 @@ conventional case for namespace identifiers in Objective-C."
(let ((selector-ptr (%objcl-find-selector selector-name)))
(if (cffi:null-pointer-p selector-ptr)
nil
- (make-pointer-wrapper 'selector :pointer selector-ptr))))
+ (intern-pointer-wrapper 'selector :pointer selector-ptr))))
(defun intern-selector-by-name (selector-name)
@@ -420,7 +420,7 @@ conventional case for namespace identifiers in Objective-C."
(assert (not (cffi:null-pointer-p selector-ptr))
(selector-ptr)
"%OBJCL-INTERN-SELECTOR must always return a selector.")
- (make-pointer-wrapper 'selector :pointer selector-ptr)))
+ (intern-pointer-wrapper 'selector :pointer selector-ptr)))
(declaim (ftype (function ((or objective-c-class id exception)) string)
@@ -718,7 +718,7 @@ separating parts by hyphens works nicely in all of the `:INVERT`,
(let ((superclass-ptr (%objcl-class-superclass class-ptr)))
(if (and (not (null-pointer-p superclass-ptr))
(%objcl-object-is-class superclass-ptr))
- (make-pointer-wrapper t :pointer superclass-ptr)
+ (intern-pointer-wrapper t :pointer superclass-ptr)
nil)))
(defun objcl-class-superclass (class)