path: root/util.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)))