# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545436355 18000
# Node ID 16b92b8ab5d979bdd8c25503654e85707a7112ac
# Parent  4691a8636f3f64bae1dbcd8b202612eb37345975
Add define-string

diff -r 4691a8636f3f -r 16b92b8ab5d9 package.lisp
--- a/package.lisp	Thu Dec 20 23:59:05 2018 -0500
+++ b/package.lisp	Fri Dec 21 18:52:35 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 4691a8636f3f -r 16b92b8ab5d9 src/main.lisp
--- a/src/main.lisp	Thu Dec 20 23:59:05 2018 -0500
+++ b/src/main.lisp	Fri Dec 21 18:52:35 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)