Commit 0e7d7cda authored by Liam M. Healy's avatar Liam M. Healy
Browse files

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

parent ceee01b4
;; 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
......@@ -167,9 +167,10 @@ is an optional pre-existing grid in which to write the result."
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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment