LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029649. :SYSTEM-TYPE :LOGICAL :VERSION 5. :TYPE "PATCH-DIRECTORY" :NAME "ETHERNET-3" :DIRECTORY ("REL3" "PATCH" "ETHERNET") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :QFASLP NIL :LENGTH 1089. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2755694594. :AUTHOR "REL3" :LENGTH-IN-BYTES 1089. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for ETHERNET version 3;;; Written 04/29/87 09:43:15 by REL3,;;; while running on NEWTON from band LOD2;;; With Experimental COMPILER 4.0, Experimental NAMESPACE 12.0, Experimental TV 7.0, Experimental UCL 8.0, Experimental INPUT-EDITOR 9.0, IO 3.0, PATHNAME 3.0, FILE 3.0, Experimental ZWEI 12.0, Experimental DEBUG-TOOLS 7.0, Experimental NETWORK-SUPPORT 7.0, Experimental GC 5.0, Experimental NVRAM 8.0, Experimental SYSLOG 6.0, Experimental FONT-EDITOR 6.0, Experimental PRINTER 6.0, Experimental IMAGEN 6.0, Experimental STREAMER-TAPE 6.0, Experimental SUGGESTIONS 4.0, Experimental MAIL-DAEMON 5.0, Experimental MAIL-READER 5.0, Experimental TELNET 8.0, Experimental VT100 5.0, Experimental NAMESPACE-EDITOR 4.0, Experimental PROFILE 6.0, Experimental GLOSSARY 5.0, SYSTEM 3.0, METER 3.0, SERIAL 3.0, CHAOSNET 3.0, ETHERNET 3.0,  microcode 205, Band Name: 3P-DEV2.(:PATCH-SYSTEM-NAME "ETHERNET" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 0)(:RELEASED((0 "ETHERNET Loaded" "Modified" NIL)  ))R 3.1, SYSLOG 3.0, VT100 3.1, IP 2.17, Experimental BUG 4.9,  microcode 353, Band Name: REL3+patches,5-28.;;; BUG REPORT NUMBER:  5599 and 5602;;;;;; PROBLEM:  In the event that a local variable is referenced in a lexical ;;;closure, but the closure is later expanded inline and the variable;;;is optimized away, pass 2 still tries to generate a LEXICAL-UNSHARE;;;instruction for the variable.  Since it is not in the list of variables;;;     closed over, an offset of NIL gets used, causing QLAPP to enter the;;;error handler like this:;;;;;;   >Error: (NIL) UNDEFINED-IN-WORD;;;   Backtrace from the debugger:;;;   ;;;   COMPILER::BARF (P.C. = 39);;;   ;;;    Arg 0 (EXP): (NIL);;;    Arg 1 (REASON): COMPILER::UNDEFINED-IN-WORD;;;    Arg 2 (SEVERITY): COMPILER::BARF;;;   ;;;   ;;;   COMPILER::LAP-WORD-EVAL (P.C. = 367);;;   ;;;    Arg 0 (WORD): (COMPILER::LEXICAL-UNSHARE NIL);;;;;; SOLUTION:  Fix f