Compile File command with an argument

[Henry Lieberman <Henry at OZ>]

In Symbolics 3600 Release 6.0, IP-TCP 29.0, AISite 8.3,
Experimental COLOR 135.1, Experimental COLOR-EDITOR 4.0,
Experimental COLOR-PALETTE 2.0, Experimental COLOR-DEMO 68.0,
microcode TMC5-MIC 319, Release 6 with Color, on Lisp Machine Buddy Holly:

I did Control-U Meta-X Compile File Return.

>>Error: The object #<LISP-MODE 120576060> received a :DEFAULT-BINARY-FILE-TYPE message, which went unclaimed.
         The rest of the message was ()
While in the function ZWEI:COM-COMPILE-FILE  ZWEI:COM-EXTENDED-COMMAND  ZWEI:COMMAND-EXECUTE

ZWEI:COM-COMPILE-FILE:  (P.C. = 20)
   Local 0 (PATH): #<TOPS20-PATHNAME "OZ:PS:<HENRY>LMT.LISP">
   Local 1 (MAJOR-MODE): #<LISP-MODE 120576060>

ZWEI:COM-EXTENDED-COMMAND:  (P.C. = 27)

ZWEI:COMMAND-EXECUTE:  (P.C. = 57)
   Arg 0 (COMMAND): ZWEI:COM-EXTENDED-COMMAND
   Arg 1 (CHAR): 600
   Arg 2 (PREFIX-CHAR): NIL
   Arg 3 (HOOK-LIST): (ZWEI:EXPAND-ABBREV-HOOK ZWEI:SHIFT-LOCK-HOOK)

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

(: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)
   Arg 0 (IGNORE): NIL