/[gcl]/gcl/ansi-tests/define-condition.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/define-condition.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by pfdietz, Tue Mar 25 12:24:45 2003 UTC revision 1.9 by pfdietz, Thu Jul 3 12:14:04 2003 UTC
# Line 288  Line 288 
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)))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26