|
|
@ -587,7 +587,7 @@
|
|
|
|
,(cons 'cond exprs))))
|
|
|
|
,(cons 'cond exprs))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun split-string (string &optional sep)
|
|
|
|
(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
|
|
|
|
(let* ((sep (or (switch sep
|
|
|
|
(#\Newline "[\\n\\f\\r]")
|
|
|
|
(#\Newline "[\\n\\f\\r]")
|
|
|
|
(#\Space " ")
|
|
|
|
(#\Space " ")
|
|
|
|