58b85ffbf146

Merge.
[view raw] [browse files]
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

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)