Changeset 10139


Ignore:
Timestamp:
10/17/05 18:52:03 (16 years ago)
Author:
piso
Message:

PARSE-NAMESTRING

File:
1 edited

Legend:

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

    r10021 r10139  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: pathnames.lisp,v 1.26 2005-09-24 18:04:07 piso Exp $
     4;;; $Id: pathnames.lisp,v 1.27 2005-10-17 18:52:03 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    337337
    338338(defun parse-namestring (thing
    339                          &optional host default-pathname
     339                         &optional host (default-pathname *default-pathname-defaults*)
    340340                         &key (start 0) end junk-allowed)
    341341  (declare (ignore default-pathname junk-allowed)) ; FIXME
     
    352352     (unless end
    353353       (setf end (length thing)))
    354      (values (coerce-to-pathname thing host)
    355              end))
     354     (%parse-namestring (subseq thing start end) host default-pathname))
    356355    (t
    357356     (error 'type-error
Note: See TracChangeset for help on using the changeset viewer.