/[gcl]/gcl/ansi-tests/defclass-forward-reference.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/defclass-forward-reference.lsp

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

revision 1.1 by pfdietz, Thu Apr 3 05:35:10 2003 UTC revision 1.2 by pfdietz, Thu Apr 3 12:18:28 2003 UTC
# Line 104  Line 104 
104                     (t 'good))))))))))                     (t 'good))))))))))
105    good)    good)
106    
107    (deftest defclass.forward-ref.4
108      (block nil
109        (let ((c1 (gensym))
110              (c2 (gensym))
111              (c3 (gensym))
112              (c4 (gensym))
113              (c5 (gensym)))
114          (unless (typep (eval `(defclass ,c4 nil nil)) 'class)
115            (return 1))
116          (unless (typep (eval `(defclass ,c5 nil nil)) 'class)
117            (return 2))
118          (unless (typep (eval `(defclass ,c1 (,c2 ,c3) nil)) 'class)
119            (return 3))
120          (unless (typep (eval `(defclass ,c2 (,c4 ,c5) nil)) 'class)
121            (return 4))
122          (let ((error-symbol
123                 (classify-error**
124                  `(progn
125                     (defclass ,c3 (,c5 ,c4) nil)
126                     (make-instance ',c1)))))
127            (and (symbolp error-symbol)
128                 (subtypep error-symbol 'error)
129                 'good))))
130      good)
131    
132      
133          
134        
135    
136    

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

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