LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760032430. :SYSTEM-TYPE :LOGICAL :VERSION 6. :TYPE "LISP" :NAME "DEFSYSTEM" :DIRECTORY ("REL3-SOURCE" "ZMACS") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-SOURCE\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2756924943. :AUTHOR "REL3" :LENGTH-IN-BYTES 4327. :LENGTH-IN-BLOCKS 5. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ;;; -*- Mode:Common-Lisp; 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) 1985,1987 Texas Instruments Incorporated. All rights reserved.(UNLESS (FIND-PACKAGE "SRCCOM")  (MAKE-PACKAGE "SRCCOM"))(DEFSYSTEM ZWEI  (:NAME "Zmacs")  (:SHORT-NAME "ZMACS")  (:PATHNAME-DEFAULT "SYS:ZMACS;")  (:PATCHABLE "SYS:PATCH.ZMACS;" "PATCH")  (:WARNINGS-PATHNAME-DEFAULT "SYS:CWARNS;ZMACS.LISP")  (:MODULE FONTS  ("SYS:FONTS;SEARCH") :PACKAGE "FONTS")  (:MODULE SETUP  ("SETUP"))       ;Exporting, shadowing, suggestions, etc.  (:MODULE DEFS   ("DEFS"       ;Structure definitions and declarations.           "MACROS"))       ;Lisp macros used in the ZWEI source.  (:MODULE SCREEN ("SCREEN"))       ;Interface to screen system.  (:MODULE KBDMAC ("KBDMAC"))       ;Keyboard macro stream.  (:MODULE SRCCOM ("SRCCOM"))       ;Source Compare two files or buffers.   (:MODULE MAIN   ("COMTAB"       ;Functions regarding comtabs and command loop.   "DISPLA"       ;Redisplay, and screen-related functions.   "FOR"       ;Forward-this, forward-that functions.   "INDENT"       ;Indention functions.   "INSERT"       ;Insertion, deletion, and related functions.   "METH"       ;Important methods for windows and buffers.   "PRIMIT"       ;Random primitives and utilities.   "NPRIM"       ;More recently written primitives.   "HISTORY"       ;Kill history, minibuffer history, etc.   "FONT"       ;Font hacking stuff.   "SEARCH"       ;Searching functions.      "COMA"       ;Vanilla editing commands for movement, exchange, etc.    "COMB"       ;Editing commands for indentation and such.   "COMC"       ;Commands for compiling and evaluating.   "COMD"       ;Register, minibuffer, completion and apropos commands.   "COME"       ;Includes quantity and tab commands.   "COMF"       ;Includes pattern-matching, arglists, disassembly.    "COMG"       ;Commands for kbd-macro and describe-flavor operations.   "COMH"       ;More assorted commands, featuring case-changing and commenting.   "COMS"       ;Commands for searching and replacing.      "DIRED"       ;Directory editor.   "DOC"       ;Self-documentation commands and functions.   "FASUPD"       ;Update fasl file from core.   "FILES"       ;File commands and utilities.   "HOST"       ;Define ED:, ED-BUFFER:, ED-FILE: hosts.   "LPARSE"       ;Parsing lisp code.   "MODES"       ;Major and minor mode functions and commands.   "MOUSE"       ;Mouse commands, sans screen interface.   "PATED"       ;Patch commands.   "POSS"       ;Visiting lists of possibilities.   "STREAM"       ;Editor stream.   "SECTIO"       ;Section-specific commands for ZMACS.   "ZMNEW"       ;Buffer attribute-list commands.   "ZMACS"))       ;Multiple-buffer and file commands.  (:MODULE AUTOLOADING   ("LIBRARY-COMMANDS"  ;Tex Mode, Midas Mode.    "SYS:PUBLIC.ZMACS;BDIRED"  ;Directory Differences editor.    "SYS:PUBLIC.ZMACS;CHAR-SEARCH"  ;Char Search and Reverse Char Search.    "SYS:PUBLIC.ZMACS;MISC-BROKEN"  ;Miscellaneous broken commands.    "SYS:PUBLIC.ZMACS;MISC-UNSUPPORTED"  ;Miscellaneous non-broken commands.    "SYS:PUBLIC.ZMACS;PL1MOD"  ;PL/I mode commands.    "SYS:PUBLIC.ZMACS;UNSUPPORTED-MODES"  ;Teco, Bolio, Emacs.    ))    (:MODULE ZYMURG ("ZYMURG"))       ;Combined methods.    (:MODULE TUTORIAL ("SYS:TI-EXAMPLES.ZMACS;GETTYSBURG-INSERT.TEXT"     "SYS:TI-EXAMPLES.ZMACS;C-CURVE.LISP"))    (:AUXILIARY TUTORIAL)    (:FASLOAD FONTS)  (:COMPILE-LOAD SETUP)  (:COMPILE-LOAD DEFS   (:FASLOAD SETUP))  (:COMPILE-LOAD SCREEN (:FASLOAD SETUP DEFS))  (:COMPILE-LOAD KBDMAC (:FASLOAD SETUP DEFS SCREEN))  (:COMPILE-LOAD SRCCOM (:FASLOAD SETUP DEFS))  (:COMPILE-LOAD MAIN   (:FASLOAD SETUP DEFS SCREEN KBDMAC SRCCOM))  (:COMPILE AUTOLOADING (:FASLOAD SETUP DEFS SCREEN KBDMAC MAIN))  (:COMPILE-LOAD ZYMURG (:FASLOAD SETUP DEFS SCREEN KBDMAC MAIN)))") (DEFGLOBAL *Q-REG-LIST* () "List of q-registers currently defined.") (DEFGLOBAL *TAB-STOP-BUFFER* :UNBOUND "Buffer of tab-stop definitions, used by Tab to Tab Stop.") (DEFGLOBAL *STANDARD-COMTAB* :UNBOUND   "A comtab which defines the standard set of harmless ZWEI commands.") (DEFGLOBAL *STANDARD-CONTROL-X-COMTAB* :UNBOUND   "A comtab which defines the simple control-X commands.") (DEFGLOBAL *COMPLETING-READER-COMTAB* :UNBOUND "Comtab for the completing reader environment.") (DEFGLOBAL *PATHNAME-READING-COMTAB* :UNBOUND "Comtab for reading pathnames in mini-buffer.") (DEFGLOBAL *CONTROL-R-COMTAB* :UNBOUND "Comtab for recursive edits on the same buffer.") (DEFGLOBAL *RECURSIVE-EDIT-COMTAB* :UNBOUND "Comtab for recursive edits on a new buffer.") (DEFGLOBAL *STAN