[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Select System As Tag Table blows out on system w/component system

To: Bug-Zwei@ZERMATT.LCS.MIT.EDU
Subject: Select System As Tag Table blows out on system w/component system
From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>
Date: Wed ,29 Jul 87 15:55:00 EDT
Cc: laura@VX.LCS.MIT.EDU
Character-type-mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")

                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3600 Zwei in Genera 7.1, Hacks 3.0, IP-TCP 52.16,
ILA-NFS 4.4, 7-1-Patches 1.20, MAC 12.1, Conversion Tools 12.4,
Pascal 25.10, Experimental X-Window-System 17.4,
Experimental Illustrate 11.3, TeX 1.0, LaTeX 1.0, SliTeX 1.0, YTeX 1.0,
Experimental Multilisp 15.0, Experimental Multilisp Compiler 7,
Experimental Bounce 1, Experimental LUNIX 1, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on TROMBONE:

In Zwei, I did m-X Select System As Tag Table on system NEW-BFLY,
intending to do Find Files In Tag Table after that.  The system had not
been previously loaded.  The system NEW-BFLY has one component system,
BASIC-GRAPH, which I wasn't interested in looking at.  However, it got
an error trying to find the BASIC-GRAPH system.  Either Zwei should try
to do SCT:FIND-SYSTEM-NAMED on component systems when Select System As
Tag Table is given the argument (ZWEI:INCLUDE-COMPONENTS): NIL, or it
should call find-system-named with arguments ERROR-P: NIL, LOADED-ONLY:
NIL, so that an error doesn't occur in this case.

(defsystem new-bfly
    (:default-pathname "bfly:bfly;" :patchable t)  
  (:module fonts ("bfly.bfd" "logos.bfd") (:type :font))
  (:module graph basic-graph (:type :system))
  ...
  (:module plot-future ("plot-future")
	   (:in-order-to (:compile :load)
	    (:load utilities new-mac scrolling windows graph)))
  ...)


1Error: The system BASIC-GRAPH has not been defined
0While in the function SCT:FIND-SYSTEM-NAMED  SCT:GET-ALL-SYSTEM-INPUT-FILES  (FLAVOR:METHOD :REVERT ZWEI:SYSTEM-TAG-TABLE-BUFFER)

The condition signalled was ZL:FERROR

1SCT:FIND-SYSTEM-NAMED0:  (P.C. = 123)
   Arg 0 (SCT:SYSTEM-NAME): "BASIC-GRAPH"
   Local 0 (SCT:SYSTEM-NAME): :BASIC-GRAPH
   Arg 1 (SCT:ERROR-P): T
   Arg 2 (SCT:LOADED-ONLY): T
2   --Defaulted args:--
0   Arg 3 (SCT:UNDEFINED-OK): NIL

1SCT:GET-ALL-SYSTEM-INPUT-FILES0:  (P.C. = 63)
   Arg 0 (SCT:SYSTEM): "NEW-BFLY"
   Rest arg: (:INCLUDE-COMPONENTS NIL)

1(FLAVOR:METHOD :REVERT ZWEI:SYSTEM-TAG-TABLE-BUFFER)0:  (P.C. = 11)
   Arg 0 (SELF): #<SYSTEM-TAG-TABLE-BUFFER "*Tag-Table-1*" 7700061>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:SYSTEM-TAG-TABLE-BUFFER 220120661>
   Arg 2 (FLAVOR::.GENERIC.): :REVERT

1(FLAVOR:COMBINED :REVERT ZWEI:SYSTEM-TAG-TABLE-BUFFER)0:  (P.C. = 17)
   Arg 0 (SELF): #<SYSTEM-TAG-TABLE-BUFFER "*Tag-Table-1*" 7700061>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:SYSTEM-TAG-TABLE-BUFFER 220120661>
   Arg 2 (FLAVOR::.GENERIC.): :REVERT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1(FLAVOR:METHOD :FIND-SPECIAL-BUFFER ZWEI:ZMACS-EDITOR)0:  (P.C. = 45)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-EDITOR 250045134>
   Arg 2 (FLAVOR::.GENERIC.): :FIND-SPECIAL-BUFFER
   Arg 3 (ZWEI:TYPE): :SYSTEM-TAG-TABLE
   Arg 4 (ZWEI:NEW-P): T
   Rest arg (ZWEI:SETS): (:SET-TAG-TABLE-NAME "NEW-BFLY" :SET-INCLUDE-COMPONENTS NIL)

1ZWEI:SELECT-TAG-TABLE0:  (P.C. = 15)
   Arg 0 (ZWEI:TYPE): :SYSTEM-TAG-TABLE
   Rest arg (ZWEI:SET-OPTIONS): (:SET-TAG-TABLE-NAME "NEW-BFLY" :SET-INCLUDE-COMPONENTS NIL)

1DFS::NEW-SELECT-TAG-TABLE0:  (P.C. = 103)  2(from LOGICAL-HOST:DFS;MACHINE-DEPENDENT)
0   Arg 0 (ZWEI:TYPE): :SYSTEM-TAG-TABLE
   Rest arg (ZWEI:SET-OPTIONS): (:SET-TAG-TABLE-NAME "NEW-BFLY" :SET-INCLUDE-COMPONENTS NIL)

1ZWEI:SELECT-SYSTEM-AS-TAG-TABLE0:  (P.C. = 55)  2(from SYS:PATCH;SYSTEM-349-201)
0   Arg 0 (ZWEI:INCLUDE-COMPONENTS): NIL

1ZWEI:COM-SELECT-SYSTEM-AS-TAG-TABLE0:  (P.C. = 3)

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

   Special SCT:*ALL-SYSTEMS*: 
(#<SYSTEM SYSTEM 121210425> #<SUBSYSTEM SYSTEM-INTERNALS 121210516> #<SUBSYSTEM SCT 121210637>
 #<SUBSYSTEM COMMON-LISP 121210737> #<SUBSYSTEM GARBAGE-COLLECTOR 121211201>
 #<SUBSYSTEM FLAVOR 121211245> #<SUBSYSTEM ERROR-SYSTEM 121211311>
 #<SUBSYSTEM NETWORK 121211355> #<SUBSYSTEM CHAOS 121212773> #<SUBSYSTEM BIN 121211421> ...)

Follow-Ups:
- Select System As Tag Table blows out on system w/component system
  - From: Scott McKay <SWM@SAPSUCKER.SCRC.Symbolics.COM>

Prev by Date: Comment Out Region breaks at the end of the buffer
Next by Date: Select System As Tag Table blows out on system w/component system
Previous by thread: Comment Out Region breaks at the end of the buffer
Next by thread: Select System As Tag Table blows out on system w/component system
Index(es):
- Date
- Thread