PORTABLE-CONDITION-SYSTEM> (let ((x 5))
                             (define-condition foo-condition () () 
                               (:report (lambda (condition stream)
                                          (format stream "~S ~S" condition x)))))

COMMON-LISP:WARNING:
   redefining PRINT-OBJECT (#<STANDARD-CLASS PORTABLE-CONDITION-SYSTEM::FOO-CONDITION>
                            #<SB-PCL:SYSTEM-CLASS COMMON-LISP:T>) in DEFMETHOD
FOO-CONDITION

PORTABLE-CONDITION-SYSTEM> (princ (make-condition 'foo-condition))
#<FOO-CONDITION {1009381953}> 5
#<FOO-CONDITION {1009381953}>