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

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

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

revision 1.3 by pfdietz, Thu Apr 24 09:50:08 2003 UTC revision 1.4 by pfdietz, Sat Apr 26 01:35:12 2003 UTC
# Line 183  Line 183 
183    nil)    nil)
184    
185  (unless (eql 0.0s0 -0.0s0)  (unless (eql 0.0s0 -0.0s0)
186    (deftest subtypep.short-float.zero.2    (deftest subtypep.short-float.zero.2a
187      (values (subtypep '(short-float 0.0s0)      (values (subtypep '(short-float 0.0s0)
188                        '(or (short-float (0.0s0)) (member 0.0s0))))                        '(or (short-float (0.0s0)) (member 0.0s0))))
189      nil)      nil)
190    (deftest subtypep.short-float.zero.    (deftest subtypep.short-float.zero.2b
191      (values (subtypep '(short-float 0.0s0)      (values (subtypep '(short-float 0.0s0)
192                        '(or (short-float (0.0s0)) (member -0.0s0))))                        '(or (short-float (0.0s0)) (member -0.0s0))))
193      nil))      nil))

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

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