Initial commit of new description code (warning: broken!)

[clinton/lisp-on-lines.git] / src / display-test.lisp

diff --git a/src/display-test.lisp b/src/display-test.lisp
index 6b3f9c8..d076014 100644 (file)
--- a/src/display-test.lisp
+++ b/src/display-test.lisp
@@ -9,7 +9,7 @@
   (define-display ((description test-display))
    t "BRILLANT!")
   
-  (is (equalp "BRILLANT!" (display-using-description 
+  #+nil(is (equalp "BRILLANT!" (display-using-description 
                           (find-description 'test-display) 
                           nil :foo))))