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

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

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

revision 1.1 by pfdietz, Mon May 19 13:08:57 2003 UTC revision 1.2 by pfdietz, Mon May 19 13:36:34 2003 UTC
# Line 27  Line 27 
27    t nil)    t nil)
28    
29  (deftest disassemble.4  (deftest disassemble.4
30    (disassemble-it #'(lambda (x y) (cons y z)))    (disassemble-it (eval '(function (lambda (x y) (cons y z)))))
31    t nil)    t nil)
32    
33  (deftest disassemble.5  (deftest disassemble.5
34    (disassemble-it (let ((x 0)) #'(lambda () (incf x))))    (disassemble-it
35       (funcall (compile nil '(lambda () (let ((x 0)) #'(lambda () (incf x)))))))
36    t nil)    t nil)
37    
38  (deftest disassemble.6  (deftest disassemble.6

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