Msg of Monday, 16 May 1983 13:25 EDT

[Communications Satellite <COMSAT @ MIT-MC>]

FAILED: Schiffman at SRI-KL; Recipient name apparently rejected.
	Last reply was: {500 Argument given when none expected}
 Failed message follows:
-------
Date: Monday, 16 May 1983, 13:18-EDT
From: Robert H. Kassel <sr.rob at MIT-SPEECH>
Subject: bug?
To: BUG-LISPM at OZ

In Release 4.1, System 222.186, Hardcopy 11.14, Zmail 74.43, LMFS 30.26,
Spire 9.9, Experimental lexis 1.4, site configuration 28, on Lisp Machine Koala:

I was compiling a buffer in ZWEI

>>Trap: The word #<DTP-FREE 26> was read from location 26 (in RESIDENT-SYMBOL-AREA).
While in the function 9.  COMPILER:LAP-WORD-EVAL  COMPILER:QLP2-U
While compiling LEXIS-ALPHA-SEARCH-UNIVERSE


9.:
 Arg 0: 1028.
 Local -1: 1028.


9.:
   Arg 0: 1028.

COMPILER:LAP-WORD-EVAL:  (P.C. = 123)
   Arg 0 (WD): ((COMPILER:QUOTE-VECTOR (FUNCTION STRING-TRIM)))

COMPILER:QLP2-U:  (P.C. = 136)
   Arg 0 (WD): (CALL COMPILER:D-PDL (COMPILER:QUOTE-VECTOR (FUNCTION STRING-TRIM)))

COMPILER:QLAP-PASS2:  (P.C. = 47)
   Arg 0 (PNTR): (COMPILER:PROGSA (CALL COMPILER:D-IGNORE (COMPILER:QUOTE-VECTOR (FUNCTION LEXIS-PRINT-MESSAGE))) (COMPILER:MOVE COMPILER:D-LAST (COMPILER:QUOTE-VECTOR (QUOTE "Word to search for:"))) (CALL COMPILER:D-PDL (SPECIAL *DEFAULT-MESSAGE-STREAM*)) (COMPILER:MOVE COMPILER:D-LAST (COMPILER:QUOTE-VECTOR (QUOTE CURRENT-FONT))) (POP 0. (COMPILER:LOCBLOCK 1.)) (COMPILER:ADI-CALL CALL COMPILER:D-IGNORE (COMPILER:QUOTE-VECTOR (FUNCTION *CATCH)) (COMPILER:RESTART-PC (COMPILER:QUOTE-VECTOR **) COMPILER:BIND-STACK-LEVEL NIL MULTIPLE-VALUE (COMPILER:QUOTE-VECTOR **))) (COMPILER:MOVE COMPILER:D-PDL (COMPILER:QUOTE-VECTOR (QUOTE T))) (CALL COMPILER:D-IGNORE (SPECIAL *DEFAULT-MESSAGE-STREAM*)) (COMPILER:MOVE COMPILER:D-PDL (COMPILER:QUOTE-VECTOR (QUOTE SET-CURRENT-FONT))) ...)

COMPILER:QLAPP:  (P.C. = 460)
   Arg 0 (FCTN): ((COMPILER:MFEF LEXIS-ALPHA-SEARCH-UNIVERSE T ((CALLER-WINDOW SYS:FEF-ARG-REQ SYS:FEF-LOCAL 2. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (THE-WORD SYS:FEF-ARG-AUX SYS:FEF-LOCAL 3. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (OLD-FONT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-LOCAL 1. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (STANDARD-INPUT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (STANDARD-OUTPUT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (QUERY-IO SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (OLD-FONT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-LOCAL 1. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (STANDARD-INPUT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (STANDARD-OUTPUT SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) (QUERY-IO SYS:FEF-ARG-INTERNAL-AUX SYS:FEF-SPECIAL 0. ** ** SYS:FEF-QT-DONTCARE NIL NIL NIL) ...) (*DEFAULT-MESSAGE-STREAM*)) (COMPILER:QTAG COMPILER:S-V-BASE) (COMPILER:S-V-BLOCK) (COMPILER:QTAG COMPILER:DESC-LIST-ORG) (COMPILER:A-D-L) (COMPILER:PARAM COMPILER:LLOCBLOCK 6.) (COMPILER:QTAG COMPILER:QUOTE-BASE) (COMPILER:ENDLIST) (COMPILER:DEBUG-INFO (COMPILER:ARG-MAP (**)) (COMPILER:LOCAL-MAP (** ** ** ** ** **)) (INTERPRETED-DEFINITION (LAMBDA ** ** ** **)) (MACROS-EXPANDED (IF LET* WITH-INPUT-FROM-MESSAGE-STREAM))) COMPILER:PROGSA ...)
   Arg 1 (LAP-MODE): COMPILER:COMPILE-TO-CORE

COMPILER:QC-TRANSLATE-FUNCTION:  (P.C. = 276)
   Arg 0 (FUNCTION): LEXIS-ALPHA-SEARCH-UNIVERSE
   Arg 1 (EXP): (LAMBDA (CALLER-WINDOW &AUX THE-WORD) (LEXIS-PRINT-MESSAGE "Word to search for:") (WITH-INPUT-FROM-MESSAGE-STREAM (SETQ THE-WORD (STRING-TRIM ** **))) (SI:DISPLACED (IF (STRING-EQUAL THE-WORD "") (LEXIS-PRINT-NOTICE "Ignoring null request.") (PROGN **)) (COND (** **) (T **))))
   Arg 2 (QC-TF-PROCESSING-MODE): COMPILER:MACRO-COMPILE
   Arg 3 (QC-TF-OUTPUT-MODE): COMPILER:COMPILE-TO-CORE

COMPILER:COMPILE-1:  (P.C. = 74)
   Arg 0 (NAME): LEXIS-ALPHA-SEARCH-UNIVERSE
   Arg 1 (LAMBDA-EXP): (LAMBDA (CALLER-WINDOW &AUX THE-WORD) (LEXIS-PRINT-MESSAGE "Word to search for:") (WITH-INPUT-FROM-MESSAGE-STREAM (SETQ THE-WORD (STRING-TRIM ** **))) (SI:DISPLACED (IF (STRING-EQUAL THE-WORD "") (LEXIS-PRINT-NOTICE "Ignoring null request.") (PROGN **)) (COND (** **) (T **))))
   Arg 2 (PROCESSING-MODE): COMPILER:MACRO-COMPILE

COMPILER:QC-FILE-DUMP-LAMBDA-EXP:  (P.C. = 70)
   Arg 0 (FSPEC): LEXIS-ALPHA-SEARCH-UNIVERSE
   Arg 1 (LAMBDA-EXP): (LAMBDA (CALLER-WINDOW &AUX THE-WORD) (LEXIS-PRINT-MESSAGE "Word to search for:") (WITH-INPUT-FROM-MESSAGE-STREAM (SETQ THE-WORD (STRING-TRIM ** **))) (SI:DISPLACED (IF (STRING-EQUAL THE-WORD "") (LEXIS-PRINT-NOTICE "Ignoring null request.") (PROGN **)) (COND (** **) (T **))))
   Arg 2 (MODE): COMPILER:MACRO-COMPILE
   Arg 3 (TO-CORE-P): T
   Arg 4 (TO-FILE-P): NIL