Optional Arguments

(defun print-array-size (array

&optional

(stream *standard-output*)

UseGraphics)

(let ((size (length array)))

(if UseGraphics

(drawsize size stream)

(print size stream))

size)))

• Call the function like this:

  • (print-array-size *my-array*)

• Or like this:

  • (print-array-size *my-array* my-open-file)

Previous slide

Next slide

Back to first slide

View graphic version