Changeset 9392 for trunk/tests


Ignore:
Timestamp:
May 8, 2008, 1:19:20 AM (11 years ago)
Author:
gz
Message:

Another test

File:
1 edited

Legend:

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

    r9355 r9392  
    147147 (defun ccl.40055-2-struct-arr ()
    148148   (make-array 0 :element-type 'ccl.40055-2-struct))
    149  (defun ccl.40055-2-struct-arr ()
     149 (defun ccl.40055-2-struct-arr-2 ()
    150150   (make-array 0 :element-type '(or (member 17 32) ccl.40055-2-struct)))
    151151 (defun ccl.40055-2-fn (x) (setf (ccl.40055-2-struct-slot x) nil))
     
    163163 (defstruct ccl.40055-3-struct () ())
    164164 (defun ccl.40055-3-rfn () (require-type nil '(or ccl.40055-3-struct null)))")))
    165       (test-compile file)
    166       :no-crash)
    167   :no-crash)
    168 
     165      (handler-case
     166          (progn (test-compile file) :no-warnings)
     167        (warning (c) c)))
     168  :no-warnings)
    169169
    170170(deftest ccl.bug#295
     
    174174     (inner-fun))")))
    175175      (handler-case (progn (test-compile file :safety 3) :no-warnings)
    176         (warning (c) (format t "~a" c)
    177           c)))
     176        (warning (c) c)))
    178177  :no-warnings)
    179178
     179
     180(deftest ccl.41836  ;; fixed in r9391
     181    (let ((file (test-source-file "
     182  (defvar *a* 1)
     183  (defvar *b* (load-time-value *a*))")))
     184      (handler-case (progn (test-compile file) :no-warnings)
     185        (warning (c) c)))
     186  :no-warnings)
     187
Note: See TracChangeset for help on using the changeset viewer.