Changeset 10609


Ignore:
Timestamp:
Sep 2, 2008, 8:42:19 PM (11 years ago)
Author:
gz
Message:

add test

File:
1 edited

Legend:

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

    r10215 r10609  
    422422      (or (equal list result) result))
    423423  t)
     424
     425(deftest ccl.46016
     426    (let ((file (test-source-file "
     427  (defvar var.46016 nil)
     428  (declaim (boolean var.46016))")))
     429      (handler-case (progn (test-compile file :load t :break-on-program-errors nil) :no-warnings)
     430        (warning (c) :warning)))
     431  :no-warnings)
     432
     433
     434
     435
     436
    424437
    425438;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.