167 |
`(progn |
`(progn |
168 |
(declaim (special ,class-var-name)) |
(declaim (special ,class-var-name)) |
169 |
|
|
170 |
(eval-when #+gcl (load eval compile) |
(report-and-ignore-errors (setq ,class-var-name |
171 |
#-gcl (:load-toplevel :compile-toplevel :execute) |
(defclass ,@(cdr args)))) |
|
(ignore-errors (setq ,class-var-name (defclass ,@(cdr args))))) |
|
172 |
|
|
173 |
(deftest ,(make-defclass-test-name class-name "-DEFCLASS-RETURNS-CLASS") |
(deftest ,(make-defclass-test-name class-name "-DEFCLASS-RETURNS-CLASS") |
174 |
(eqt (find-class ',class-name) ,class-var-name) |
(eqt (find-class ',class-name) ,class-var-name) |