From a04134902d9e440d1b2eac8a1e6b0bddab7e9c68 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Mon, 18 Feb 2008 23:48:12 +0100 Subject: Replace all occurrences of MAKE-POINTER-WRAPPER with INTERN-POINTER-WRAPPER. darcs-hash:f0fc8796bb1bc306d0731296acb8a424b79cb1a5 --- Lisp/data-types.lisp | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index cd6ba71..3de1185 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -43,9 +43,9 @@ (declare (ignore environment)) ;; (TYPE-OF INSTANCE) works because MAKE-POINTER-WRAPPER accepts ;; subclasses of ID as well as ID itself. - `(make-pointer-wrapper ',(type-of instance) - :pointer (make-pointer - ,(pointer-address (pointer-to instance))))) + `(intern-pointer-wrapper ',(type-of instance) + :pointer (make-pointer + ,(pointer-address (pointer-to instance))))) ;; The following may be needed by some implementations (namely Allegro @@ -123,9 +123,9 @@ The following calls are all equivalent: (defmethod make-load-form ((selector selector) &optional environment) (declare (ignore environment)) - `(make-pointer-wrapper 'selector - :pointer (make-pointer - ,(pointer-address (pointer-to selector))))) + `(intern-pointer-wrapper 'selector + :pointer (make-pointer + ,(pointer-address (pointer-to selector))))) (defclass id (c-pointer-wrapper) -- cgit v1.2.3