HCoop
/
clinton
/
lisp-on-lines.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added NULL description and added :when option for attribute active
[clinton/lisp-on-lines.git]
/
src
/
description-test.lisp
diff --git
a/src/description-test.lisp
b/src/description-test.lisp
index
c42d672
..
1910dae
100644
(file)
--- 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))))))
(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
(defparameter *atomic-type-specifiers*
'(arithmetic-error function simple-condition
array generic-function simple-error