58b85ffbf146
Merge.
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
--- 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))
--- 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)