Changeset 5657


Ignore:
Timestamp:
Dec 31, 2006, 1:33:15 AM (18 years ago)
Author:
Gary Byers
Message:

%SPLIT-COMPONENT: be a little more defensive.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-pathnames.lisp

    r5630 r5657  
    296296(defun %split-component (thing &aux pos)
    297297  ;"ab*cd*"  ->  "ab" "cd*" 
    298   (if (or (null thing)(eq thing :unspecific)(null (setq pos (%path-mem "*" thing))))
     298  (if (or (not (typep thing 'string))(null (setq pos (%path-mem "*" thing))))
    299299    (values thing nil nil)
    300300    (let* ((len (length thing)))
Note: See TracChangeset for help on using the changeset viewer.