;System Tape Utility Frame made by dg at 1-Feb-86 19:20:36 -*-Mode: Lisp; Package: User; Base: 10-*- ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: TAPE; TFRAME-MACROS LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: TAPE; TFRAME-DEFS LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: TAPE; TFRAME-PROCESS LISP >" '((:COMPILE NIL (TFRAME::TFRAME-FRAME-PROCESS NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::PARSE-FORMAT) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::PARSE-DEVICE) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*DEFAULT-FORMAT*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*TAPE-FORMAT-ALIST*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*AVAILABLE-DEVICES*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*DEFAULT-DEVICE*) (COMPILER::NOT-USED :IMPLAUSIBLE NIL "The variable ~S is bound but never used." TAPE::*SELECTED-DEVICE*) (COMPILER::NOT-USED :IMPLAUSIBLE NIL "The variable ~S is bound but never used." TAPE::*SELECTED-FORMAT*)) (TFRAME::PROCESS-FORMAT-SELECT NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::PARSE-FORMAT) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::SELECT-FORMAT) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::SET-FORMAT-OPTIONS) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*DEFAULT-FORMAT*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*TAPE-FORMAT-ALIST*)) (TFRAME::PROCESS-DEVICE-SELECT NIL NIL (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::PARSE-DEVICE) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::SELECT-DEVICE) (COMPILER:UNDEFINED-FUNCTION-USED :PROBABLE-ERROR NIL "The undefined function ~S was called" TAPE::SET-DEVICE-OPTIONS) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*AVAILABLE-DEVICES*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*DEFAULT-DEVICE*)) (TFRAME::TFRAME-INITIALIZATIONS NIL NIL (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*SELECTED-FORMAT*) (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TAPE::*SELECTED-DEVICE*))))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: TAPE; TFRAME-WINDOW LISP >" '((:COMPILE NIL))) ;-*-Mode: Lisp; Package: User; Base: 10. -*- (SI:RELOAD-FILE-WARNINGS '#FS::LOGICAL-PATHNAME "SYS: TAPE; TFRAME-COMS LISP >" '((:COMPILE NIL (TFRAME::QUERY-WILD-PATHNAME NIL NIL (COMPILER::FREE-VARIABLE :MISSING-DECLARATION NIL "The variable ~S is used free; assumed special." TFRAME::*HOST-TO-USE*)))))