Add missing file and fix initialzation

[clinton/lisp-on-lines.git] / src / description.lisp

diff --git a/src/description.lisp b/src/description.lisp
index 20362f8..4195bb2 100644 (file)
--- a/src/description.lisp
+++ b/src/description.lisp
@@ -2,17 +2,6 @@
 
 (define-description description ())
 
-(defgeneric find-description-class (name &optional errorp)        
-  (:method ((name (eql t)) &optional errorp)
-    (declare (ignore errorp))
-    (find-class 'description t))
-  (:method ((name symbol) &optional errorp)
-    (or (find-class (defining-description name) errorp)
-       (find-description-class t)))
-  (:method ((description description) &optional errorp)
-    (declare (ignore errorp))
-    (class-of description)))
-
 (defun find-description (name)
    (slot-value (find-description-class name) 'instance))
 
@@ -36,6 +25,7 @@
               (display-attribute attribute)))
           (attributes description))))
 
+
 (define-layered-method description-of (object)
   (find-description 't))