- (let ((object (make-load-form-error-object condition)))
- ;; If the MAKE-LOAD-FORM-ERROR itself has been
- ;; externalized, the object will only have it's string
- ;; representation.
- (format stream "~@<Unable to externalize ~:[~S~;~A~], ~
- error from ~S:~:@>~% "
- (stringp object)
- object
- 'make-load-form)
- (print-object (encapsulated-condition condition) stream)))))
-
-(def!method make-load-form ((condition make-load-form-error) &optional env)
- (let ((object (make-load-form-error-object condition)))
- ;; Safe, because neither the object nor the encapsulated condition
- ;; should contain any references to the error itself. However, the
- ;; object will need to be converted to its string representation,
- ;; since the chances are that it's not externalizable.
- `(make-condition 'make-load-form-error
- :condition ,(make-condition-load-form
- (encapsulated-condition condition) env)
- :object ,(if (stringp object)
- object
- (write-to-string
- object :pretty t :circle t :escape t :readably nil)))))
+ (format stream "~&Evaluation of~% ~S~%~
+ caused error:~% ~A~%"
+ (program-error-form condition)
+ (encapsulated-condition condition)))))