Revert d148f2d

Using wild-inferiors to search all subdirectories is too slow.

Author: xach

quicklisp/dist.lisp

@@ -497,9 +497,7 @@
 (defun dist-name-pathname (name)
   "Return the pathname that would be used for an installed dist with
 the given NAME."
-  (qmerge (make-pathname :directory (list* :relative
-                                           "dists"
-                                           (split-slashes name)))))
+  (qmerge (make-pathname :directory (list :relative "dists" name))))
 
 (defmethod slot-unbound (class (dist dist) (slot (eql 'base-directory)))
   (declare (ignore class))
@@ -579,7 +577,7 @@ the given NAME."
 
 (defun standard-dist-enumeration-function ()
   "The default function used for producing a list of dist objects."
-  (loop for file in (directory (qmerge "dists/**/distinfo.txt"))
+  (loop for file in (directory (qmerge "dists/*/distinfo.txt"))
         collect (make-dist-from-file file)))
 
 (defun all-dists ()

quicklisp/package.lisp

@@ -12,7 +12,6 @@
            #:delete-file-if-exists
            #:ensure-file-exists
            #:split-spaces
-           #:split-slashes
            #:first-line
            #:file-size
            #:safely-read

quicklisp/utils.lisp

@@ -56,31 +56,29 @@
   (when (probe-file pathname)
     (delete-file pathname)))
 
-(defun split (line delimiter)
+(defun split-spaces (line)
   (let ((words '())
         (mark 0)
         (pos 0))
     (labels ((finish ()
                (setf pos (length line))
                (save)
-               (return-from split (nreverse words)))
+               (return-from split-spaces (nreverse words)))
              (save ()
                (when (< mark pos)
                  (push (subseq line mark pos) words)))
              (mark ()
                (setf mark pos))
              (in-word (char)
-               (cond
-                 ((char= char
-                         delimiter)
+               (case char
+                 (#\Space
                     (save)
                     #'in-space)
                  (t
                     #'in-word)))
              (in-space (char)
-               (cond
-                 ((char= char
-                         delimiter)
+               (case char
+                 (#\Space
                     #'in-space)
                  (t
                     (mark)
@@ -90,12 +88,6 @@
           (setf pos i)
           (setf state (funcall state (char line i))))))))
 
-(defun split-spaces (line)
-  (split line #\Space))
-
-(defun split-slashes (line)
-  (split line #\/))
-
 (defun first-line (file)
   (with-open-file (stream file)
     (values (read-line stream))))