LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760031332. :SYSTEM-TYPE :LOGICAL :VERSION 8. :TYPE "LISP" :NAME "EXPORTS-SYS" :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 2758637343. :AUTHOR "REL3" :LENGTH-IN-BYTES 2261. :LENGTH-IN-BLOCKS 3. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                ;;;-*- Mode:Common-Lisp; Package:SYSTEM-INTERNALS; 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 SYS  package;;; that are used by the file system. These are functions unless otherwise noted.(export '(*null-stream*;variable   cold-load-stream   with-help-stream   make-serial-stream   make-parallel-stream   stream;flavor   input-stream;flavor   output-stream;flavor   buffered-input-stream;flavor   buffered-output-stream;flavor   buffered-stream;flavor   unbuffered-line-input-stream;flavor   line-output-stream-mixin;flavor   buffered-input-character-stream      ;flavor   buffered-output-character-stream;flavor   buffered-character-stream;flavor   input-pointer-remembering-mixin;flavor   file-stream-mixin;flavor   input-file-stream-mixin;flavor   output-file-stream-mixin;flavor   *default-disk-unit*;variable   current-band   current-microload   describe-partition   find-disk-partition   find-disk-partition-for-read   find-disk-partition-for-write   get-pack-name   get-ucode-version-from-comment   get-ucode-version-from-band   measured-size-of-partition   partition-comment   partition-list   print-available-bands   print-disk-type-table   copy-disk-partition   compare-disk-partition   receive-band   transmit-band   compare-band   copy-disk-label   disk-restore   set-pack-name   set-partition-attribute   set-partition-property   update-partition-comment   estimate-dump-size   edit-disk-label   *default-printer*;variable   *default-screen-image-printer;variable   *country-code*;variable   )'SYS)d-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)