[armedbear-cvs] r14072 - trunk/abcl/src/org/armedbear/lisp

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Sun Aug 12 06:25:58 2012
New Revision: 14072

Log:
Make sure the PRINT-OBJECT generic function is loaded
when defining methods for it.

Modified:
   trunk/abcl/src/org/armedbear/lisp/defstruct.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/defstruct.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/defstruct.lisp	Sat Aug 11 12:06:01 2012	(r14071)
+++ trunk/abcl/src/org/armedbear/lisp/defstruct.lisp	Sun Aug 12 06:25:58 2012	(r14072)
@@ -669,6 +669,8 @@
        ,@(define-predicate)
        ,@(define-access-functions)
        ,@(define-copier)
+       ,@(when (or *dd-print-function* *dd-print-object*)
+               `((require "PRINT-OBJECT")))
        ,@(define-print-function)
        ',*dd-name*)))