improved split-string

3 years ago · 0e545a3a1c
parent 212e5f76e1
commit 0e545a3a1c
1 changed files with 1 additions and 1 deletions
--- a/flan-utils.lisp
+++ b/flan-utils.lisp
@ -587,7 +587,7 @@
       ,(cons 'cond exprs))))

 (defun split-string (string &optional sep)
-  "Split a string by this seperator (or `:whitespace', if not provided"
+  "Split a string by this seperator (or whitespace, if not provided)"
  (let* ((sep (or (switch sep
 			  (#\Newline "[\\n\\f\\r]")
 			  (#\Space " ")