X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/4867c86f7dce578458c4130d9a8cfbf1041f7c4a..4358148e6c67fcc2ae24050c54d8050b4dc03f9d:/src/description-test.lisp

diff --git a/src/description-test.lisp b/src/description-test.lisp
index c42d672..1910dae 100644
--- a/src/description-test.lisp
+++ b/src/description-test.lisp
@@ -40,12 +40,6 @@
     (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