blob: 11f7f98fe09f14b0fba16aa011564c847530c8a4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
(in-package :extreload)
(defmacro when-option ((options option) &body body)
`(let ((value (getf ,options ,option)))
(when value
,@body)))
(defun handle-option-error (condition)
(format *error-output* "error: ~a~%" condition)
(opts:exit 64))
|