LMFL#!C(:PADDED T :HOST "SYS" :BACKUP-DATE 2773683645. :SYSTEM-TYPE :LOGICAL :VERSION 3. :TYPE "LISP" :NAME "PATCH-3-15" :DIRECTORY ("REL3-2" "PATCH" "WINDOW") :SOURCE-PATTERN "( :DIRECTORY (\"REL3-2\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2764259763. :AUTHOR "REL3-1" :LENGTH-IN-BYTES 1901. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     ;;; -*- Mode: Common-Lisp; Package: User; Base: 10.; Patch-File: 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) 1987 Texas Instruments Incorporated. All rights reserved.;;; Written 07/24/87 11:06:20 by HOGAN,;;; Reason: Change TV:EDIT-SCREEN to not be a resource.  This will be more;;; memory efficient and cause the initial default to always be Reshape ;;; instead of Exit.   ;;; Fixes SPR#3981  PMH code read TWE;;; Reason: Change TV:EDIT-SCREEN to not be a resource.  This will be more;;; memory efficient and cause the initial default to always be Reshape ;;; instead of Exit.   ;;; Fixes SPR#3981  PMH;;; while running on Alpha from band LODA;;; With IO 3.25, PATHNAME 3.16, FILE 3.10, SYSTEM 3.49, METER 3.5, SERIAL 3.1, CHAOSNET 3.10,;;;  ETHERNET 3.0, GC 3.9, IMAGEN 3.0, MAIL-DAEMON 3.1, NETWORK-SUPPORT 3.7, PROFILE 3.1,;;;  SUGGESTIONS 3.3, UCL 3.3, ZWEI 3.14, STREAMER-TAPE 3.7, DEBUG-TOOLS 3.2, FONT-EDITOR 3.1,;;;  GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.4, NAMESPACE-EDITOR 3.4, NVRAM 3.3,;;;  TELNET 3.5, Inconsistent TV 3.14, NAMESPACE 3.7, COMPILER 3.22, PRINTER 3.2,;;;  SYSLOG 3.0, VT100 3.12, IP 2.46, Experimental BUG 7.0,  microcode 402, Band Name: test-save;;;  si:*resources-without-memory* is defined in SYS:KERNEL;RESOURCE.LISP;;;  'tv:SCREEN-EDITOR-MENU will be added to this list, however source fixes;;;  to completely remove the resources will follow.(pushnew 'tv:SCREEN-EDITOR-MENU si:*resources-without-memory*)(setf (get 'tv:SCREEN-EDITOR-MENU 'si:no-memory) t)(clear-resource 'tv:SCREEN-EDITOR-MENU)