25 |
(error () :good)) |
(error () :good)) |
26 |
:good) |
:good) |
27 |
|
|
28 |
(define-condition make-load-form-condition-03 () (a b c)) |
(define-condition make-load-form-condition-03 () ((a) (b) (c))) |
29 |
|
|
30 |
(deftest make-load-form.3 |
(deftest make-load-form.3 |
31 |
(handler-case |
(handler-case |
154 |
(nil t t) |
(nil t t) |
155 |
((a b c) a)) |
((a b c) a)) |
156 |
|
|
157 |
|
#| |
158 |
|
(defclass make-load-form-class-05a () |
159 |
|
((a :initarg :a))) |
160 |
|
|
161 |
|
(defclass make-load-form-class-05b (make-load-form-class-05a) |
162 |
|
((b :initarg :b))) |
163 |
|
|
164 |
|
(defmethod make-load-form ((obj make-load-form-class-05a) |
165 |
|
&optional (env t)) |
166 |
|
(declare (ignore env)) |
167 |
|
(let ((newobj (gensym))) |
168 |
|
`(let ((,newobj (allocate-instance (find-class 'make-load-form-class-04)))) |
169 |
|
,@(when (slot-boundp obj 'a) |
170 |
|
`((setf (slot-value ,newobj 'a) ',(slot-value obj 'a)))) |
171 |
|
,newobj))) |
172 |
|
|
173 |
|
(defmethod make-load-form :around ((obj make-load-form-class-05b) |
174 |
|
&optional (env t)) |
175 |
|
(declare (ignore env)) |
176 |
|
(let ((newobj (gensym))) |
177 |
|
`(let ((,newobj (allocate-instance (find-class 'make-load-form-class-04)))) |
178 |
|
,@(when (slot-boundp obj 'a) |
179 |
|
`((setf (slot-value ,newobj 'a) ',(slot-value obj 'a)))) |
180 |
|
,newobj))) |
181 |
|
|# |
182 |
|
|
183 |
|
|
184 |
|
|
185 |
;;; Other error tests |
;;; Other error tests |
186 |
|
|
187 |
(deftest make-load-form.error.1 |
(deftest make-load-form.error.1 |