/[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.146 by pfdietz, Wed Sep 15 10:39:56 2004 UTC revision 1.147 by pfdietz, Thu Sep 16 14:01:48 2004 UTC
# Line 7845  Broken at C::WT-C-INLINE-LOC. Line 7845  Broken at C::WT-C-INLINE-LOC.
7845     -279)     -279)
7846    -279)    -279)
7847    
7848    ;;; Stack size too large
7849    
7850    (deftest misc.408
7851      (let #+armedbear ((jvm::*catch-errors* nil))
7852           nil
7853           (funcall
7854            (compile
7855             nil
7856             '(lambda (a)
7857                (declare (type (integer 0 0) a))
7858                (declare (ignorable a))
7859                (declare (optimize (compilation-speed 0) (safety 3) (speed 0)
7860                                   (debug 1) (space 0)))
7861                (progn (tagbody (dotimes (iv4 0
7862                                              (let ((v5 (cons 0 (if (go 3) 0 0)))) 0))
7863                                  (progn 0))
7864                                3)
7865                       (ash 0 (min 16 0)))))
7866            0))
7867      0)
7868    
7869    

Legend:
Removed from v.1.146  
changed lines
  Added in v.1.147

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