Commit 323c0a31 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Removed useless conjonction in split-string, thanks to Bicycline @ irc://irc.freenode.org/#lisp

parent cfef7a38
......@@ -376,10 +376,10 @@ EXAMPLES: (split-string '(1 2 0 3 4 5 0 6 7 8 0 9) '(0))
:for position = 0 :then (1+ nextpos)
:for nextpos = (position-if (lambda (e) (find e separators)) string :start position)
:unless (and remove-empty
(or (and (= position strlen) (null nextpos ))
(or (and (= position strlen) (null nextpos))
(eql position nextpos)))
:collect (subseq string position nextpos)
:while (and nextpos (< position strlen))))
:while nextpos))
(defun unsplit-string (string-list separator &key (adjustable nil) (fill-pointer nil) (size-increment 0))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment