Custom Query (1030 matches)

The following test case fails:

(defconstant ZERO #C(0.0d0 0.0d0))
(defconstant ONE #C(1.0d0 0.0d0))

(defun bug ()
  (LET ((RESULT (MAKE-ARRAY 2 :ELEMENT-TYPE '(COMPLEX DOUBLE-FLOAT)
                              :INITIAL-ELEMENT ZERO)))
    (DECLARE (TYPE (SIMPLE-ARRAY (COMPLEX DOUBLE-FLOAT) (2)) RESULT))
    (SETF (AREF RESULT 0) ONE)
    (FORMAT T "~&Set 0th to 1: ~A~%" RESULT)
    (SETF (AREF RESULT 1) ONE)
    (FORMAT T "~&Set 1st to 1: ~A~%" RESULT)
    RESULT))

It looks like the second SETF isn't SETFing far enough into whatever underlying representing. I get

> (bug)
Set 0th to 1: #(#C(1.0D0 0.0D0) #C(0.0D0 0.0D0))
Set 1st to 0: #(#C(0.0D0 5.299808824D-315) #C(0.0D0 0.0D0))
#(#C(0.0D0 5.299808824D-315) #C(0.0D0 0.0D0))

which indicates the second SETF isn't getting far enough.

CL-USER> (let ((a (make-array 4 :element-type '(complex double-float)))
               (b (make-array 4 :element-type '(complex double-float))))
           (dotimes (i 4)
             (setf (aref b i) (complex (* 1.0d0 i) (* 2.0d0 i))))
           (format t "A: ~A~%" a)
           (format t "B: ~A~%" b)
           (replace a b)
           (format t "A <- B: ~A~%" a)
           nil)
A: #(#C(0.0D0 0.0D0) #C(0.0D0 0.0D0) #C(0.0D0 0.0D0) #C(0.0D0 0.0D0))
B: #(#C(0.0D0 0.0D0) #C(1.0D0 2.0D0) #C(2.0D0 4.0D0) #C(3.0D0 6.0D0))
A <- B: #(#C(0.0D0 0.0D0) #C(1.0D0 2.0D0) #C(2.0D0 4.0D0) #C(3.0D0 0.0D0))

The imagpart of the last element isn't making it though. Not sure if this test case exhausts all of the scenarios of this bug.

The latest 1.5 download doesn't have the :ccl-1.5 feature in *features*. Features for :ccl-1.2, :ccl-1.3 and :ccl-1.4 are present.