288 |
(with-output-to-string (s) (print-object c s))) |
(with-output-to-string (s) (print-object c s))) |
289 |
"The report for condition-16") |
"The report for condition-16") |
290 |
|
|
291 |
|
(defun condition-17-report (c s) |
292 |
|
(format s "condition-17: ~A" (condition-17/s c))) |
293 |
|
|
294 |
(define-condition-with-tests condition-17 nil |
(define-condition-with-tests condition-17 nil |
295 |
((s :initarg :i1 :reader condition-17/s )) |
((s :initarg :i1 :reader condition-17/s )) |
296 |
(:report condition-17-report)) |
(:report condition-17-report)) |
297 |
|
|
|
(defun condition-17-report (c s) |
|
|
(format s "condition-17: ~A" (condition-17/s c))) |
|
|
|
|
298 |
(deftest condition-17-report.1 |
(deftest condition-17-report.1 |
299 |
(let ((*print-escape* nil) |
(let ((*print-escape* nil) |
300 |
(c (make-condition 'condition-17 :i1 1234))) |
(c (make-condition 'condition-17 :i1 1234))) |