diff options
| -rw-r--r-- | Lisp/data-types.lisp | 12 |
1 files 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) |