Changeset 9989 for trunk/j/src/org/armedbear/lisp/enough-namestring.lisp

Timestamp:

09/19/05 16:54:42 (16 years ago)

Author:

piso

Message:

If PATHNAME and DEFAULTS have different hosts, then ENOUGH-NAMESTRING should return the namestring of PATHNAME.

File:

• trunk/j/src/org/armedbear/lisp/enough-namestring.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/enough-namestring.lisp

@@ -1 +1 @@
 ;;; enough-namestring.lisp
 ;;;
-;;; Copyright (C) 2004 Peter Graves
-;;; $Id: enough-namestring.lisp,v 1.2 2004-09-27 00:09:19 piso Exp $
+;;; Copyright (C) 2004-2005 Peter Graves
+;;; $Id: enough-namestring.lisp,v 1.3 2005-09-19 16:54:42 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -29 +29 @@
                           &optional
                           (defaults *default-pathname-defaults*))
+  (unless (equal (pathname-host pathname) (pathname-host defaults))
+    (return-from enough-namestring (namestring pathname)))
   (let ((pathname-directory (pathname-directory pathname)))
     (if pathname-directory