Lines Matching refs:pathstring

384   (let* ((pathstring (namestring path))
385 	 (len (length pathstring)))
386     (when (equal (subseq pathstring (- len 1) len) "/")
388       (setf pathstring (subseq pathstring 0 len)))
389     (subseq pathstring (1+ (or (position #\/ pathstring :from-end t)
390 			       (position #\\ pathstring :from-end t))) len)))
393   (let* ((pathstring (namestring path))
394 	 (len (length pathstring)))
395     (when (equal (subseq pathstring (- len 1) len) "/")
397       (setf pathstring (subseq pathstring 0 len)))
398     (subseq pathstring 0 (or (position #\/ pathstring :from-end t)
399 			     (position #\\ pathstring :from-end t)))))