Parent Directory | Revision Log | Patch
revision 1.1 by pfdietz, Sun Apr 20 13:17:45 2003 UTC | revision 1.2 by pfdietz, Sat Aug 2 18:35:19 2003 UTC | |
---|---|---|
# | Line 140 | Line 140 |
140 | (classify-error (assoc-if-not #'identity '((a . b) . c))) | (classify-error (assoc-if-not #'identity '((a . b) . c))) |
141 | type-error) | type-error) |
142 | ||
143 | (deftest assoc-if-not.error.12 | |
144 | (classify-error (assoc-if-not #'identity ((a . b) :bad (c . d)))) | |
145 | type-error) | |
146 | ||
147 | (deftest assoc-if-not.error.13 | |
148 | (classify-error (assoc-if-not #'identity 'y)) | |
149 | type-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |