Parent Directory | Revision Log | Patch
revision 1.164 by pfdietz, Mon Nov 29 02:16:44 2004 UTC | revision 1.165 by pfdietz, Tue Nov 30 04:28:17 2004 UTC | |
---|---|---|
# | Line 8651 Broken at C::WT-MAKE-CLOSURE. | Line 8651 Broken at C::WT-MAKE-CLOSURE. |
8651 | 3) | 3) |
8652 | 60) | 60) |
8653 | ||
8654 | (deftest misc.454 | |
8655 | (let* ((form '(let ((v1 0)) (decf v1 (setq v1 -1)))) | |
8656 | (val1 (eval form)) | |
8657 | (val2 (funcall (compile nil `(lambda () ,form))))) | |
8658 | (if (eql val1 val2) :good | |
8659 | (list val1 val2))) | |
8660 | :good) | |
8661 | ||
8662 | ||
8663 | ||
8664 | ||
8665 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |