summaryrefslogtreecommitdiff
path: root/Lisp
diff options
context:
space:
mode:
authorMatthias Benkard <code@mail.matthias.benkard.de>2008-02-18 23:48:12 +0100
committerMatthias Benkard <code@mail.matthias.benkard.de>2008-02-18 23:48:12 +0100
commita04134902d9e440d1b2eac8a1e6b0bddab7e9c68 (patch)
tree4a6bfeb394b956eeaa039f042457fabc4b97ce5d /Lisp
parent0a587207161a7f5d556c1f8a165938770f73fd78 (diff)
Replace all occurrences of MAKE-POINTER-WRAPPER with INTERN-POINTER-WRAPPER.
darcs-hash:f0fc8796bb1bc306d0731296acb8a424b79cb1a5
Diffstat (limited to 'Lisp')
-rw-r--r--Lisp/data-types.lisp12
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)