LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760030092. :SYSTEM-TYPE :LOGICAL :VERSION 3. :TYPE "PATCH-DIRECTORY" :NAME "PATCH" :DIRECTORY ("REL3" "PATCH" "VIRTUAL-MEMORY") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :QFASLP NIL :LENGTH 1181. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2755529592. :AUTHOR "REL3" :LENGTH-IN-BYTES 1181. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ;;; -*- Mode: Common-Lisp; Package:User; Base:10 -*-;;; Major Version for Patchable System VIRTUAL-MEMORY;;; Written 04/27/87 11:53:13 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.("VIRTUAL-MEMORY" 3) .0, NAMESPACE-EDITOR 3.0, NVRAM 3.0, TELNET 3.0, TV 3.1, NAMESPACE 3.4, COMPILER 3.0, PRINTER 3.0, SYSLOG 3.0, VT100 3.0, Experimental 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;;;       