Parent Directory | Revision Log | Patch
revision 1.3 by pfdietz, Thu Oct 17 13:16:55 2002 UTC | revision 1.4 by pfdietz, Mon Jan 13 14:11:49 2003 UTC | |
---|---|---|
# | Line 87 | Line 87 |
87 | (let ((x (list 'a 'b))) | (let ((x (list 'a 'b))) |
88 | (eqt x (funcall (compile nil `(lambda () ',x))))) | (eqt x (funcall (compile nil `(lambda () ',x))))) |
89 | t) | t) |
90 | ||
91 | (deftest compile.9 | |
92 | (classify-error (compile)) | |
93 | program-error) | |
94 | ||
95 | (deftest compile.10 | |
96 | (classify-error (compile nil '(lambda () nil) 'garbage)) | |
97 | program-error) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |