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

[Scott McKay <SWM@SAPSUCKER.SCRC.Symbolics.COM>]

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

    Date: Wed, 29 Jul 87 15:55 EDT
    From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>

    In Symbolics 3600 Zwei in Genera 7.1, ...

    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.

"Fixed in 7.2"

    (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)))
      ...)


1    Error: The system BASIC-GRAPH has not been defined
0    While 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)