diff options
author | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 22:33:10 +0100 |
---|---|---|
committer | Matthias Benkard <code@mail.matthias.benkard.de> | 2008-02-15 22:33:10 +0100 |
commit | 2a61fbdd27d9a3ff4dea7b2f1f193668b13f2f1b (patch) | |
tree | f3b87235ee2a198206467f4e28ddc563fff89ba8 /Lisp/data-types.lisp | |
parent | 2bb2aff46342274f990903b273d4a2545f6f7f9f (diff) |
Specialise PRINT-OBJECT for FOREIGN-STRUCT values.
darcs-hash:cbdd6159c27549dcc033b9bf38c0bf4fd8c51054
Diffstat (limited to 'Lisp/data-types.lisp')
-rw-r--r-- | Lisp/data-types.lisp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp index 5d8c22b..cfbfcfb 100644 --- a/Lisp/data-types.lisp +++ b/Lisp/data-types.lisp @@ -302,6 +302,7 @@ an __exception__, you can simply send it the `self' message. (let ((new-wrapper (make-instance (ecase (typespec-primary-type typespec) (struct 'tagged-struct) (union 'tagged-union)) + :name (third typespec) :typespec typespec :pointer pointer :lisp-managed-cell managedp-cell))) |