Ignore:
Timestamp:
Oct 18, 2010, 10:36:38 PM (9 years ago)
Author:
gz
Message:

Don't muffle warnings when running test, as that affects the return values from compile-file. Tweak tests to not cause warnings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/misc.lsp

    r9860 r14368  
    12771277             (declare (optimize speed))
    12781278             (block b6
    1279                (flet ((%f8 (f8-1 f8-2) b))
     1279               (flet ((%f8 (f8-1 f8-2) f8-1 f8-2 b))
    12801280                 (%f8 (%f8 c 338) (if t (return-from b6 a) c))))))
    12811281    (misc.106-fn -30271 -1 -3043))
     
    15961596  (let* ((fn1 '(lambda (b)
    15971597                 (declare (optimize (safety 1)))
    1598                  (labels ((%f7 (f7-1 f7-2)
     1598                 (labels ((%f7 (f7-1 f7-2) f7-1 f7-2
    15991599                               (let ((v2 (setq b 723149855)))
    16001600                                 25620)))
     
    20702070               (block b5
    20712071                 (let ((v1 (let ((v8 (unwind-protect 9365)))
     2072                             v8
    20722073                             8862008)))
    20732074                   (*
     
    31743175             (declare (optimize (speed 0)))
    31753176             (declare (optimize (debug 0)))
    3176              (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0))
     3177             a b c
     3178             (flet ((%f7 (&optional (f7-1 (catch (quote ct7) 0)) (f7-2 0)) f7-1 f7-2
    31773179                         c))
    31783180               (let ((v8
     
    31803182                                   0))
    31813183                        0)))
     3184                 v8
    31823185                 (%f7 b))))))
    31833186   '(2374299 70496 -6321798384))
Note: See TracChangeset for help on using the changeset viewer.