Changeset 12157 for trunk/tests


Ignore:
Timestamp:
May 29, 2009, 8:44:45 PM (10 years ago)
Author:
gz
Message:

Test for defstruct (non)warning

File:
1 edited

Legend:

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

    r12072 r12157  
    959959(deftest ccl.57879-1
    960960    (test-compiler-warning "(defun foo (x) (declare (ccl.57879-1 'foo)) x)")
    961   (:unknown-type-in-declaration))
     961  (:bad-declaration))
    962962
    963963(deftest ccl.57879-2
     
    980980    (test-compiler-warning "(declaim (optimize (ccl.57879-5a ccl.57879-5b)))")
    981981  (:bad-declaration))
     982
     983;; By special dispensation, don't complain, even though can't optimize the slot reference.
     984(deftest ccl.57879-6
     985    (test-compiler-warning "(defstruct ccl.57879-6-struct (slot nil :type (or null ccl.57879-6-type)))
     986                            (defun ccl.57879-6-fn (x) (ccl.57879-6-struct-slot x))
     987
     988                            (deftype ccl.57879-6-type () 'null)")
     989  ())
    982990
    983991(deftest ccl.59726
Note: See TracChangeset for help on using the changeset viewer.