Changeset 10644


Ignore:
Timestamp:
Sep 8, 2008, 6:07:40 AM (11 years ago)
Author:
gb
Message:

Physical pathnames have a "device" slot; initialize it when consing
a pathname.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/lispequ.lisp

    r10427 r10644  
    267267  %pathname-name
    268268  %pathname-type
    269   %physical-pathname-version)
     269  %physical-pathname-version
     270  %physical-pathname-device)
    270271
    271272(def-accessors (logical-pathname) %svref
     
    277278  %logical-pathname-version)
    278279
    279 (defmacro %cons-pathname (directory name type &optional version)
    280   `(%istruct 'pathname ,directory ,name ,type ,version))
     280(defmacro %cons-pathname (directory name type &optional version device)
     281  `(%istruct 'pathname ,directory ,name ,type ,version ,device))
    281282
    282283(defmacro %cons-logical-pathname (directory name type host version)
Note: See TracChangeset for help on using the changeset viewer.