/[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.45 by pfdietz, Fri Nov 14 03:58:18 2003 UTC revision 1.46 by pfdietz, Fri Nov 14 12:12:41 2003 UTC
# Line 2291  Line 2291 
2291     1 2 3)     1 2 3)
2292    3)    3)
2293    
2294    (deftest misc.169
2295      (funcall
2296       (compile
2297        nil
2298        '(lambda (a b c)
2299           (if t -21705
2300             (flet ((%f15 (f15-1 f15-2)
2301                          b))
2302               (block b4
2303                 (%f15 -11112264
2304                       (labels ((%f2
2305                                 (f2-1
2306                                  &optional (f2-2 (if b -5485340 -1534))
2307                                  (f2-3 -6))
2308                                 (return-from b4 f2-1)))
2309                         (return-from b4
2310                           (if b (%f2 c -320813) (%f2 b a a))))))))))
2311       1 2 3)
2312      -21705)
2313    
2314    ;;; sbcl (0.8.5.26)
2315    ;;; failed AVER: "(FUNCTIONAL-LETLIKE-P CLAMBDA)"
2316    
2317    (deftest misc.170
2318      (funcall
2319       (compile
2320        nil
2321        '(lambda (b)
2322           (flet ((%f14 (f14-1 f14-2)
2323                        (if (if (eql b -7) nil nil)
2324                            (labels ((%f10 (f10-1 f10-2 f10-3)
2325                                           7466))
2326                              (return-from %f14
2327                                (min
2328                                 (multiple-value-call #'%f10 (values 0 492 f14-1))
2329                                 (max 11 f14-1)
2330                                 (multiple-value-call #'%f10
2331                                                      (values 439171 f14-2 0)))))
2332                          1)))
2333             (let ((v6 (%f14 (logcount b) -386283)))
2334               56211))))
2335       17)
2336      56211)
2337    
2338    ;;; The value NIL is not of type SB-C::NODE.
2339    
2340    (deftest misc.171
2341      (funcall
2342       (compile
2343        nil
2344        '(lambda (b)
2345           (block b6
2346             (flet ((%f11 (f11-1 f11-2 &optional (f11-3 -2369157) (f11-4 409468))
2347                          (return-from b6 1)))
2348               (block b2
2349                 (flet ((%f10 (f10-1 f10-2
2350                                &optional (f10-3 (return-from b6 (return-from b6 -3))))
2351                         -8))
2352                   (%f10
2353                    (multiple-value-call #'%f11 (values -5945959 1654846427 -22))
2354                    (return-from b2 b)
2355                    (return-from b2 31258361))))))))
2356       10)
2357      1)
2358    
2359      

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

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