Changeset 10071


Ignore:
Timestamp:
10/03/05 13:20:46 (16 years ago)
Author:
piso
Message:

(enough-namestring #p"/foo" #p"/") => "foo"

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/enough-namestring.lisp

    r9989 r10071  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: enough-namestring.lisp,v 1.3 2005-09-19 16:54:42 piso Exp $
     4;;; $Id: enough-namestring.lisp,v 1.4 2005-10-03 13:20:46 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    3636               (prefix-len (length defaults-directory))
    3737               (result-directory
    38                 (cond ((and (> prefix-len 1)
     38                (cond ((and (>= prefix-len 1)
    3939                            (>= (length pathname-directory) prefix-len)
    4040                            (equal-components-p (subseq pathname-directory 0 prefix-len)
Note: See TracChangeset for help on using the changeset viewer.