Properties are special now!

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

diff --git a/src/description-class.lisp b/src/description-class.lisp
index 895c7ed..0669167 100644 (file)
--- a/src/description-class.lisp
+++ b/src/description-class.lisp
@@ -68,7 +68,8 @@
             (superclass standard-class))
   t)
 
             (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))))
 
 (defun description-class-name  (description-class)
     (read-from-string (symbol-name (class-name description-class))))


@@ -82,7 +83,7 @@
 ;;; For now. --drewc
 
   (pushnew class *defined-descriptions*)
 ;;; For now. --drewc
 
   (pushnew class *defined-descriptions*)

-  
+

 ;;; ENDHACK.
 
   (let* ((description (find-layer class)) 
 ;;; ENDHACK.
 
   (let* ((description (find-layer class))