LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031844. :SYSTEM-TYPE :LOGICAL :VERSION 18. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-SOURCE" "PATHNAME") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758741704. :AUTHOR "REL3" :LENGTH-IN-BYTES 2461. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ;;;-*- Mode:COMMON-LISP; Package:SYSTEM-INTERNALS; Base:8 -*-;;;      RESTRICTED RIGHTS LEGEND;;;Use, duplication, or disclosure by the Government is subject to;;;restrictions as set forth in subdivision (b)(3)(ii) of the Rights in;;;Technical Data and Computer Software clause at 52.227-7013.;;;TEXAS INSTRUMENTS INCORPORATED.;;; P.O. BOX 2909;;;      AUSTIN, TEXAS 78769;;;    MS 2151;;; Copyright (C) 1985,1987 Texas Instruments Incorporated. All rights reserved.;;;    11-11-86  MBC  New distinct defsystems.;;;       01/20/87  HW   Added "tenex-family";;;       01/29/87  HW   Added "ITS";;;        2/24/87  JK   Moved BASIC-STREAM module to the FILE defsystem because of dependencies there.;;;     03.05.87  DAB   Changed :patchable and added :warnings-pathname-default;;;04.06.87  MBCRemove CANONICALIZE-COLD-LOAD-PATHNAMES; it is now in Finish-Build.(Defsystem PATHNAME  (:Name "Pathname")  (:Pathname-Default "sys:pathname;")  (:patchable "SYS: PATCH.PATHNAME;" PATCH);03.05.87 DAB  (:warnings-pathname-default "SYS: CWARNS; PATHNAME.lisp");03.05.87 DAB  ;;  Moved this BASIC-STREAM module to the FILE defsystem since some FS flavors have dependencies on stream flavors - JK;  (:Module Basic-Stream ("sys:io;Stream"))       (:Module Pathdefs ("Pathmacros"))  (:Module Basic-Pathnames ("Basic-Flavors" "Parse" "Canonical-Types"    "File-Access-Mixin"))  (:Module File-Io ("sys:io;open-error-support" "sys:Io;Open"    ))  (:module Combine-Flavors ("Compile-Flavor-Methods"))    (:Module Rest-Pathnames ("Pnmap" "Local"  "Logical" "Driver"))    (:Module Aux ("ITS" "tenex-family" "Vms" "LMFS"))  ;;; Other pathnames are done in IO-AUX defsystem  ;;  (:module Canonicalize-Cold-Pathnames "CANONICALIZE-COLD-LOAD-PATHNAMES")  ;4.6.87    (:Compile-Load Pathdefs);  (:Compile-Load Basic-Stream)  (:Compile-Load Basic-Pathnames (:Fasload Pathdefs) (:Fasload Pathdefs))  (:Compile-Load Rest-Pathnames (:Fasload Pathdefs Basic-Pathnames) (:Fasload Pathdefs Basic-Pathnames))  (:Compile-Load File-Io (:Fasload Pathdefs Basic-Pathnames) (:Fasload Pathdefs Basic-Pathnames))  (:compile-load Aux (:Fasload Pathdefs Basic-Pathnames) (:Fasload Pathdefs Basic-Pathnames))  (:compile-load Combine-Flavors (:Fasload Pathdefs Basic-Pathnames Rest-Pathnames) (:Fasload Pathdefs Basic-Pathnames Rest-Pathnames));;  (:compile-load Canonicalize-Cold-Pathnames)  ;4.6.87  )TS*, andcanonicalize all the source file names and their properties.  Finally, makeall symbols, methods, and :property functions have their :SOURCE-FILE-NAMEpoint at their canonicalized source pathname.  When Force-sys-host parse them all with SYS: Else allow pathnames to be physical when we know their host."  (declare (special SI:*COLD-LOADED-FILE-PROPERTY-LISTS*))  (unless (fboundp 'time:parse-universal-time)    (ferror nil "The function, TIME:PARSE-UNIVERSAL-TIME must be defined."))  (INIT-CANX-HASH)  (let ((sys-sample (SAMPLE-PATHNAME "SYS")))    (dolist (elem SI:*COLD-LOADED-FILE-PROPERTY-