Explicitly default initial-element of make-grid-with-diagonal to 0

;; Make arrays from other arrays

;; Liam Healy 2009-11-11 11:33:22EST compose-array.lisp

;; Time-stamp: <2011-12-03 20:38:35EST compose.lisp>

;; Time-stamp: <2013-11-11 11:41:28EST compose.lisp>

;;

;; Copyright 2009, 2010, 2011 Liam M. Healy

;; Distributed under the terms of the GNU General Public License

  diagonal)

;;; This could become a more general to make a grid?

(defun make-grid-with-diagonal (diagonal &key (offset 0) initial-element)

(defun make-grid-with-diagonal (diagonal &key (offset 0) (initial-element 0))

  "Make a matrix with the default element, setting the diagonal

   to the given diagonal."

  ;; [2013-11-11 Mon 11:40] If initial-element is nil (the previous default), it seems to grab a random grid from memory and return it.

  (let ((grid

	 (make-grid

	  (merge-specification