Changeset 12284


Ignore:
Timestamp:
11/26/09 15:10:04 (12 years ago)
Author:
ehuelsmann
Message:

Delete unused function (split-directory-components).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/pathnames.lisp

    r12283 r12284  
    175175    (t
    176176     thing)))
    177 
    178 (defun split-directory-components (directory)
    179   (declare (optimize safety))
    180   (declare (type list directory))
    181   (unless (memq (car directory) '(:absolute :relative))
    182     (error "Ill-formed directory list: ~S" directory))
    183   (let (result sublist)
    184     (push (car directory) result)
    185     (dolist (component (cdr directory))
    186       (cond ((memq component '(:wild :wild-inferiors))
    187              (when sublist
    188                (push (nreverse sublist) result)
    189                (setf sublist nil))
    190              (push component result))
    191             (t
    192              (push component sublist))))
    193     (when sublist
    194       (push (nreverse sublist) result))
    195     (nreverse result)))
    196177
    197178(defun translate-component (source from to &optional case)
Note: See TracChangeset for help on using the changeset viewer.