from 2015-6-7

自分用の備忘録としてネット上にも残しておこうと思い書いています

clisp-optional

;&optionalの使い方。引数yが指定されればyをそうでなければ1を
(defun inc (x &optional (y 1))
 (+ x y))

(inc 5)
6
(inc 6 7)
13