LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029652. :SYSTEM-TYPE :LOGICAL :VERSION 2. :TYPE "PATCH-DIRECTORY" :NAME "FILE" :DIRECTORY ("REL3" "PATCH" "FILE") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :QFASLP NIL :LENGTH 1158. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2754320517. :AUTHOR "REL3" :LENGTH-IN-BYTES 1158. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ;;; -*- Mode: Common-Lisp; Package:User; Base:10 -*-;;; Major Version for Patchable System FILE;;; Written 04/13/87 12:02:00 by BUILD3O,;;; while running on NEWTON from band LODA;;; With Experimental RELEASE3N 1.12, Experimental CHAOSNET 1.10, Experimental DEBUG-TOOLS 4.6, Experimental ETHERNET 1.5, Experimental FONT-EDITOR 4.1, Experimental GC 1.10, Experimental GLOSSARY 4.4, Experimental IMAGEN 2.1, Experimental INPUT-EDITOR 4.3, Experimental MAIL-DAEMON 4.2, Experimental MAIL-READER 4.2, Experimental METER 4.0, Experimental NAMESPACE-EDITOR 8.10, Experimental NETWORK-SUPPORT 4.11, Experimental NVRAM 3.5, Experimental PROFILE 4.11, Experimental SERIAL 4.0, Experimental SUGGESTIONS 1.8, Experimental TELNET 6.4, Experimental UCL 6.14, Experimental TV 1.20, Experimental ZWEI 4.16, Experimental NAMESPACE 3.11, Experimental RELEASE3M 1.61, Experimental COMPILER 13.11, Experimental IO 1.19, Experimental FILE 1.6, Experimental PATHNAME 1.15, Experimental PRINTER 4.7, Experimental STREAMER-TAPE 5.5, Experimental SYSLOG 4.2, Experimental BUG 2.1, Experimental VT100 4.1, Experimental IP 2.6,  microcode 202, Band Name: 3N+IP U200.("FILE" 3) de 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