From 5799411300f74f5c029c4c024cd6dfc50de168f6 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 16 Feb 2008 21:12:37 +0100 Subject: Split MAKE-POINTER-WRAPPER into two parts. darcs-hash:4b07101cbbba48fb579cb22ebac8ff8f520552c7 --- Lisp/libobjcl.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Lisp/libobjcl.lisp') 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) -- cgit v1.2.3