Failed AVER in SB-C::NODE-ENDS-BLOCK

[Paul F. Dietz]

(defun f9 (a)
  (block b2
    (evenp
     (let* ((v1 (make-array nil :initial-element
                            (restart-bind nil
                              (return-from b2 a)))))
       (declare (dynamic-extent v1))
       (aref v1)
       ))))

==>

failed AVER:
    (AND (EQ (SB-C::CTRAN-KIND SB-C::START) :INSIDE-BLOCK)
         (NOT (SB-C::BLOCK-DELETE-P BLOCK)))

This appears to have something to do with the DYNAMIC-EXTENT declaration. It also doesn't occur if the zero dimensional array is replaced with a vector of 1 element.

[Paul F. Dietz (paul-f-dietz)]

Simplified:

(defun f9 (a)
  (block b2
    (let* ((v1 (make-array nil :initial-element
                           (restart-bind nil
                             (return-from b2 a)))))
      (declare (dynamic-extent v1))
      (aref v1)
      )))

[Paul F. Dietz (paul-f-dietz)]

Similar example:

(defun f ()
  (let* ((v (make-array nil :initial-element (let ((v2 (cons 0 0)))
                                               (return-from f 0)))))
    (declare (dynamic-extent v))
    (aref v)))

[Stas Boukarev (stassats)]

In 561fda243be8967968640bf67cc553237d83fbb0