Changeset 10997


Ignore:
Timestamp:
Oct 6, 2008, 6:55:36 PM (11 years ago)
Author:
gz
Message:

couple more dup definition tests

File:
1 edited

Legend:

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

    r10993 r10997  
    534534  (:duplicate-definition))
    535535
     536
     537(deftest ccl.41334-6
     538    (test-dup-warnings
     539     "(defun test.41334-6 () nil)"
     540     "(let ((closed nil))
     541        (defun test.41334-6 () closed))")
     542  (:duplicate-definition))
     543
     544(deftest ccl.41334-7
     545    (test-dup-warnings
     546     "(defun test.41334-7 () nil)"
     547     "(unless (fboundp 'test.31334-7)
     548        (defun test.41334-7 () t))")
     549  nil)
    536550
    537551#+not-yet
Note: See TracChangeset for help on using the changeset viewer.