- (prin1 `(,(trace-info-what info) ,@arg-list)))
+ (prin1 `(,(trace-info-what info)
+ ,@(mapcar #'ensure-printable-object arg-list))))
(print-frame-call frame *standard-output*))
(terpri)
(trace-print frame (trace-info-print info))
(write-sequence (get-output-stream-string *standard-output*)
(print-frame-call frame *standard-output*))
(terpri)
(trace-print frame (trace-info-print info))
(write-sequence (get-output-stream-string *standard-output*)
(terpri)
(trace-print frame (trace-info-print-after info))
(write-sequence (get-output-stream-string *standard-output*)
(terpri)
(trace-print frame (trace-info-print-after info))
(write-sequence (get-output-stream-string *standard-output*)