Changeset 12049 for trunk/tests


Ignore:
Timestamp:
May 13, 2009, 9:01:06 PM (10 years ago)
Author:
gz
Message:

Test for bug#470

File:
1 edited

Legend:

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

    r12047 r12049  
    956956                            (defclass ccl.49345-fwd-type () ())")
    957957  ())
     958
     959(deftest ccl.bug#470
     960    (funcall (lambda ()
     961               (declare (optimize (safety 1) (speed 1)))
     962               (let ((array (make-array '(1 1) :initial-element 2.0
     963                                        :element-type 'single-float))
     964                     (var 1.0))
     965                 (setf (aref array 0 0) var
     966                       var nil))))
     967  nil)
     968
    958969
    959970;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.