(defun make-xyarray (xn yn)
  (make-instance 'xydetails
		 :xn xn
		 :yn yn
		 :xyarray (make-array '(1 2))))

(defun make-xyarray (xn yn)
  (make-instance 'xydetails
		 :xn xn
		 :yn yn
		 :xyarray (make-array (list xn yn))))