[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Adding a patch....
- To: slug@master.inference.dialnet.symbolics.com
- Subject: Adding a patch....
- From: Jerry@marlowe.inference.dialnet.symbolics.com
- Date: Mon, 20 Jun 88 22:34:00 EDT
- Character-type-mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB") (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI") (3 0 (NIL 0) (NIL :BOLD-ITALIC NIL) "CPTFONTBI")
- Fonts: CPTFONT, CPTFONTCB, CPTFONTI, CPTFONTBI
- In-reply-to: <880608191037.2.JERRY@MURRAY.inference.dialnet.symbolics.com>
I sent this message two weeks ago.... I have never got a reply.
This machine, "Machine serial number 20502", is on maintenance.
HEY FOLKS, IT IS NOT UP TO ME TO REMIND YOU TO ANSWER YOUR MAIL.
Date: Wed, 8 Jun 88 19:10 PDT
From: Jerry@MASTER.inference.dialnet.symbolics.com
Please send correspondence concerning this bug report to:
Jerry@Mailer.Inference.dialnet.Symbolics.COM
This week I'll also be at:
Jerry@Devo.WROC-SNA.dialnet.Symbolics.COM%Vermithrax
Thanks.
In Symbolics 3620 Zwei in Genera 7.1, Hacks 3.0, IP-TCP 52.16, DNA 29.22,
Experimental Automated Reasoning Tool 22.0, Experimental Sna 15.11,
Experimental Serial 4.3, Experimental Sna Support Patches 1.0,
Experimental Operations Interface 12.9,
Experimental Communications Interface 63.27,
Experimental AA Emulator 101.0,
Experimental Authorizer's Assistant 140.0, microcode 3650-MIC 406,
FEP 206, Fep0:>g206-lisp.flod(15), Fep0:>g206-loaders.flod(15),
Fep0:>g206-info.flod(15), Fep0:>G206-debug.flod(4),
Machine serial number 20502,
Patches so hardcopy will work with new serial (from SYS:DISTRIBUTION;DEFS;7-1-SNA-SUPPORT;HARDCOPY-PATCH.LISP.2),
7.1 fixes for DIALNET/Modem support (from SYS:DISTRIBUTION;DEFS;7-1-SNA-SUPPORT;DIAL-PATCH.LISP.5),
Asciiify Adobe patch on its way to the LGP2 (from SYS:DISTRIBUTION;DEFS;7-1-SNA-SUPPORT;ADOBE-PATCH-PATCH.LISP.1),
contribute to making all errors proceedable (from AA:AA-OPS;SYSTEM-PATCHES.LISP.25),
get the columns equally spaced in the rows (from AA:AA-OPS;SYSTEM-PATCHES.LISP.25),
Let dw::define-program-command take a command table so that there can several command tables which have lexical access to the program state variables (from AA:AA-OPS;SYSTEM-PATCHES.LISP.25),
This group of patches is intended to extend and tune the AA-COMM trace facility. (from AA:LOGGING;TRACING.LISP.25), on Bill Murray:
I have been getting the following error message when I execute the ZMACS
command "M-X Add Patch" to the aa-emulator system. The system file has
been appended below. The System compiles and loads absolutely error
free. It is patchable. The files which should define the customs
defsubsystem are all present.
What does this error message mean? How do I fix it? How do I find out
more about the problem?
I would look into it myself, but the source for
1SCT:GET-SYSTEM-INPUT-AND-OUTPUT-DEFSYSTEM-FILES0,
1SCT:GET-ALL-SYSTEM-INPUT-FILES0, etc., is not basic code, at least not in 7.1.
Please, I have no idea what is going on, and it is imperative that this
be fixed within a week! (Because we have to deliver and install a
patchable system.)
1Error: There is no file defined for the DEFSYSTEM of AA-EMULATOR-CUSTOMS
0While in the function SCT:GET-SYSTEM-INPUT-AND-OUTPUT-DEFSYSTEM-FILES SCT:GET-ALL-SYSTEM-INPUT-FILES SCT:GET-ALL-SYSTEM-INPUT-FILES
The condition signalled was ZL:FERROR
1SCT:GET-SYSTEM-INPUT-AND-OUTPUT-DEFSYSTEM-FILES0: (P.C. = 30)
Arg 0 (SCT:SYSTEM): "AA-EMULATOR-CUSTOMS"
Arg 1 (SCT:VERSION): NIL
Local 2 (SCT:SYSTEM-NAME): :AA-EMULATOR-CUSTOMS
Local 3 (SCT:STYPE): :LISP
Local 4 (SCT:SOURCE): NIL
Special SCT:*SYSTEM*: #<SUBSYSTEM AA-EMULATOR-CUSTOMS 275670225>
1SCT:GET-ALL-SYSTEM-INPUT-FILES0: (P.C. = 20)
Arg 0 (SCT:SYSTEM): "AA-EMULATOR-CUSTOMS"
Rest arg: (:INCLUDE-COMPONENTS T)
1SCT:GET-ALL-SYSTEM-INPUT-FILES0: (P.C. = 100)
Arg 0 (SCT:SYSTEM): #<SYSTEM AA-EMULATOR 275661341>
Rest arg: (:INCLUDE-COMPONENTS T)
1ZWEI:TRANSLATE-SYSTEM-LOGICAL-PATHNAMES0: (P.C. = 11)
Arg 0 (ZWEI:SYSTEM): #<SYSTEM AA-EMULATOR 275661341>
1ZWEI:MAKE-PATCH-CURRENT0: (P.C. = 105)
Arg 0 (ZWEI:SYSTEM-TO-PATCH): ("AA-EMULATOR" 1 :RELEASED ((0 "AA-EMULATOR version 1 loaded." "Jerry" 2791860005 NIL)))
Rest arg: NIL
1ZWEI:FIND-APPROPRIATE-PATCH-FOR-BUFFER0: (P.C. = 54)
Arg 0 (ZWEI:BUFFER): #<FILE-BUFFER "aa-emulator.lisp >amex LETTERMAN:" 7700506>
Rest arg: (:NO-MENU-IF-NO-APPROPRIATE NIL)
1ZWEI:COM-ADD-PATCH0: (P.C. = 6)
1ZWEI:COM-EXTENDED-COMMAND0: (P.C. = 17)
1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0: (P.C. = 43)
Arg 0 (SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL ZWEI:COMMAND-EXECUTE 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 52700306>
Rest arg: NIL
1ZWEI:COMMAND-EXECUTE0: (P.C. = 57)
Arg 0 (ZWEI:COMMAND): ZWEI:COM-EXTENDED-COMMAND
Arg 1 (ZWEI:CHAR): #\m-X
Arg 2 (ZWEI:PREFIX-CHAR): NIL
Arg 3 (ZWEI:HOOK-LIST): NIL
1ZWEI:PROCESS-COMMAND-CHAR0: (P.C. = 14)
Arg 0 (ZWEI:CH): #\m-X
1(FLAVOR:METHOD :EDIT ZWEI:EDITOR)0: (P.C. = 316)
Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
Arg 2 (FLAVOR::.GENERIC.): :EDIT
2 --Defaulted args:--
0 Arg 3 (ZWEI:TOP-LEVEL-P): T
Arg 4 (ZWEI:DESCRIPTION): NIL
1(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1)0: (P.C. = 20)
Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
Arg 2 (FLAVOR::.GENERIC.): :EDIT
Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL
1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0: (P.C. = 40)
Arg 0 (SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 52700110>
Rest arg: NIL
1(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR)0: (P.C. = 20)
Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1) 150176730>
Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
Arg 4 (FLAVOR::.GENERIC.): :EDIT
Rest arg (ZWEI:ARGUMENTS): NIL
1(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR)0: (P.C. = 317)
Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
Arg 2 (FLAVOR::.GENERIC.): :EDIT
Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL
1ZWEI:ZMACS-WINDOW-TOP-LEVEL0: (P.C. = 55) 2(from SYS:PATCH;SYSTEM-349-88)
1SI:PROCESS-TOP-LEVEL0: (P.C. = 45)
2 --Defaulted args:--
0 Arg 0 (IGNORE): NIL
;;; -*- Syntax: Common-Lisp; Package: ACU; Base: 10; Mode: Lisp; Patch-File: Yes -*-
(setf tv:more-processing-global-enable nil)
(defvar *aa-boot-inits* nil)
(defvar *aa-emulator-initial-load-list* nil)
(defsystem aa-emulator
(:pretty-name "AA Emulator"
:default-pathname "aa:aa-emulator;"
:default-package acu
:patchable t
:initializations *aa-emulator-initial-load-list*
:initial-status :experimental
:bug-reports ("Bug-AA@Mailer.Inference.Dialnet.Symbolics.COM"
"Report problems with the AA")
:advertised-in (:herald :finger :disk-label)
:distribute-sources t)
(:module customs (customs) (:type :system))
(:module genera-enhancements (genera-enhancements) (:type :system))
(:module aa-macros (aa-macros) (:type :system)
(:uses-definitions-from customs))
(:module queues ("aa:utilities;queues"))
(:module aa-time (aa-time) (:type :system)
(:in-order-to :load (:load genera-enhancements)))
(:module logs (logs) (:type :system))
(:module nodes ("aa:aacode;nodes")
(:in-order-to :load (:load genera-enhancements))
(:uses-definitions-from customs))
(:module fsa-utility (fsa-utility) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from queues)
(:uses-definitions-from logs)
(:in-order-to :load (:load genera-enhancements)))
(:module clones (clones) (:type :system)
(:in-order-to :load (:load genera-enhancements)))
(:module header-definitions (header-definitions) (:type :system)
(:uses-definitions-from aa-macros))
(:module application-fsas (application-fsas) (:type :system)
(:in-order-to :compile (:load queues))
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:uses-definitions-from header-definitions))
(:module application-fsa-utilities (application-fsa-utilities) (:type :system)
(:uses-definitions-from customs)
(:uses-definitions-from aa-macros)
(:uses-definitions-from application-fsas))
(:module transactions ("aa:transactions;transactions"))
(:module header-parsing (header-parsing) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from header-definitions)
(:uses-definitions-from transactions))
(:module applications-level (applications-level) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:uses-definitions-from application-fsas))
(:module tcp-communications (tcp-communications) (:type :system))
(:module boot-initialization ("aa:aacode;boot-initialization"))
(:module user-interface (user-interface) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:in-order-to :load (:load genera-enhancements))
(:in-order-to :load (:load nodes))
(:in-order-to :load (:load boot-initialization))))
(defsubsystem customs
(:default-pathname "aa:communications;")
(:serial "aa-comm-exports" "aa-comm-imports"))
(defsubsystem genera-enhancements
(:default-pathname "aa:aacode;")
(:parallel "format-extensions" "initializations" "debugger" "namespace"))
(defsubsystem aa-macros
(:default-pathname "aa:utilities;")
(:parallel "def-aa-parameter" "strings" "def-aa-process" "with-macros"))
(defsubsystem aa-time
(:default-pathname "aa:time;")
(:serial "timers" "clock"))
(defsubsystem logs
(:default-pathname "aa:logging;")
(:module macros ("log-macros"))
(:module more-macros ("def-trace-window") (:uses-definitions-from macros))
(:module tracing ("tracing" "aa-log") (:uses-definitions-from more-macros)))
(defsubsystem fsa-utility
(:default-pathname "aa:fsa;")
(:serial "fsa" "def-fsa-macros"))
(defsubsystem clones
(:default-pathname "aa:clones;")
(:parallel
"clone-id-symbols"
"def-process-clones"))
(defsubsystem header-definitions
(:default-pathname "aa:transactions;")
(:serial "cas-and-aa-headers"
(:parallel "control-and-aa-headers" "ims-and-aa-headers" "typical-dsects")))
(defsubsystem application-fsas
(:default-pathname "aa:fsa;")
(:module pools ("pools"))
(:module psf ("process-state-fsa") (:uses-definitions-from pools))
(:module sub-fsas ("cas-line-fsa" "ims-line-fsa" "control-line-fsa")
(:uses-definitions-from pools))
(:module otherwise ("aa-io-methods")
(:uses-definitions-from pools)
(:uses-definitions-from psf)
(:uses-definitions-from sub-fsas)))
(defsubsystem application-fsa-utilities
(:default-pathname "aa:fsa;")
(:parallel
"process-clones"
"input-processing"))
;;; -*- Syntax: Common-Lisp; Package: ACU; Base: 10; Mode: Lisp; Patch-File: Yes -*-
(setf tv:more-processing-global-enable nil)
(require "disabled-more" "sys:site;disabled-more-processing.lisp")
3;;; 7.1 AA System Construction Tool Load File
0(require "inference-or-amex" "sys:site;inference-or-amex")
(require "mail-namespace-fixes" "sys:site;mail-namespace-fixes")
(require "import!" "sys:site;import!.lisp")
3;;;
;;; And now, the defsystem....
;;;
;;;
;;; Use add-initialization to add initializing functions to the AA
;;; See below
;;;
0(require "use-scl" "aa:aa;use-scl")
(defvar *aa-boot-inits* nil)
(defvar *aa-emulator-initial-load-list* nil)
(defsystem aa-emulator
(:pretty-name "AA Emulator"
:default-pathname "aa:aa-emulator;"
:default-package acu
:patchable t
:initializations *aa-emulator-initial-load-list*
:initial-status :released
:bug-reports ("Bug-AA@Mailer.Inference.Dialnet.Symbolics.COM"
"Report problems with the AA")
:advertised-in (:herald :finger :disk-label)
:distribute-sources t)
(:module customs (aa-emulator-customs) (:type :system))
(:module genera-enhancements (aa-emulator-genera-enhancements) (:type :system))
(:module aa-macros (aa-emulator-aa-macros) (:type :system)
(:uses-definitions-from customs))
(:module queues ("aa:utilities;queues"))
(:module aa-time (aa-emulator-aa-time) (:type :system)
(:in-order-to :load (:load genera-enhancements)))
(:module logs (aa-emulator-logs) (:type :system))
(:module nodes ("aa:aacode;nodes")
(:in-order-to :load (:load genera-enhancements))
(:uses-definitions-from customs)
(:uses-definitions-from aa-macros))
(:module fsa-utility (aa-emulator-fsa-utility) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from queues)
(:uses-definitions-from logs)
(:in-order-to :load (:load genera-enhancements)))
(:module clones (aa-emulator-clones) (:type :system)
(:in-order-to :load (:load genera-enhancements)))
(:module header-definitions (aa-emulator-header-definitions) (:type :system)
(:uses-definitions-from aa-macros))
(:module application-fsas (aa-emulator-application-fsas) (:type :system)
(:in-order-to :compile (:load queues))
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:uses-definitions-from header-definitions))
(:module application-fsa-utilities (aa-emulator-application-fsa-utilities) (:type :system)
(:uses-definitions-from customs)
(:uses-definitions-from aa-macros)
(:uses-definitions-from application-fsas))
(:module transactions ("aa:transactions;transactions"))
(:module header-parsing (aa-emulator-header-parsing) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from header-definitions)
(:uses-definitions-from transactions))
(:module applications-level (aa-emulator-applications-level) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:uses-definitions-from application-fsas))
(:module tcp-communications (aa-emulator-tcp-communications) (:type :system))
(:module boot-initialization ("aa:aacode;boot-initialization"))
(:module user-interface (aa-emulator-user-interface) (:type :system)
(:uses-definitions-from aa-macros)
(:uses-definitions-from customs)
(:in-order-to :load (:load genera-enhancements))
(:in-order-to :load (:load nodes))
(:in-order-to :load (:load boot-initialization))))
(defsubsystem aa-emulator-customs
(:default-pathname "aa:communications;")
(:serial "aa-comm-exports" "aa-comm-imports"))
(defsubsystem aa-emulator-genera-enhancements
(:default-pathname "aa:aacode;")
(:parallel "format-extensions" "initializations" "debugger" "namespace"))
(defsubsystem aa-emulator-aa-macros
(:default-pathname "aa:utilities;")
(:parallel "def-aa-parameter" "strings" "def-aa-process" "with-macros"))
(defsubsystem aa-emulator-aa-time
(:default-pathname "aa:time;")
(:serial "timers" "clock"))
(defsubsystem aa-emulator-logs
(:default-pathname "aa:logging;")
(:module macros ("log-macros"))
(:module more-macros ("def-trace-window") (:uses-definitions-from macros))
(:module tracing ("tracing" "aa-log") (:uses-definitions-from more-macros)))
(defsubsystem aa-emulator-fsa-utility
(:default-pathname "aa:fsa;")
(:serial "fsa" "def-fsa-macros"))
(defsubsystem aa-emulator-clones
(:default-pathname "aa:clones;")
(:serial
"clone-id-symbols"
"def-process-clones"))
(defsubsystem aa-emulator-header-definitions
(:default-pathname "aa:transactions;")
(:serial "cas-and-aa-headers"
(:parallel "control-and-aa-headers" "ims-and-aa-headers" "typical-dsects")))
(defsubsystem aa-emulator-application-fsas
(:default-pathname "aa:fsa;")
(:module pools ("pools"))
(:module psf ("process-state-fsa") (:uses-definitions-from pools))
(:module sub-fsas ("cas-line-fsa" "ims-line-fsa" "control-line-fsa")
(:uses-definitions-from pools))
(:module otherwise ("aa-io-methods")
(:uses-definitions-from pools)
(:uses-definitions-from psf)
(:uses-definitions-from sub-fsas)))
(defsubsystem aa-emulator-application-fsa-utilities
(:default-pathname "aa:fsa;")
(:parallel
"process-clones"
"input-processing"))
(defsubsystem aa-emulator-applications-level
(:default-pathname "aa:async;")
(:parallel
"aa:communications;applications-layer"
"asynchronous"
"coupled-fsas"
"aa:utilities;run-error-handler"))
(defsubsystem aa-emulator-header-parsing
(:default-pathname "aa:transactions;")
(:parallel
"cas-line-fsa-headers"
"control-line-fsa-headers"
"ims-line-fsa-headers"))
(defsubsystem aa-emulator-tcp-communications
(:default-pathname "aa:communications;")
(:parallel "sna-simulations" "sna-p"))
(defsubsystem aa-emulator-user-interface
(:default-pathname "aa:aa-emulator;")
(:serial
"aa-emulator-testbed"
"create-frame"
"aa-frame"))