I have (defun test () (let ((array (make-array '(1 1) :initial-element 2.0 :element-type 'single-float)) (var 1.0)) (setf (aref array 0 0) var var nil)))
exactly at the begginning of the buffer, and when i try to yank
(deftype array-index () "Array index type." '(and fixnum (integer 0 *)))
again in the begginning of the buffer, emacs hangs.