--- 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))
--- 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)