Changeset 6023


Ignore:
Timestamp:
Mar 9, 2007, 10:54:21 PM (13 years ago)
Author:
gb
Message:

Bill's fix to (MAKE-PATHNAME :DIRECTORY NIL ...)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-files.lisp

    r5678 r6023  
    495495  (if directory-p
    496496    (setq directory (%std-directory-component directory host)))
    497   (if (and defaults (not directory))
     497  (if (and defaults (not directory-p))
    498498    (setq directory (pathname-directory defaults)))
    499499  (setq name
     
    530530  path)
    531531
    532 ;  In portable CL, if the :directory argument to make pathname is a string, it should
    533 ;  be the name of a top-level directory and should not contain any punctuation characters
    534 ;  such as "/" or ";".  In MCL a string :directory argument with slashes or semi-colons
    535 ;  will be parsed as a directory in the obvious way.
     532;;;  In portable CL, if the :directory argument to make pathname is a
     533;;;  string, it should be the name of a top-level directory and should
     534;;;  not contain any punctuation characters such as "/" or ";".  In
     535;;;  MCL a string :directory argument with slashes or semi-colons will
     536;;;  be parsed as a directory in the obvious way.
    536537(defun %std-directory-component (directory host)
    537538  (cond ((null directory) nil)
Note: See TracChangeset for help on using the changeset viewer.