From ea65968c79bf0709664081e4c116dee0d9c536ab Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 31 May 2021 11:39:17 -0700 Subject: add & use WORDS, UNWORDS Signed-off-by: Sean Whitton --- src/util.lisp | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'src/util.lisp') diff --git a/src/util.lisp b/src/util.lisp index 3260de0..9d50a17 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -29,6 +29,12 @@ (defun unlines (lines) (format nil "~{~A~%~}" lines)) +(defun words (text) + (remove "" (split-string text) :test #'string=)) + +(defun unwords (words) + (format nil "~{~A~^ ~}" words)) + (defmacro symbol-named (name symbol) `(and (symbolp ,symbol) (string= (symbol-name ',name) (symbol-name ,symbol)))) -- cgit v1.2.3