LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760030060. :SYSTEM-TYPE :LOGICAL :VERSION 2. :TYPE "LISP" :NAME "SYSTEM-3-6" :DIRECTORY ("REL3" "PATCH" "SYSTEM") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2759760646. :AUTHOR "REL3" :LENGTH-IN-BYTES 1457. :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 05/06/87 13:19:15 by HOGAN,;;; Reason: Change the system product name to Explorer System.  PMH code reader DG.;;; Reason: Change the System product name to Explorer System.  PMH;;; while running on Alpha from band LOD3;;; With IO 3.1, PATHNAME 3.3, FILE 3.1, SYSTEM 3.5, METER 3.0, SERIAL 3.0, CHAOSNET 3.3, ETHERNET 3.0, GC 3.3, IMAGEN 3.0, MAIL-DAEMON 3.0, NETWORK-SUPPORT 3.0, PROFILE 3.0, SUGGESTIONS 3.2, UCL 3.0, ZWEI 3.1, STREAMER-TAPE 3.0, DEBUG-TOOLS 3.0, FONT-EDITOR 3.0, GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.0, NAMESPACE-EDITOR 3.0, NVRAM 3.0, TELNET 3.0, TV 3.2, NAMESPACE 3.4, COMPILER 3.0, PRINTER 3.1, SYSLOG 3.0, VT100 3.0, IP 2.3, Experimental BUG 4.4,  microcode 210, Band Name: rel30-3.5-u210.(let ((sys-prod (find "System" sys:*defined-products*      :key #'(lambda (product) (send product :name))      :test 'string-equal)))  (if sys-prod      (send sys-prod :set-name "Explorer System")))were checking the call-info-word to see;;;         if any saved microstacks were on the specpdl.  This became no longer the correct;;;         action after a previous change fixed the way we keep track of saved microstacks.;;;         As a result of that fix, we must now check the sg-state word to determine if any;;;         upcs's are on the specpdl. Also included is a test to make sure the second element;;;         of a specpdl binding pair is a locative; if not, we ferror.;;;Code Readers: CLM, RJF, PHD#!C; From file RUN-ERRING-SG.LISP#> EH; MR-X:#10R EH#:(COMPILER-LET ((*