;;; -*- Mode:Lisp; Readtable:ZL; Package:USER; Base:8; Patch-File:T -*- ;;; Patch file for ZWEI version 128.1 ;;; Written 11-Nov-88 18:31:00 by keith at site Gigamos Cambridge ;;; while running on Djinn from band 1 ;;; with Experimental Local-File 77.0, Experimental File-Server 26.0, Experimental Lambda-Diag 19.0, Experimental Unix-Interface 16.0, Experimental Tape 27.0, Experimental System 130.0, Experimental ZWEI 128.0, Experimental ZMail 75.0, Microcode 1762, SDU Boot Tape 3.14, SDU ROM 102, 11/04. ; From modified file DJ: L.ZWEI; FILES.LISP#209 at 11-Nov-88 18:31:17 #8R ZWEI#: (COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI"))) (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; FILES  " (defcom com-unfasl-file "Unfasl selected file and visit output" () (let* ((default (fs:default-pathname(pathname-defaults))) (file (read-defaulted-pathname "File to UNFASL:" (send default :new-pathname :type :qfasl) "QFASL")) output-file) (typein-line "~&UNFASLing /"~A/"" file) (setq output-file (si:unfasl-file file)) (find-file output-file)) dis-none) )) ; From modified file DJ: L.ZWEI; ZMACS.LISP#595 at 11-Nov-88 18:33:31 #8R ZWEI#: (COMPILER-LET ((*PACKAGE* (PKG-FIND-PACKAGE "ZWEI"))) (COMPILER::PATCH-SOURCE-FILE "SYS: ZWEI; ZMACS  " (DEFUN INITIALIZE-ZMACS-COMTABS () (SETQ *ZMACS-CONTROL-X-COMTAB* (SET-COMTAB 'ZMACS-CONTROL-X-COMTAB '(#/C-F COM-FIND-FILE #/C-V COM-FIND-ALTERNATE-FILE #/B COM-SELECT-BUFFER #/C-W COM-WRITE-FILE #/C-S COM-SAVE-FILE #/C-Q COM-TOGGLE-READ-ONLY #/C-B COM-LIST-BUFFERS #/K COM-KILL-BUFFER #/A COM-APPEND-TO-BUFFER #/1 COM-ONE-WINDOW #/2 COM-TWO-WINDOWS #/3 COM-VIEW-TWO-WINDOWS #/4 COM-MODIFIED-TWO-WINDOWS #/^ COM-GROW-WINDOW #/O COM-OTHER-WINDOW #/M COM-MAIL #/D COM- R-DIRED #/V COM-VIEW-FILE #/8 COM-TWO-WINDOWS-SHOWING-REGION #/C-M-L COM-SELECT-DEFAULT-PREVIOUS-BUFFER))) (SET-COMTAB-INDIRECTION *ZMACS-CONTROL-X-COMTAB* *STANDARD-CONTROL-X-COMTAB*) (SETQ *ZMACS-COMTAB* (SET-COMTAB 'ZMACS-COMTAB '(#/C-M-V COM-SCROLL-OTHER-WINDOW #/C-SH-P COM-GO-TO-NEXT-POSSIBILITY #/C-SH-W COM-EDIT-NEXT-WARNING #/M-SH-W COM-EDIT-PREVIOUS-WARNING #/M-~ COM-NOT-MODIFIED #/M-/. COM-EDIT-DEFINITION #/C-M-/. COM-EDIT-ZMACS-COMMAND #/C-M-L COM-SELECT-PREVIOUS-BUFFER) (MAKE-COMMAND-ALIST '(COM-REVERT-BUFFER COM-NOT-MODIFIED COM-VISIT-TAG-TABLE COM-LIST-BUFFERS COM-SAVE-ALL-FILES COM-KILL-SOME-BUFFERS COM-KILL-OR-SAVE-BUFFERS COM-EDIT-BUFFERS COM-BUFFER-EDIT com-create-one-buffer-to-go COM-SPLIT-SCREEN COM-LIST-SECTIONS COM-LIST-TAG-TABLES com-list-tag-buffers COM-SELECT-TAG-TABLE com-current-tag-table COM-SET-DEFAULT-FILE-NAME COM-RENAME-BUFFER COM-SET-VISITED-FILE-NAME COM-TAGS-SEARCH COM-TAGS-QUERY-REPLACE COM-NEXT-FILE COM-TAGS-SEARCH-LIST-SECTIONS COM-EDIT-CALLERS COM-LIST-CALLERS COM-LIST-OBJECT-USERS COM-MULTIPLE-LIST-OBJECT-USERS COM-MULTIPLE-EDIT-CALLERS COM-MULTIPLE-LIST-CALLERS COM-EDIT-OBJECT-USERS COM-MULTIPLE-EDIT-OBJECT-USERS COM-LIST-MATCHING-SYMBOLS COM-FUNCTION-APROPOS COM-SECTIONIZE-BUFFER COM-DESCRIBE-FLAVOR COM-LIST-FLAVOR-COMPONENTS COM-EDIT-FLAVOR-COMPONENTS COM-LIST-FLAVOR-DEPENDENTS COM-EDIT-FLAVOR-DEPENDENTS COM-LIST-FLAVOR-DIRECT-DEPENDENTS COM-EDIT-FLAVOR-DIRECT-DEPENDENTS COM-LIST-FLAVOR-METHODS COM-EDIT-FLAVOR-METHODS COM-LIST-METHODS COM-EDIT-METHODS COM-LIST-COMBINED-METHODS COM-EDIT-COMBINED-METHODS COM-FASL-UPDATE COM-EDIT-ZMACS-COMMAND COM-COMPILE-FILE COM-COMPILE-AND-LOAD-FILE com-unfasl-file ;; $$$ Cannot add this unless it's defined with ZMacs: <08-Nov-88 keith> ;;;#+(TARGET LAMBDA) COM-COMPILE-FILE-FOR-FALCON COM-REPARSE-ATTRIBUTE-LIST COM-UPDATE-ATTRIBUTE-LIST COM-LIST-FONTS COM-DISPLAY-FONT COM-DIRED COM-BDIRED COM-REAP-FILE COM-CLEAN-DIRECTORY COM-CHANGE-FILE-PROPERTIES COM-EXPUNGE-DIRECTORY COM-CREATE-DIRECTORY COM-CREATE-LINK COM-REMOTE-CONNECT COM-REMOTE-ACCESS COM-MAIL COM-BUG COM-EDIT-WARNINGS COM-EDIT-FILE-WARNINGS COM-EDIT-SYSTEM-WARNINGS COM-INSERT-FILE-WARNINGS COM-INSERT-WARNINGS COM-FIND-SYSTEM-FILES COM-FIND-FILE-NO-SECTIONIZE COM-FIND-FILE-BACKGROUND COM-SELECT-SYSTEM-AS-TAG-TABLE COM-SELECT-ALL-BUFFERS-AS-TAG-TABLE COM-SELECT-SOME-BUFFERS-AS-TAG-TABLE COM-TAGS-MULTIPLE-QUERY-REPLACE COM-TAGS-MULTIPLE-QUERY-REPLACE-FROM-BUFFER COM-WHERE-IS-SYMBOL COM-ZTOP-MODE COM-SELECT-LAST-ZTOP-BUFFER COM-SET-BACKSPACE COM-SET-BASE COM-SET-PACKAGE COM-SET-LOWERCASE COM-SET-NOFILL COM-SET-PATCH-FILE COM-SET-TAB-WIDTH COM-SET-VSP COM-SET-COMMON-LISP COM-SET-READTABLE COM-INDENT-RIGIDLY COM-VIEW-BUFFER COM-INSERT-BUFFER COM-PRINT-MODIFICATIONS COM-COMPILE-CHANGED-SECTIONS COM-COMPILE-BUFFER-CHANGED-SECTIONS COM-EVALUATE-CHANGED-SECTIONS COM-EVALUATE-BUFFER-CHANGED-SECTIONS COM-LIST-CHANGED-SECTIONS COM-EDIT-CHANGED-SECTIONS COM-LIST-BUFFER-CHANGED-SECTIONS COM-EDIT-BUFFER-CHANGED-SECTIONS COM-TAGS-LIST-CHANGED-SECTIONS COM-TAGS-EDIT-CHANGED-SECTIONS COM-TAGS-COMPILE-CHANGED-SECTIONS COM-TAGS-EVALUATE-CHANGED-SECTIONS COM-SOURCE-COMPARE COM-SOURCE-COMPARE-MERGE COM-SOURCE-COMPARE-CHANGES COM-START-PATCH COM-ADD-PATCH COM-FINISH-PATCH COM-CANCEL-PATCH COM-RESUME-PATCH COM-FINISH-PATCH-UNRELEASED COM-RELEASE-PATCH COM-START-PRIVATE-PATCH COM-ADD-PATCH-CHANGED-SECTIONS COM-ADD-PATCH-BUFFER-CHANGED-SECTIONS COM-TEACH-ZMACS )))) (SET-COMTAB-INDIRECTION *ZMACS-COMTAB* *STANDARD-COMTAB*) (SET-COMTAB *ZMACS-COMTAB* (LIST #/C-X (MAKE-EXTENDED-COMMAND *ZMACS-CONTROL-X-COMTAB*))) (SET-COMTAB *ZMACS-COMTAB* (LIST #/MOUSE-3-1 (MAKE-MENU-COMMAND '(COM-ARGLIST COM-EDIT-DEFINITION COM-LIST-CALLERS COM-LIST-SECTIONS COM-LIST-BUFFERS COM-KILL-OR-SAVE-BUFFERS com-edit-buffers COM-SPLIT-SCREEN COM-COMPILE-REGION COM-INDENT-REGION COM-CHANGE-DEFAULT-FONT COM-CHANGE-FONT-REGION COM-UPPERCASE-REGION COM-LOWERCASE-REGION COM-MOUSE-INDENT-RIGIDLY COM-MOUSE-INDENT-UNDER))))) (set-comtab *zmacs-comtab* nil '(com-unfasl-file)) ))