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

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

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

revision 1.2 by pfdietz, Tue May 6 13:00:15 2003 UTC revision 1.3 by pfdietz, Wed May 7 00:23:05 2003 UTC
# Line 51  Line 51 
51                      (eql (cadr x) :ignored))                      (eql (cadr x) :ignored))
52          collect e)          collect e)
53    nil)    nil)
54    
55    (deftest the.8
56      (loop for e in *universe*
57            when (and (constantp e)
58                      (not (eql (eval `(the ,(type-of e) ,e)) e)))
59            collect e)
60      nil)
61    
62    (deftest the.9
63      (loop for e in *universe*
64            when (and (constantp e)
65                      (not (eql (eval `(the ,(class-of e) ,e)) e)))
66            collect e)
67      nil)
68    
69    (deftest the.10
70      (loop for e in *universe*
71            unless (eql (eval `(the ,(class-of e) ',e)) e)
72            collect e)
73      nil)
74    

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