Changeset 9985


Ignore:
Timestamp:
09/19/05 14:04:07 (16 years ago)
Author:
piso
Message:

PARSE-NAMESTRING: treat an :UNSPECIFIC host argument as NIL.

File:
1 edited

Legend:

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

    r9981 r9985  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: pathnames.lisp,v 1.19 2005-09-17 19:48:03 piso Exp $
     4;;; $Id: pathnames.lisp,v 1.20 2005-09-19 14:04:07 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    326326                         &key (start 0) end junk-allowed)
    327327  (declare (ignore default-pathname junk-allowed)) ; FIXME
    328   (when host
    329     (setf host (canonicalize-logical-host host)))
     328  (cond ((eq host :unspecific)
     329         (setf host nil))
     330        (host
     331         (setf host (canonicalize-logical-host host))))
    330332  (typecase thing
    331333    (stream
Note: See TracChangeset for help on using the changeset viewer.