LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760030094. :SYSTEM-TYPE :LOGICAL :VERSION 1. :TYPE "PATCH-DIRECTORY" :NAME "PATCH-3" :DIRECTORY ("REL3" "PATCH" "VIRTUAL-MEMORY") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :QFASLP NIL :LENGTH 1307. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2755529593. :AUTHOR "REL3" :LENGTH-IN-BYTES 1307. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for VIRTUAL-MEMORY version 3;;; Written 04/27/87 11:53:14 by REL3,;;; while running on NEWTON from band LOD1;;; With Experimental METER 4.0, Experimental SERIAL 4.0, Experimental CHAOSNET 1.15, Experimental ETHERNET 1.6, Experimental GC 1.16, Experimental IMAGEN 2.1, Experimental MAIL-DAEMON 4.2, Experimental NETWORK-SUPPORT 4.17, Experimental PROFILE 4.13, Experimental SUGGESTIONS 1.12, Experimental UCL 6.15, Experimental ZWEI 4.20, Experimental RELEASE3M 1.68, Experimental IO 1.22, Experimental PATHNAME 1.17, Experimental STREAMER-TAPE 5.9, Experimental DEBUG-TOOLS 4.7, Experimental FONT-EDITOR 4.3, Experimental GLOSSARY 4.5, Experimental INPUT-EDITOR 4.3, Experimental MAIL-READER 4.4, Experimental NAMESPACE-EDITOR 8.11, Experimental NVRAM 3.5, Experimental TELNET 6.5, Experimental TV 1.25, Experimental NAMESPACE 3.17, Experimental COMPILER 13.12, Experimental FILE 1.7, Experimental PRINTER 4.7, Experimental SYSLOG 4.2, Experimental VT100 4.1, Experimental RELEASE3O 1.10, Experimental IP 2.24, Experimental BUG 3.1,  microcode 203, Band Name: 3-0-U203+PTCHS.(:PATCH-SYSTEM-NAME "VIRTUAL-MEMORY" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 0)(:EXPERIMENTAL((0 "VIRTUAL-MEMORY Loaded" "REL3" NIL)  ))rimental IP 2.2, Experimental BUG 4.4,  microcode 210, Band Name: 3.0 PCHS-TRAINED-IP.;;;PROBLEM:  The function EH:SG-FUNCALL-IN-FRAME should keep track of both;;;          sg-catch-pointer and sg-restore-microstack.  Currently it doesn't.;;;          So if we M-C-Abort out of an error within an error, we crash.;;;FIX:      Two fixes: 1) after we have copied out the top of the reg and spec pdl,;;;          we need to check the top of the specpdl; if it's a fixnum we need to ;;;          set the sg-restore-microstack to 1 so that if we abort we know we;;;          have to flush this upcs off the specpdl; 2) we also have to save the;;;          sg-catch-pointer, again in case of aborting we know where to throw back;;;       