Added standard descriptions and UCW integration.
[clinton/lisp-on-lines.git] / src / description-test.lisp
index c42d672..1910dae 100644 (file)
     (with-active-layers (test-description-layer)
       (is (equal "BRILLANT-IN-LAYER" (slot-value att 'lol::label))))))
 
-(deftest test-special-slot-values ()
-  (test-simple-attributes)
-  (is (equalp '(lol::label "BRILLANT!") 
-               (lol::special-slot-values 
-                (find-description 'test-description) 'test-attribute))))
-
 (defparameter *atomic-type-specifiers* 
   '(arithmetic-error                  function            simple-condition           
     array                             generic-function    simple-error