diff --git a/flan-utils.lisp b/flan-utils.lisp index 139ea7a..a275290 100644 --- a/flan-utils.lisp +++ b/flan-utils.lisp @@ -589,6 +589,14 @@ (defun split-string (string &optional sep) "Split a string by this seperator (or `:whitespace', if not provided" (let* ((sep (or (switch sep + (#\Newline "[\\n\\f\\r]") + (#\Space " ") + (#\Backspace "\\b") + (#\Tab "\\t") + (#\Linefeed "\\n") + (#\Page "\\f") ; ??? + (#\Return "\\r") + ;(#\Rubout wtf even is this??? (nil "\\s") nil) (cl-ppcre:quote-meta-chars sep)))