X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/e7c5f95a989882cabc1f4b6ea4598565ea317952..c29b2d2dda5ab82f7458666c154094693bfe9f1b:/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