From 2a61fbdd27d9a3ff4dea7b2f1f193668b13f2f1b Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Fri, 15 Feb 2008 22:33:10 +0100 Subject: Specialise PRINT-OBJECT for FOREIGN-STRUCT values. darcs-hash:cbdd6159c27549dcc033b9bf38c0bf4fd8c51054 --- Lisp/data-types.lisp | 1 + 1 file changed, 1 insertion(+) (limited to 'Lisp/data-types.lisp') 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))) -- cgit v1.2.3