Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |