16b92b8ab5d9
Add define-string
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)