16b92b8ab5d9

Add define-string
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 21 Dec 2018 18:52:35 -0500
parents 4691a8636f3f
children 58b85ffbf146
branches/tags (none)
files package.lisp src/main.lisp

Changes

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