/[gcl]/gcl/ansi-tests/subtypep.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subtypep.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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      

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26