Changeset 11512


Ignore:
Timestamp:
Dec 12, 2008, 4:11:59 PM (11 years ago)
Author:
gz
Message:

regression test for dup def warnings on recompile restart

File:
1 edited

Legend:

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

    r11492 r11512  
    692692      (type-error () :type-error))
    693693  :type-error)
     694
     695(deftest ccl.49462
     696    (let ((file (test-source-file "(defun ccl.49462-fn (x) x)
     697(defmacro ccl.49462-macro (x) (error \"(macro ~~s)\" x))
     698(ccl.49462-macro 1)")))
     699      (handler-case
     700          (with-compilation-unit (:override t)
     701            (handler-bind ((error (lambda (c)
     702                                    (declare (ignore c))
     703                                    (with-open-file (f file :direction :output)
     704                                      (format f "(defun ccl.49462-fn (x) x)"))
     705                                    (invoke-restart 'ccl::retry-compile-file))))
     706              (test-compile file :hide-warnings t))
     707            nil)
     708        (warning (c) c)))
     709  nil)
    694710
    695711;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.