LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031842. :SYSTEM-TYPE :LOGICAL :VERSION 14. :TYPE "LISP" :NAME "COMPILE-FLAVOR-METHODS" :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 2758741660. :AUTHOR "REL3" :LENGTH-IN-BYTES 1150. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ;; -*- Mode:Common-Lisp; Package:FILE-SYSTEM; Base:10.; COLD-LOAD:T  -*-;;;                           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.(COMPILE-FLAVOR-METHODS LISPM-PATHNAME LOGICAL-PATHNAME)(COMPILE-FLAVOR-METHODS LMFS-PATHNAME)(COMPILE-FLAVOR-METHODS VMS4-PATHNAME VMS-PATHNAME);;; All of the other pathname flavores are done at the end of PATHNAME;UNIX.LISP(commentNEW-LMFS-PATHNAME-MIXIN NEW-ITS-PATHNAME-MIXIN NEW-TENEX-PATHNAME-MIXIN NEW-TOPS20-PATHNAME-MIXIN NEW-MULTICS-PATHNAME-MIXIN NEW-UNIX-PATHNAME-MIXIN NEW-UNIX-UCB-PATHNAME-MIXIN NEW-MSDOS-PATHNAME-MIXIN NEW-VMS4-PATHNAME-MIXIN NEW-VMS3-PATHNAME-MIXINTENEX-FAMILY-PATHNAME-MIXIN )n be GCed.;;;;;;  This shouldn't be needed anymore... 11.15.86 MBC;;;;;;  Fix the hash table so :property fefs w/:source-file-name will work;;; (setf SI:FUNCTION-SPEC-HASH-TABLE (MAKE-HASH-TABLE :test 'equal :size 500));;;(defun CANONICALIZE-AND-CLEANUP ()  (declare (special *CANX-HASH-TABLE* SI:*COLD-LOADED-FILE-PROPERTY-LISTS*))  (fs:canonicalize-cold-load-pathnames t)  (setf SI:*COLD-LOADED-FILE-PROPERTY-LISTS* NIL FS:*CANX-HASH-TABLE* NIL));;; If pathname has been parsed already just return its object,;;; else parse it, stuff it in the table, and return it.(defun parse-with-host (pathname sys-sample)  (declare (special *CANX-HASH-TABLE*))  (let* ((key pathname) (pathname-object (GETHASH KEY *CANX-HASH-TABLE*)))    (cond (pathname-object)  (t (PUTHASH KEY (quick-parse key sys-sample) *CANX-HASH-TABLE*)))))(defvar  *CANX-HASH-TABLE* nil)(defun INIT-CANX-HAS