/[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.46 by pfdietz, Fri Nov 14 12:12:41 2003 UTC revision 1.47 by pfdietz, Fri Nov 14 13:39:35 2003 UTC
# Line 1927  Line 1927 
1927     0)     0)
1928    0)    0)
1929    
1930    (deftest misc.149a
1931      (funcall
1932       (compile nil '(lambda (a) (block b1 (- a (ignore-errors (return-from b1 1))))))
1933       0)
1934      1)
1935    
1936  ;;; cmucl (11 2003 image)  "NIL is not of type C::CONTINUATION"  ;;; cmucl (11 2003 image)  "NIL is not of type C::CONTINUATION"
1937  (deftest misc.150  (deftest misc.150
1938    (funcall    (funcall
# Line 2357  Line 2363 
2363    1)    1)
2364    
2365        
2366    ;;;   segmentation violation at #XA4A0B59
2367    
2368    (deftest misc.172
2369      (funcall
2370       (compile
2371        nil
2372        '(lambda (a b c)
2373           (declare (notinline list apply))
2374           (declare (optimize (safety 3)))
2375           (declare (optimize (speed 0)))
2376           (declare (optimize (debug 0)))
2377           (labels ((%f12 (f12-1 f12-2)
2378                          (labels ((%f2 (f2-1 f2-2)
2379                                        (flet ((%f6 ()
2380                                                    (flet ((%f18
2381                                                            (f18-1
2382                                                             &optional (f18-2 a)
2383                                                             (f18-3 -207465075)
2384                                                             (f18-4 a))
2385                                                            (return-from %f12 b)))
2386                                                      (%f18 -3489553
2387                                                            -7
2388                                                            (%f18 (%f18 150 -64 f12-1)
2389                                                                  (%f18 (%f18 -8531)
2390                                                                        11410)
2391                                                                  b)
2392                                                            56362666))))
2393                                          (labels ((%f7
2394                                                    (f7-1 f7-2
2395                                                          &optional (f7-3 (%f6)))
2396                                                    7767415))
2397                                            f12-1))))
2398                            (%f2 b -36582571))))
2399             (apply #'%f12 (list 774 -4413)))))
2400       0 1 2)
2401      774)

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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