LMFL#!C(:HOST "SYS" :BACKUP-DATE 2760029655. :SYSTEM-TYPE :LOGICAL :VERSION 18. :TYPE "PATCH-DIRECTORY" :NAME "FILE-3" :DIRECTORY ("REL3" "PATCH" "FILE") :SOURCE-PATTERN "( :DIRECTORY (\"REL3\") :NAME :WILD :TYPE :WILD :VERSION :NEWEST)" :VERSION-LIMIT 0. :CHARACTERS T :NOT-BACKED-UP T :CREATION-DATE 2758047995. :AUTHOR "REL3" :LENGTH-IN-BYTES 1516. :LENGTH-IN-BLOCKS 2. :BYTE-SIZE 8.)                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             ;;; -*- Mode: Common-Lisp; Package:User; Base:10.; Patch-File:T -*-;;; Patch directory for FILE version 3;;; Written 05/26/87 15:28:17 by BERGER,;;; while running on ARIES from band LODX;;; With IO 3.4, PATHNAME 3.6, FILE 3.3, SYSTEM 3.15, METER 3.0, SERIAL 3.0, CHAOSNET 3.6, ETHERNET 3.0, GC 3.5, IMAGEN 3.0, MAIL-DAEMON 3.0, NETWORK-SUPPORT 3.4, PROFILE 3.0, SUGGESTIONS 3.3, UCL 3.0, ZWEI 3.2, STREAMER-TAPE 3.1, DEBUG-TOOLS 3.0, FONT-EDITOR 3.0, GLOSSARY 3.0, INPUT-EDITOR 3.0, MAIL-READER 3.0, NAMESPACE-EDITOR 3.1, NVRAM 3.0, TELNET 3.0, TV 3.3, NAMESPACE 3.7, COMPILER 3.1, PRINTER 3.1, SYSLOG 3.0, VT100 3.1, IP 2.14, Experimental BUG 4.8,  microcode 1, Band Name: REL3+PATCHES,5-21.(:PATCH-SYSTEM-NAME "FILE" :MAJOR-VERSION 3 :LATEST-MINOR-VERSION 5)(:RELEASED((0 "FILE Loaded" "Modified" NIL)  (1 "Fixes Delete-file, Undelete-file, Rename-file and indirectly DELETE-DIRECTORY. They did not handle subdirectorynodes properly.Bug Reports: 4928,5011,5072,5109Code readers: DAB,MBC,HW" "BERGER" NIL)  (2 "Fixes Patch File-3-1. Delete-file and Undelete-file were returning three list. They needed to return a list of three lists. This broke ZMACS Meta-x DELETE FILE and UNDELETE-FILE.  " "BERGER" NIL)  (3 "Fixes FILE-3-1 Rename-file. Now returns three pathname objects when NO wildcards in pathname." "BERGER" NIL)  (4 "Support :IF-EXISTS option for COPY-FILE." "HW" NIL)  (5 "Fixed Change-properties-for-copy to not destructively remove properties from the input stream." "BERGER" NIL)  )) 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