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

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

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

Legend:
Removed from v.1.164  
changed lines
  Added in v.1.165

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