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