9 lines
203 B
Common Lisp
9 lines
203 B
Common Lisp
(defmacro inc (x &optional (val 1))
|
|
`(setf ,x (+ ,val ,x)))
|
|
|
|
;; For system arguments
|
|
(defmacro when-option ((options opt) &body body)
|
|
`(let ((it (getf ,options ,opt)))
|
|
(when it
|
|
,@body)))
|