renamed to sb-bsd-sockets

[sbcl.git] / contrib / bsd-sockets / split.lisp

diff --git a/contrib/bsd-sockets/split.lisp b/contrib/bsd-sockets/split.lisp
deleted file mode 100644 (file)
index 2c0d17c..0000000
--- a/contrib/bsd-sockets/split.lisp
+++ /dev/null
@@ -1,23 +0,0 @@
-(in-package :bsd-sockets)
-
-;;; This courtesy of Pierre Mai in comp.lang.lisp 08 Jan 1999 00:51:44 +0100
-;;; Message-ID: <87lnjebq0f.fsf@orion.dent.isdn.cs.tu-berlin.de>
-
-(defun split (string &optional max (ws '(#\Space #\Tab)))
-  "Split `string' along whitespace as defined by the sequence `ws'.
-The whitespace is elided from the result.  The whole string will be
-split, unless `max' is a non-negative integer, in which case the
-string will be split into `max' tokens at most, the last one
-containing the whole rest of the given `string', if any."
-  (flet ((is-ws (char) (find char ws)))
-    (loop for start = (position-if-not #'is-ws string)
-          then (position-if-not #'is-ws string :start index)
-          for index = (and start
-                           (if (and max (= (1+ word-count) max))
-                               nil
-                             (position-if #'is-ws string :start start)))
-          while start
-          collect (subseq string start index)
-          count 1 into word-count
-          while index)))
-