Exported concat-string CL/PS utility function/macro.

diff --git a/src/lib/ps-macro-lib.lisp b/src/lib/ps-macro-lib.lisp
index 83dba18..aab3614 100644 (file)
--- a/src/lib/ps-macro-lib.lisp
+++ b/src/lib/ps-macro-lib.lisp
@@ -79,6 +79,7 @@
   (cons '+ sequences))
 
 (defmacro concat-string (&rest things)
+  "Like concatenate but prints all of its arguments."
   `(format nil "~@{~A~}" ,@things))
 
 (defpsmacro concat-string (&rest things)

diff --git a/src/package.lisp b/src/package.lisp
index 4e2f390..cea9063 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -177,6 +177,7 @@
       #:random
       #:ignore-errors
       #:concatenate
+      #:concat-string
       #:length
       #:null
       #:@