Changeset 12355 for trunk/tests


Ignore:
Timestamp:
Jul 2, 2009, 2:55:29 PM (10 years ago)
Author:
gz
Message:

Add THE test

File:
1 edited

Legend:

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

    r12350 r12355  
    10411041  2)
    10421042
     1043(deftest ccl.bug#543a
     1044    (handler-case
     1045        (progn
     1046          (test-compile '(lambda (x y)
     1047                          (the fixnum (- (the fixnum (aref (the (array fixnum 1) x) (aref (the (simple-array fixnum 1) y) 0)))))))
     1048          :win)
     1049      (serious-condition (c) c))
     1050  :win)
    10431051
    10441052;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.