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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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