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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Sat Feb 15 22:08:59 2003 UTC revision 1.3 by pfdietz, Fri Feb 21 00:56:39 2003 UTC
# Line 318  Line 318 
318                       collect (list int-type real-type)))                       collect (list int-type real-type)))
319    nil)    nil)
320    
321    (deftest subtypep.integer.real.8
322      (check-equivalence
323       '(and (integer 4) (real * 10))
324       '(integer 4 10))
325      nil)
326    
327    (deftest subtypep.integer.real.9
328      (check-equivalence
329       '(and (integer * 10) (real 4))
330       '(integer 4 10))
331      nil)
332    
333    (deftest subtypep.integer.real.10
334      (check-equivalence
335       '(and (integer 4) (real * (10)))
336       '(integer 4 9))
337      nil)
338    
339    (deftest subtypep.integer.real.11
340      (check-equivalence
341       '(and (integer * 10) (real (4)))
342       '(integer 5 10))
343      nil)
344    
345    
346  ;;; Between integer and rational types  ;;; Between integer and rational types
347    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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