/[gcl]/gcl/ansi-tests/make-load-form.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/make-load-form.lsp

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

revision 1.1 by pfdietz, Sat May 17 15:06:28 2003 UTC revision 1.2 by pfdietz, Sat May 17 15:20:38 2003 UTC
# Line 40  Line 40 
40    (let* ((obj (make-instance 'make-load-form-class-01))    (let* ((obj (make-instance 'make-load-form-class-01))
41           (fun #'make-load-form)           (fun #'make-load-form)
42           (methods (compute-applicable-methods fun (list obj))))           (methods (compute-applicable-methods fun (list obj))))
43      (values       (notnot-mv methods))
44       (typep* fun 'standard-generic-function)    t)
      (notnot-mv methods)))  
   t t)  
45    
46  (deftest make-load-form.5  (deftest make-load-form.5
47    (let* ((obj (make-make-load-form-struct-02))    (let* ((obj (make-make-load-form-struct-02))
48           (fun #'make-load-form)           (fun #'make-load-form)
49           (methods (compute-applicable-methods fun (list obj))))           (methods (compute-applicable-methods fun (list obj))))
50      (values      (notnot-mv methods))
51       (typep* fun 'standard-generic-function)    t)
      (notnot-mv methods)))  
   t t)  
52    
53  (deftest make-load-form.6  (deftest make-load-form.6
54    (let* ((obj (make-condition 'make-load-form-condition-03))    (let* ((obj (make-condition 'make-load-form-condition-03))
55           (fun #'make-load-form)           (fun #'make-load-form)
56           (methods (compute-applicable-methods fun (list obj))))           (methods (compute-applicable-methods fun (list obj))))
57      (values      (notnot-mv methods))
58       (typep* fun 'standard-generic-function)    t)
      (notnot-mv methods)))  
   t t)  
59    
60    (deftest make-load-form.7
61      (let* ((obj (make-instance 'make-load-form-class-01))
62             (fun #'make-load-form)
63             (methods (compute-applicable-methods fun (list obj nil))))
64        (notnot-mv methods))
65      t)
66    
67    (deftest make-load-form.8
68      (let* ((obj (make-make-load-form-struct-02))
69             (fun #'make-load-form)
70             (methods (compute-applicable-methods fun (list obj nil))))
71        (notnot-mv methods))
72      t)
73    
74    (deftest make-load-form.9
75      (let* ((obj (make-condition 'make-load-form-condition-03))
76             (fun #'make-load-form)
77             (methods (compute-applicable-methods fun (list obj nil))))
78        (notnot-mv methods))
79      t)
80      
81    (deftest make-load-form.10
82      (macrolet
83          ((%m (&environment env)
84               (let* ((obj (make-instance 'make-load-form-class-01))
85                      (fun #'make-load-form)
86                      (methods (compute-applicable-methods fun (list obj env))))
87                 (notnot-mv methods))))
88        (%m))
89      t)
90    
91    (deftest make-load-form.11
92      (macrolet
93          ((%m (&environment env)
94               (let* ((obj (make-make-load-form-struct-02))
95                      (fun #'make-load-form)
96                      (methods (compute-applicable-methods fun (list obj env))))
97                 (notnot-mv methods))))
98        (%m))
99      t)
100    
101    (deftest make-load-form.12
102      (macrolet
103          ((%m (&environment env)
104               (let* ((obj (make-condition 'make-load-form-condition-03))
105                      (fun #'make-load-form)
106                      (methods (compute-applicable-methods fun (list obj env))))
107                 (notnot-mv methods))))
108        (%m))
109      t)

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