180 |
SLOT-SPECS)) |
SLOT-SPECS)) |
181 |
*condition-class-list*) |
*condition-class-list*) |
182 |
#+kcl (setf (get ',name #+akcl 'si::s-data #-akcl 'si::is-a-structure) nil) |
#+kcl (setf (get ',name #+akcl 'si::s-data #-akcl 'si::is-a-structure) nil) |
183 |
(setf (get ',name 'documentation) ',documentation)) |
; (setf (get ',name 'documentation) ',documentation) |
184 |
|
) |
185 |
,@(when REPORT-FUNCTION |
,@(when REPORT-FUNCTION |
186 |
`((DEFMETHOD PRINT-OBJECT ((X ,NAME) STREAM) |
`((DEFMETHOD PRINT-OBJECT ((X ,NAME) STREAM) |
187 |
(IF *PRINT-ESCAPE* |
(IF *PRINT-ESCAPE* |