ed-buffer received a :homedir message

[Richard Mlynarik <Mly at MIT-OZ>]

In Bad Inconsistently updated System 98.7, CADR 3.1,
Inconsistently updated ZMail 53.3, MIT-Specific 22.0, microcode 305,
ZM MIT, on Lisp Machine One:


Insert your description of the circumstances here:

minibuffer prompting for file name.
I typed "ed-buffer:random"
Is is reasonable to support this method?

>>ERROR: The object #ZWEI#:ED-BUFFER-PATHNAME "ED-BUFFER: NIL" received a :HOMEDIR message, which went unclaimed.
The rest of the message was ("Mly").
Backtrace from the debugger:

#ZWEI#:ED-BUFFER-PATHNAME "ED-BUFFER: NIL":
   Arg 0: :HOMEDIR
   Arg 1: "Mly"


SI#:INSTANCE-HASH-FAILURE (P.C. = 170)

 Arg 0 (OP): :HOMEDIR
 Rest arg (ARGS): ("Mly")
Local 1 (HT): <<Error printing local>>
Local 2 (FN-LOCATION): NIL
Local 3 (FUNC): NIL
Local 4 (NEWHT): NIL
Local 5: NIL
Local 6: NIL


FS:USER-HOMEDIR (P.C. = 140)

 Arg 0 (HOST): #ZWEI-BUFFER-HOST "ED-BUFFER"
   --Defaulted args:--
 Arg 1 (RESET-P): NIL
 Arg 2 (USER): "Mly"
 Arg 3 (FORCE-P): NIL
Local 0: (FS:FILE-ERROR SI#:CONDITION-CASE-THROW FS#:G8766)
Local 1: ((FS:FILE-ERROR SI#:CONDITION-CASE-THROW FS#:G8766))
Local 2 (*SELECTQ-ITEM*): NIL


FS:DEFAULT-PATHNAME (P.C. = 200)

 Arg 0 (DEFAULTS): ((#ZWEI-FILE-HOST "ED-FILE") (#ZWEI-BUFFER-HOST "ED-BUFFER") (#ZWEI-HOST "ED") (#FS#:LOGICAL-HOST "SYS") ...)
 Arg 1 (HOST): #ZWEI-BUFFER-HOST "ED-BUFFER"
 Arg 2 (DEFAULT-TYPE): :LISP
 Arg 3 (DEFAULT-VERSION): NIL
   --Defaulted args:--
 Arg 4 (INTERNAL-P): NIL
Local 0 (ELEM): (#FS#:TOPS20-CHAOS-HOST "MIT-OZ")
Local 1 (PATHNAME): NIL
Local 2 (HOST-TO-USE): #ZWEI-BUFFER-HOST "ED-BUFFER"
Local 3: NIL
Local 4 (DEFAULT): NIL


Additional information supplied with call:
 Expecting 2 values

FS:COMPLETE-PATHNAME (P.C. = 65)

 Arg 0 (DEFAULTS): ((#ZWEI-FILE-HOST "ED-FILE") (#ZWEI-BUFFER-HOST "ED-BUFFER") (#ZWEI-HOST "ED") (#FS#:LOGICAL-HOST "SYS") ...)
 Arg 1 (STRING): "random"
 Arg 2 (TYPE): :LISP
 Arg 3 (VERSION): NIL
 Rest arg (OPTIONS): (:READ)
Local 1 (PATHNAME): NIL
Local 2 (HOST): #ZWEI-BUFFER-HOST "ED-BUFFER"
Local 3 (START): 12
Local 4 (END): 20


Remainder of stack:

PATHNAME-COMPLETE (P.C. = 62)
COM-PATHNAME-COMPLETE (P.C. = 25)
COMMAND-EXECUTE (P.C. = 115)
PROCESS-COMMAND-CHAR (P.C. = 65)
(:METHOD WINDOW :EDIT) (P.C. = 464)
(:INTERNAL (:METHOD ZWEI-WITHOUT-TYPEOUT :COMBINED :EDIT) 0) (P.C. = 63)
FUNCALL (P.C. = 25)
(:METHOD DISPLAYER :AROUND :EDIT) (P.C. = 31)
(:METHOD ZWEI-WITHOUT-TYPEOUT :COMBINED :EDIT) (P.C. = 47)
EDIT-IN-MINI-BUFFER (P.C. = 326)
...
COMMAND-EXECUTE (P.C. = 115)
PROCESS-COMMAND-CHAR (P.C. = 65)
(:METHOD WINDOW :EDIT) (P.C. = 464)
(:INTERNAL (:METHOD ZMACS-WINDOW :COMBINED :EDIT) 0) (P.C. = 74)
FUNCALL (P.C. = 25)
(:METHOD DISPLAYER :AROUND :EDIT) (P.C. = 31)
(:METHOD ZMACS-WINDOW :COMBINED :EDIT) (P.C. = 47)
ZMACS-WINDOW-TOP-LEVEL (P.C. = 46)
SI#:PROCESS-TOP-LEVEL (P.C. = 152)