[no subject]

[David Vinayak Wallace <Gumby at MIT-OZ>]

In Experimental MIT-Specific 18.0, Experimental System 93.11,
Experimental ZMail 49.4, microcode 226, gc@2, on Lisp Machine Six:


Insert your description of the circumstances here:

M-X Revert buffer doesn't work

>>TRAP 3772 (ARGTYP INSTANCE PP 0 XINSTANCE-LOC %INSTANCE-LOC)
The first argument to SYS:%INSTANCE-LOC, (";;; -*-Lisp-*-" 0 NORMAL), was of the wrong type.
The function expected an instance.
Backtrace from the debugger:

ZWEI:COUNT-LINES (P.C. = 25)

 Arg 0 (FROM-BP): (";;; -*-Lisp-*-" 0 NORMAL)
 Arg 1 (TO-BP): NIL
 Arg 2 (IN-ORDER-P): T
Local 0 (LINE): NIL
Local 1 (LAST-LINE): NIL
Local 2 (I): NIL


ZWEI:REVERT-FILE-BUFFER (P.C. = 622)

 Arg 0 (BUFFER): #<ZMACS-BUFFER "FORK.LSP PS:<HACTRN.SOURCE> OZ:" 33532606>
 Arg 1 (PATHNAME): #FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP"
 Arg 2 (CONNECT-FLAG): (#FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP.27" . 23431057462)
 Arg 3 (SELECT-FLAG): NIL
 Arg 4 (QUIETLY-FLAG): NIL
Local 0 (GENERIC-PATHNAME): #FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.."
Local 1 (PATHNAME-STRING): "FORK.LSP PS:<HACTRN.SOURCE> OZ:"
Local 2 (TRUENAME): #FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP.27"
Local 3 (NEW-MODE): ZWEI:LISP-MODE
Local 4 (G8689): #<FILE-INPUT-CHARACTER-STREAM "OZ:PS:<HACTRN.SOURCE>FORK.LSP" 27664110>
Local 5 (.FILE-ABORTED-FLAG.): ABORT
Local 6 (STREAM): #<FILE-INPUT-CHARACTER-STREAM "OZ:PS:<HACTRN.SOURCE>FORK.LSP" 27664110>
Local 7 (G8691): (202471 . 400025)
Local 8 (G8692): (#<DTP-FEF-POINTER ZWEI:COUNT-LINES 16762515> ";;; -*-Lisp-*-" 0 NORMAL)
Local 9 (THIS-VERSION): 33
Local 10 (INSTALLED-TRUENAME): NIL
Local 11 (INSTALLED-VERSION): NIL
Local 12 (SAVED-POINT): NIL
Local 13 (NLINES): NIL
Local 14 (NCHARS): NIL
Local 15 (FONTS): NIL
Local 16 (FONTS-P): NIL
Local 17 (I): NIL
Local 18 (LINE): NIL
Local 19 (EOFFLG): NIL
Local 20 (WINDOW): NIL
Local 21 (STREAM): NIL
Local 22 (*SELECTQ-ITEM*): NIL
Local 23 (MODE): NIL


(METHOD ZWEI:ZMACS-BUFFER REVERT) (P.C. = 44)

 Arg 0 (OPERATION): REVERT
 Arg 1 (NEW-PATHNAME): #FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP"
 Arg 2 (CONNECT-FLAG): (#FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP.27" . 23431057462)
 Arg 3 (SELECT-FLAG): NIL
 Arg 4 (QUIETLY-FLAG): NIL


ZWEI:REVERT-BUFFER (P.C. = 66)

 Arg 0 (BUFFER): #<ZMACS-BUFFER "FORK.LSP PS:<HACTRN.SOURCE> OZ:" 33532606>
   --Defaulted args:--
 Arg 1 (PATHNAME): #FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP"
 Arg 2 (CONNECT-FLAG): (#FS:TOPS20-PATHNAME "OZ:PS:<HACTRN.SOURCE>FORK.LSP.27" . 23431057462)
 Arg 3 (SELECT-FLAG): NIL
 Arg 4 (QUIETLY-FLAG): NIL


ZWEI:COM-REVERT-BUFFER (P.C. = 42)

Local 0 (BUFFER): #<ZMACS-BUFFER "FORK.LSP PS:<HACTRN.SOURCE> OZ:" 33532606>


Remainder of stack:

ZWEI:COM-EXTENDED-COMMAND (P.C. = 67)
ZWEI:COMMAND-EXECUTE (P.C. = 100)
ZWEI:PROCESS-COMMAND-CHAR (P.C. = 67)
(METHOD ZWEI:WINDOW EDIT) (P.C. = 465)
(INTERNAL (METHOD ZWEI:ZMACS-WINDOW COMBINED EDIT) 0) (P.C. = 74)
FUNCALL (P.C. = 25)
(METHOD ZWEI:DISPLAYER AROUND EDIT) (P.C. = 31)
(METHOD ZWEI:ZMACS-WINDOW COMBINED EDIT) (P.C. = 47)
ZWEI:ZMACS-WINDOW-TOP-LEVEL (P.C. = 46)
SI:PROCESS-TOP-LEVEL (P.C. = 121)