|
@@ -69,7 +69,7 @@ error handling code from normal operational code."
|
69
|
69
|
(assert-equal ___
|
70
|
70
|
(handler-case (my-divide 6 2)
|
71
|
71
|
(my-div-by-zero-error (condition) :zero-div-error)
|
72
|
|
- (my-non-number-args-error (condition) :bad-args))
|
|
72
|
+ (my-non-number-args-error (condition) :bad-args)))
|
73
|
73
|
(assert-equal ___
|
74
|
74
|
(handler-case (my-divide 6 0)
|
75
|
75
|
(my-div-by-zero-error (condition) :zero-div-error)
|
|
@@ -77,7 +77,7 @@ error handling code from normal operational code."
|
77
|
77
|
(assert-equal ___
|
78
|
78
|
(handler-case (my-divide 6 "woops")
|
79
|
79
|
(my-div-by-zero-error (condition) :zero-div-error)
|
80
|
|
- (my-non-number-args-error (condition) :bad-args)))))
|
|
80
|
+ (my-non-number-args-error (condition) :bad-args))))
|
81
|
81
|
|
82
|
82
|
|
83
|
83
|
;; ----
|