Parent Directory | Revision Log | Patch
revision 1.18 by pfdietz, Thu Feb 27 02:54:58 2003 UTC | revision 1.19 by pfdietz, Sat Mar 1 12:11:55 2003 UTC | |
---|---|---|
# | Line 183 | Line 183 |
183 | 100)) | 100)) |
184 | nil) | nil) |
185 | ||
186 | ;;; Check that types that are supposed to be nonempty are | |
187 | ;;; not subtypes of NIL | |
188 | ||
189 | (deftest subtypep.nil.1 | |
190 | (loop for (type) in *subtype-table* | |
191 | unless (member type '(nil extended-char)) | |
192 | append (check-all-not-subtypep type nil)) | |
193 | nil) | |
194 | ||
195 | ||
196 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |