X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/80fcd57c2870eac29dc3e21849d358b6b58adcf8..6de8d30004efc9337b8c40d2ff2d0a76651d23eb:/src/description-class.lisp diff --git a/src/description-class.lisp b/src/description-class.lisp index 895c7ed..0669167 100644 --- a/src/description-class.lisp +++ b/src/description-class.lisp @@ -68,7 +68,8 @@ (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)))) @@ -82,7 +83,7 @@ ;;; For now. --drewc (pushnew class *defined-descriptions*) - + ;;; ENDHACK. (let* ((description (find-layer class))