58b85ffbf146
Merge.
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Fri, 21 Dec 2018 21:26:47 -0500 |
| parents | 16b92b8ab5d9 (diff) 45ccf0952128 (current diff) |
| children | 1dfdaf51ac28 |
| branches/tags | (none) |
| files | src/main.lisp |
Changes
--- a/package.lisp Fri Dec 21 00:16:00 2018 -0500 +++ b/package.lisp Fri Dec 21 21:26:47 2018 -0500 @@ -2,6 +2,11 @@ (:use :cl) (:export :define-interface + :define-string + + :make-interface + :make-option + :parse-options :print-usage @@ -23,5 +28,6 @@ :newest :collect + ) (:shadow :collect :documentation :reduce))
--- a/src/main.lisp Fri Dec 21 00:16:00 2018 -0500 +++ b/src/main.lisp Fri Dec 21 21:26:47 2018 -0500 @@ -75,6 +75,11 @@ (define-modify-macro funcallf (function) funcall%) +(defmacro define-string (var string &rest args) + "Convenience macro for `(defparameter ,var (format nil ,string ,@args))`." + `(defparameter ,var (format nil ,string ,@args))) + + ;;;; Definition --------------------------------------------------------------- (defclass option () ((name :initarg :name :accessor name)