LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031330. :SYSTEM-TYPE :LOGICAL :VERSION 8. :TYPE "LISP" :NAME "EXPORTS-FS" :DIRECTORY ("REL3-SOURCE" "IO") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758637308. :AUTHOR "REL3" :LENGTH-IN-BYTES 2383. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 ;;;-*- Mode:Common-Lisp; Package:FILE-SYSTEM; Base:10 -*-;;;                           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) 1987 Texas Instruments Incorporated. All rights reserved.;;; 1/19/87  HW  Original;;; This defines all of the symbols to be exported from the FS package;;; that are used by the file system. These are functions unless otherwise noted.(export  '(pathname-raw-host   pathname-raw-device   pathname-raw-directory   pathname-raw-name   pathname-raw-type   pathname-raw-version   set-host-working-directory   *defaults-are-per-host*;variable   *always-merge-type-and-version*;variable   *name-specified-default-type*;variable   last-file-opened;variable   make-pathname-defaults   copy-pathname-defaults   default-pathname   pathname-parse-error;condition   merge-pathname-defaults   merge-and-set-pathname-defaults   describe-pathname   init-file-pathname   pathname-plist   *pathname-hash-table*;variable   sample-pathname   *generic-base-type-alist*;variable   add-logical-pathname-host   set-logical-pathname-host   make-logical-pathname-host   translated-pathname   unknown-logical-directory;condition   *copy-file-known-text-types*;variable   *copy-file-known-binary-types*       ;variable   *copy-file-known-short-binary-types* ;variable   file-attribute-list   extract-attribute-list   read-attribute-list   file-attribute-bindings   extract-attribute-bindings   invalid-file-attribute;condition   reading-from-file;macro   reading-from-file-case;macro   change-file-properties   file-properties   complete-pathname   directory-list   directory-list-stream   expunge-directory   create-directory   remote-connect   balance-directories   initialize-file-system   boot-file-system   expand-file-system   user-personal-name-first-name-first  ;variable   *merge-unix-types*;variable   lm-salvage)'FS)IONAL FILENAME EDITOR-P)  "Sends input and output to a file or a file editor buffer,if second arg is T.  This differs from DRIBBLE and DRIBBLE-START in that it rebinds *TERMINAL-IO*, not just *STANDARD-INPUT* and *STANDARD-OUTPUT*,so that queries, break loops, etc. are also included.With no argument, exits a previously entered DRIBBLE-ALL and closes the file."  (IF (AND (NULL FILENAME) (NULL EDITOR-P))    (DRIBBLE-END)    (PROGN      (FORMAT T "~&Entering Dribble Read-Eval-Print Loop.  Type (DRIBBLE-END) to exit.")      (LET* ((DRIBBLE-STREAM      (MAKE-DRIBBLE-STREAM *TERMINAL-IO*   (IF (NOT EDITOR-P)     (OPEN FILENAME :DIRECTION :OUTPUT :ERROR :REPROMPT)