/[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.197 by pfdietz, Thu Dec 30 01:32:53 2004 UTC revision 1.198 by pfdietz, Thu Dec 30 23:57:03 2004 UTC
# Line 9551  Broken at C::WT-MAKE-CLOSURE. Line 9551  Broken at C::WT-MAKE-CLOSURE.
9551                                  ))                                  ))
9552                       (declare (special *s8*))                       (declare (special *s8*))
9553                       0))))                       0))))
   0)  
9554      0)
9555    
9556    ;;; Incorrect return value
9557    ;;; (This also causes an error in CLISP)
9558    
9559    (deftest misc.518
9560      (funcall
9561       (compile nil '(lambda ()
9562                       (declare (optimize (compilation-speed 0) (safety 1)
9563                                          (debug 1) (space 0) (speed 3)))
9564                       (flet ((%f10 (&optional (f10-1 0) (f10-2 0) &key)
9565                                    (progn
9566                                      (tagbody
9567                                       (decf f10-2)
9568                                       (return-from %f10
9569                                         (complex (unwind-protect (go tag7))
9570                                                  0))
9571                                       tag7)
9572                                      f10-2)))
9573                         (if (evenp (%f10 0 0)) 0 2140390)))))
9574      2140390)
9575    

Legend:
Removed from v.1.197  
changed lines
  Added in v.1.198

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