diff options
| author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 23:48:12 +0100 |
|---|---|---|
| committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-18 23:48:12 +0100 |
| commit | a04134902d9e440d1b2eac8a1e6b0bddab7e9c68 (patch) | |
| tree | 4a6bfeb394b956eeaa039f042457fabc4b97ce5d | |
| parent | 0a587207161a7f5d556c1f8a165938770f73fd78 (diff) | |
Replace all occurrences of MAKE-POINTER-WRAPPER with INTERN-POINTER-WRAPPER.
darcs-hash:f0fc8796bb1bc306d0731296acb8a424b79cb1a5
| -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) |