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

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

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

revision 1.8 by pfdietz, Thu Jul 3 12:14:04 2003 UTC revision 1.9 by pfdietz, Sat Aug 9 17:56:08 2003 UTC
# Line 9  Line 9 
9    (loop for x in *universe*    (loop for x in *universe*
10          for type = (type-of x)          for type = (type-of x)
11          unless (and (consp type) (eqt (car type) 'function))          unless (and (consp type) (eqt (car type) 'function))
12          count (not (eq (coerce x type) x)))          count (not (eql (coerce x type) x)))
13    0)    0)
14    
15  (deftest coerce.2  (deftest coerce.2
16    (loop for x in *universe*    (loop for x in *universe*
17          count (not (eq (coerce x t) x)))          count (not (eql (coerce x t) x)))
18    0)    0)
19    
20  (deftest coerce.3  (deftest coerce.3
21    (loop for x in *universe*    (loop for x in *universe*
22          for class = (class-of x)          for class = (class-of x)
23          count (and class (not (eq (coerce x class) x))))          count (and class (not (eql (coerce x class) x))))
24    0)    0)
25    
26  (deftest coerce.4  (deftest coerce.4

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