weird twenex/DIRED interaction

[David Vinayak Wallace <Gumby at MCC-AI>]

In Symbolics 3640 Release 6.0, microcode TMC5-IO4-ST506-MIC 319, on Lord Ganesh:

If I am DIRED'ing a twenex directory, and my cursor is on a line which
points to a subdirectory and I type c-U c-X D I get this error (got
that?).  This does not happen with the same situation wrt LISPM host.

>>Error: Invalid access requested
         For MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1
While in the function (:METHOD HOST-UNIT :COMMAND)  OPEN-CHAOS  (:METHOD QFILE-ACCESS-PATH :OPEN)

(:METHOD HOST-UNIT :COMMAND):  (P.C. = 236)
   Arg 0 (SELF): #<HOST-UNIT 5333230>
   Arg 1 (SELF-MAPPING-TABLE): HOST-UNIT
   Arg 2 (OPERATION): :COMMAND
   Arg 3 (MARK-P): NIL
   Arg 4 (STREAM-OR-HANDLE): (:CREATE "I2313")
   Local 4 (STREAM-OR-HANDLE): "I2313"
   Arg 5 (SIMPLE-P): NIL
   Arg 6 (WHOSTATE): "Open"
   Rest arg (COMMANDS): ("OPEN " :READ " " :CHARACTER "" "" "" "" "" "" ...)
   Local 8 (HANDLE): "I2313"
   Local 9 (STREAM): NIL
   Local 10 (PKT): #<Chaos Packet 74506431>
   Local 11 (SUCCESS): NIL
   Local 12 (STRING): "I2313 ERROR WKF F Invalid access requested"
   Local 13 (TRANSACTION-ID): "T2321"
   Local 14 (CREATE-P): T
   Local 15 (CONDITION): NIL
   Local 16: T
   Local 17: #<CASE-HANDLER 120711625>
   Local 18: (#<CASE-HANDLER 120775643> #<LEXICAL-CLOSURE (:INTERNAL ** 0) 43440053>)
   Local 19: (#<CASE-HANDLER 120711625> #<CASE-HANDLER 120775643> #<LEXICAL-CLOSURE (:INTERNAL ** 0) 43440053>)

OPEN-CHAOS:  (P.C. = 674)
   Arg 0 (ACCESS-PATH): #<TOPS20-QFILE-ACCESS-PATH MCC using QFILE 5333217>
   Arg 1 (REAL-PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Arg 2: #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Arg 3 (OPTIONS): (:DIRECTION :INPUT)

(:METHOD QFILE-ACCESS-PATH :OPEN):  (P.C. = 7)
   Arg 0 (SELF): #<TOPS20-QFILE-ACCESS-PATH MCC using QFILE 5333217>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor QFILE-ACCESS-PATH -- 4. IV's, 0. FL's 121666243>
   Arg 2 (OPERATION): :OPEN
   Arg 3 (REAL-PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Arg 4 (PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Rest arg (OPTIONS): (:DIRECTION :INPUT)

(:METHOD ACTIVE-PATHNAME-MIXIN :OPEN):  (P.C. = 14)
   Arg 0 (SELF): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ACTIVE-PATHNAME-MIXIN -- 1. IV's, 0. FL's 105211451>
   Arg 2 (OPERATION): :OPEN
   Arg 3 (PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Rest arg (OPTIONS): (:DIRECTION :INPUT)

COMMON-LISP-OPEN:  (P.C. = 450)
   Arg 0 (PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Arg 1 (KEYWORD-ARGS): NIL

OPEN:  (P.C. = 257)
   Arg 0 (PATHNAME): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   Rest arg (KEYWORD-ARGS): NIL

ZWEI:READ-DIRECTORY-NAME:  (P.C. = 33)
   Arg 0 (PROMPT): "Edit directory"
   Arg 1 (DEFAULT): #<TOPS20-PATHNAME "MCC:PS:<SYMBOLICS.REL6.CL>GPRINT.DIRECTORY.1">
   --Defaulted args:--
   Arg 2 (WILDP): T

ZWEI:COM-DIRED:  (P.C. = 4)

ZWEI:COM-R-DIRED:  (P.C. = 26)

ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
   Arg 0 (COMMAND): ZWEI:COM-R-DIRED
   Arg 1 (CHAR): 100
   Arg 2 (PREFIX-CHAR): 344
   --Defaulted args:--
   Arg 3 (HOOK-LIST): NIL

ZWEI:MAKE-EXTENDED-COMMAND-INTERNAL:  (P.C. = 107)

Closure of ZWEI:MAKE-EXTENDED-COMMAND-INTERNAL:

ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
   Arg 0 (COMMAND): #<DTP-CLOSURE 112451571>
   Arg 1 (CHAR): 344
   Arg 2 (PREFIX-CHAR): NIL
   Arg 3 (HOOK-LIST): NIL

ZWEI:PROCESS-COMMAND-CHAR:  (P.C. = 14)
   Arg 0 (CH): 344

(:METHOD ZWEI:EDITOR :EDIT):  (P.C. = 233)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 121171573>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR -- 12. IV's, 0. FL's 142346020>
   Arg 2 (OPERATION): :EDIT
   --Defaulted args:--
   Arg 3 (TOP-LEVEL-P): T
   Arg 4 (DESCRIPTION): NIL

(:METHOD ZWEI:TOP-LEVEL-EDITOR :COMBINED :EDIT):  (P.C. = 60)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 121171573>
   Arg 1 (SELF-MAPPING-TABLE): #<Map to flavor ZWEI:TOP-LEVEL-EDITOR -- 13. IV's, 1. FL's 142345776>
   Arg 2 (.OPERATION.): :EDIT
   Rest arg (.DAEMON-CALLER-ARGS.): NIL

ZWEI:ZMACS-WINDOW-TOP-LEVEL:  (P.C. = 51)

SI:PROCESS-TOP-LEVEL:  (P.C. = 54)
   --Defaulted args:--
   Arg 0 (IGNORE): NIL