(superclass standard-class))
t)
-(defclass standard-description-object (standard-layer-object) ())
+(defclass standard-description-object (standard-layer-object)
+ ())
(defun description-class-name (description-class)
(read-from-string (symbol-name (class-name description-class))))
;;; For now. --drewc
(pushnew class *defined-descriptions*)
-
+
;;; ENDHACK.
(let* ((description (find-layer class))