Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Sat May 17 18:20:10 2003 UTC | revision 1.4 by pfdietz, Sat May 17 21:38:18 2003 UTC | |
---|---|---|
# | Line 154 | Line 154 |
154 | (nil t t) | (nil t t) |
155 | ((a b c) a)) | ((a b c) a)) |
156 | ||
157 | ;;; Additional tests will be in the files testing file compilation | ;;; Other error tests |
158 | ||
159 | (deftest make-load-form.error.1 | |
160 | (classify-error (make-load-form)) | |
161 | program-error) | |
162 | ||
163 | (deftest make-load-form.error.2 | |
164 | (classify-error | |
165 | (let ((obj (make-instance 'make-load-form-class-04 :b '(a b c) :c 'a))) | |
166 | (make-load-form obj nil nil))) | |
167 | program-error) | |
168 | ||
169 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |