Changeset 9355


Ignore:
Timestamp:
May 4, 2008, 11:05:02 PM (11 years ago)
Author:
gz
Message:

regression test for bug#295

File:
1 edited

Legend:

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

    r9341 r9355  
    1212      (truename s))))
    1313
    14 (defun test-compile (lambda-or-file &key suppress-warnings)
     14(defun test-compile (lambda-or-file &key suppress-warnings (safety 1))
    1515  ;; Compile in a more-or-less standard environment
    1616  (let ((ccl::*suppress-compiler-warnings* suppress-warnings)
    1717        (ccl::*nx-speed* 1)
    1818        (ccl::*nx-space* 1)
    19         (ccl::*nx-safety* 1)
     19        (ccl::*nx-safety* safety)
    2020        (ccl::*nx-cspeed* 1)
    2121        (ccl::*nx-debug* 1))
     
    166166      :no-crash)
    167167  :no-crash)
     168
     169
     170(deftest ccl.bug#295
     171    (let ((file (test-source-file "
     172  (defun outer-fun ()
     173     (defun inner-fun () nil)
     174     (inner-fun))")))
     175      (handler-case (progn (test-compile file :safety 3) :no-warnings)
     176        (warning (c) (format t "~a" c)
     177          c)))
     178  :no-warnings)
     179
Note: See TracChangeset for help on using the changeset viewer.