X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fbsd-sockets%2Fsplit.lisp;fp=contrib%2Fbsd-sockets%2Fsplit.lisp;h=0000000000000000000000000000000000000000;hb=a78064c13bab180a663238979ae837210c5c9ff4;hp=2c0d17c2737a7e70576294740a8361c591662795;hpb=10d2c05ea44ca0837091434fe2223c0c31687615;p=sbcl.git

diff --git a/contrib/bsd-sockets/split.lisp b/contrib/bsd-sockets/split.lisp
deleted file mode 100644
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)))
-