Descriptoons are represented as ContextL classes and layers. To avoid nameclashes with other classes or layers, the name of a description is actually mappend to an internal unambiguous name which is used instead of the regular name.
|#
#|
Descriptoons are represented as ContextL classes and layers. To avoid nameclashes with other classes or layers, the name of a description is actually mappend to an internal unambiguous name which is used instead of the regular name.
|#
@@ -23,26+40,35 @@ Descriptoons are represented as ContextL classes and layers. To avoid nameclashe
(make-enclosing-package "DESCRIPTION-DEFINERS"))
(defun defining-description (name)
(make-enclosing-package "DESCRIPTION-DEFINERS"))
(defun defining-description (name)
- "Takes the name of a layer and returns its internal name."
+ "Takes the name of a description and returns its internal name."
(case name
(case name
- ((t) 't)
((nil) (error "NIL is not a valid description name."))
(otherwise (enclose-symbol name *description-definers*))))
((nil) (error "NIL is not a valid description name."))
(otherwise (enclose-symbol name *description-definers*))))