# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545445607 18000
# Node ID 58b85ffbf146d877f143afeb216b4019cdef338a
# Parent  16b92b8ab5d979bdd8c25503654e85707a7112ac# Parent  45ccf095212805da937b432900d03540c4581232
Merge.

diff -r 45ccf0952128 -r 58b85ffbf146 package.lisp
--- 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))
diff -r 45ccf0952128 -r 58b85ffbf146 src/main.lisp
--- 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)