Changeset 9816


Ignore:
Timestamp:
Jun 21, 2008, 9:52:11 PM (11 years ago)
Author:
gb
Message:

Add %PHYSICAL-PATHNAME-DEVICE slot to (physical) PATHNAME.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/library/lispequ.lisp

    r7958 r9816  
    266266  %pathname-name
    267267  %pathname-type
    268   %physical-pathname-version)
     268  %physical-pathname-version
     269  %physical-pathname-device)
    269270
    270271(def-accessors (logical-pathname) %svref
     
    276277  %logical-pathname-version)
    277278
    278 (defmacro %cons-pathname (directory name type &optional version)
    279   `(%istruct 'pathname ,directory ,name ,type ,version))
     279(defmacro %cons-pathname (directory name type &optional version device)
     280  `(%istruct 'pathname ,directory ,name ,type ,version ,device))
    280281
    281282(defmacro %cons-logical-pathname (directory name type host version)
Note: See TracChangeset for help on using the changeset viewer.