Changeset 10072


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

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

File:
1 edited

Legend:

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

    r10071 r10072  
    22;;;
    33;;; Copyright (C) 2004-2005 Peter Graves
    4 ;;; $Id: enough-namestring.lisp,v 1.4 2005-10-03 13:20:46 piso Exp $
     4;;; $Id: enough-namestring.lisp,v 1.5 2005-10-03 13:33:34 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    4444                       pathname-directory)
    4545                      (t
    46                        (error "~S cannot be represented relative to ~S."
    47                               pathname
    48                               defaults)))))
     46                       (return-from enough-namestring (namestring pathname))))))
    4947          (concatenate 'simple-string
    5048                       (directory-namestring (make-pathname :directory result-directory))
Note: See TracChangeset for help on using the changeset viewer.