/[gcl]/gcl/ansi-tests/random-type-prop.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/random-type-prop.lsp

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

revision 1.8 by pfdietz, Mon Mar 14 03:46:11 2005 UTC revision 1.9 by pfdietz, Mon Mar 14 13:00:20 2005 UTC
# Line 309  Line 309 
309    (rcase    (rcase
310     (1 'complex)     (1 'complex)
311     (1 'number)     (1 'number)
312     #-gcl (1 `(complex ,(upgraded-complex-part-type (type-of (realpart val)))))     #-gcl (1
313              (let ((t1 (type-of (realpart val)))
314                    (t2 (type-of (imagpart val))))
315                (cond
316                 ((subtypep t1 t2) `(complex ,(upgraded-complex-part-type t2)))
317                 ((subtypep t2 t1) `(complex ,(upgraded-complex-part-type t1)))
318                 (t
319                  `(complex ,(upgraded-complex-part-type `(or ,t1 ,t2)))))))
320     (1 `(eql ,val))))     (1 `(eql ,val))))
321    
322  (defmethod make-random-type-containing ((val generic-function))  (defmethod make-random-type-containing ((val generic-function))

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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