17-Aug-87 09:10:41-EDT,623;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 17 Aug 87 09:10-EDT
Received: from OTIS.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 53627; Mon 17-Aug-87 09:06:57 EDT
Date: Mon, 17 Aug 87 09:07 EDT
From: Chris Lindblad <CJL@REAGAN.AI.MIT.EDU>
Subject: how to keep you lisp machine usable while reagan is down
To: info-lispm-mit@OZ.AI.MIT.EDU
Message-ID: <870817090704.5.CJL@OTIS.AI.MIT.EDU>

If you still want to be able to get at system sources and TeX stuff, and you
normally get them off Reagan, just load Z:>sys>site>sys.translations. You'll
then get these files off Zermatt.
17-Aug-87 11:28:26-EDT,828;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 17 Aug 87 11:25-EDT
Received: from SAPSUCKER.SCRC.Symbolics.COM (SAPSUCKER.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53648; 17 Aug 87 11:22:41 EDT
Received: from EVENING-GROSBEAK.SCRC.Symbolics.COM by SAPSUCKER.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 154199; Mon 17-Aug-87 11:04:27 EDT
Date: Mon, 17 Aug 87 11:04 EDT
From: SWM@SAPSUCKER.SCRC.Symbolics.COM
To: Bug-LispM@OZ.AI.MIT.EDU, Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Subject: hardcopy bogosity
References: <870814172651.7.LITTLE@LAGRANGE.AI.MIT.EDU>
Message-ID: <870817110422.6.SWM@EVENING-GROSBEAK.SCRC.Symbolics.COM>

[The referenced message has been redirected:
    bug-lispm, customer-reports have been removed;
    bug-hardcopy has been added.]

17-Aug-87 15:35:52-EDT,5359;000000000000
Received: from GOLDILOCKS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 17 Aug 87 15:35-EDT
Date: Mon, 17 Aug 87 15:31 EDT
From: David Kaufman <Kaufman@GOLDILOCKS.MIT.EDU>
Sender: Zoo-Keepers@SPEECH.MIT.EDU
Subject: Tilde in shutdown reason
To: Bug-LispM@OZ.AI.MIT.EDU
Message-ID: <870817153132.0.ZOO-KEEPER@GOLDILOCKS.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3670 Genera 7.1, Mailer 5.13, Print Spooler 3.10, Hacks 3.0,
IP-TCP 52.16, 7-1-Patches 1.21, Zoo 8.3, Speech Printers 2.1,
Experimental Speech Printer Managers 3.1, microcode 3670-MIC 396,
FEP 127, FEP6:>v127-lisp.flod(55), FEP6:>v127-loaders.flod(55),
FEP6:>v127-info.flod(55), FEP6:>v127-debug.flod(34),
Machine serial number 2145,
Mailer resolver patch (from SYS:ZOO;KEEPER;MAILER-PATCHES.LISP.2),
World load FEP6:>zoo-7-1-i-namespace-server.load.1, on Lisp Machine Goldilocks:

I tried to use a tilde in the shutdown reason.
FS:FILE-SERVER-SHUTDOWN-1 should probably do

        (log-server-local-event "shutdown" "~A" current-message)

instead of

        (log-server-local-event "shutdown" current-message)


1Error: Undefined FORMAT command.
                                                                                                                 
           "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
0While in the function FORMAT:FORMAT-CTL-OP  FORMAT:FORMAT-CTL-STRING  (:INTERNAL FORMAT:FORMAT-INTERNAL 0 FORMAT:DO-IT)

The condition signalled was ZL:FERROR

1FORMAT:FORMAT-CTL-OP0:  (P.C. = 40)
   Arg 0 (FUNCTION): NIL
   Arg 1 (FORMAT:TYPE): NIL
   Arg 2 (ZL:ARGS): NIL
   Arg 3 (FORMAT:PARAMS): (20)

1FORMAT:FORMAT-CTL-STRING0:  (P.C. = 74)
   Arg 0 (ZL:ARGS): NIL
   Arg 1: "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"

1(:INTERNAL FORMAT:FORMAT-INTERNAL 0 FORMAT:DO-IT)0:  (P.C. = 21)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 53100251>

1FORMAT:FORMAT-INTERNAL0:  (P.C. = 40)
   Arg 0 (FORMAT:STREAM): NIL
   Arg 1: "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (ZL:ARGS): NIL

1FORMAT0:  (P.C. = 17)
   Arg 0 (CLI::DESTINATION): NIL
   Arg 1 (CLI::CONTROL-STRING): "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (CLI::ARGS): NIL

1(FLAVOR:WHOPPER SU::RECORD-EVENT SU:BASIC-LOG)0:  (P.C. = 147)
   Arg 0 (SELF): #<FILE-SERVER-LOG 443707457>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor SU:BASIC-LOG 47563107>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED SU::RECORD-EVENT FS:FILE-SERVER-LOG) 0) 260367501>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor FS:FILE-SERVER-LOG 47563077>
   Arg 4 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SU::RECORD-EVENT 7002005>
   Arg 5 (TYPE): :NORMAL
   Arg 6 (SU::FORMAT-STRING): "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (SU::ARGS): NIL

1(FLAVOR:COMBINED SU::RECORD-EVENT FS:FILE-SERVER-LOG)0:  (P.C. = 13)
   Arg 0 (SELF): #<FILE-SERVER-LOG 443707457>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:FILE-SERVER-LOG 47563077>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SU::RECORD-EVENT 7002005>
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:NORMAL "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes")

1SU:LOG-EVENT0:  (P.C. = 15)  2(from SYS:SERVER-UTILITIES;PATCH;SU-10-2)
0   Arg 0 (TYPE): :NORMAL
   Arg 1 (SU::FORMAT-STRING): "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (SU::ARGS): NIL

1(FLAVOR:METHOD FS:LOG-LOCAL-EVENT FS:FILE-SERVER-LOG)0:  (P.C. = 33)
   Arg 0 (SELF): #<FILE-SERVER-LOG 443707457>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:FILE-SERVER-LOG 47563077>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION FS:LOG-LOCAL-EVENT 6761207>
   Arg 3 (FS:TYPEOUT-P): NIL
   Arg 4 (FS:HERALD): "shutdown"
   Arg 5 (FS:FORMAT-STRING): "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (ZL:ARGS): NIL

1FS:LOG-SERVER-LOCAL-EVENT0:  (P.C. = 17)
   Arg 0 (FS:HERALD): "shutdown"
   Arg 1 (FS:FORMAT-STRING): "File server shutting down in 10 minutes - Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Rest arg (ZL:ARGS): NIL

1FS:FILE-SERVER-SHUTDOWN-10:  (P.C. = 111)
   Arg 0 (FS:MESSAGE): "Namespace completely schrod.  Immediate reboot, back in ~20 minutes"
   Arg 1 (FS:AT-TIME): 98661302

1SI:PROCESS-RUN-FUNCTION-INTERNAL0:  (P.C. = 43)
   Arg 0 (SI:RESTART-ON-RESET): NIL
   Arg 1 (FUNCTION): FS:FILE-SERVER-SHUTDOWN-1
   Rest arg (ZL:ARGS): ("Namespace completely schrod.  Immediate reboot, back in ~20 minutes" 98661302)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
2   --Defaulted args:--
0   Arg 0 (IGNORE): NIL
18-Aug-87 15:28:07-EDT,5631;000000000000
Received: from EDDIE.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 18 Aug 87 15:27-EDT
Received: by EDDIE.MIT.EDU with sendmail-5.45/4.7 id <AA25068@EDDIE.MIT.EDU>; Tue, 18 Aug 87 15:22:25 EDT
Received: by media-lab.MIT.EDU (5.54/4.8)  id AA24058; Tue, 18 Aug 87 15:23:05 EDT
Date: Tue, 18 Aug 87 15:23 EDT
From: <HENRY@QUANTUM.MEDIA.MIT.EDU>
Subject: Zwei list commands
To: BUG-LISPM@OZ.AI.MIT.EDU
Message-Id: <"870818152309.3.HENRY@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI
Reply-To: HENRY@QUANTUM@mit-ai

In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

If your cursor is inside a string, say between the second o and the closing
double quote in 

  ("foo")
      /\

C-m-N and C-m-P cause the following error.  This didn't happen in Rel 6.


1Trap: The first argument given to the SYS:CHAR-EQUAL-INTERNAL instruction, NIL, was not a character.
0While in the function ZWEI:FORWARD-LIST  ZWEI:COM-FORWARD-LIST

The condition signalled was DBG:WRONG-TYPE-ARGUMENT-TRAP

1ZWEI:FORWARD-LIST0:  (P.C. = 122)  2(from SYS:PATCH;SYSTEM-349-104)
0   Arg 0 (ZWEI:BP): ("(/"foo/")" 5 :NORMAL #<NON-FILE-BUFFER "History" 7700120>)
   Arg 1 (TIMES): 1
2   --Defaulted args:--
0   Arg 2 (ZWEI:FIXUP-P): NIL
   Arg 3 (ZWEI:LEVEL): 0
   Arg 4 (ZWEI:DOWNP): NIL
   Arg 5 (ZWEI:NO-UP-P): NIL
   Arg 6 (ZWEI:BOUNDING-INTERVAL): #<NON-FILE-BUFFER "History" 7700120>
   Local 7 (ZWEI:ORIGINAL-LEVEL): 0
   Local 8 (ZWEI:STRING-MATCH-CHAR): NIL
   Local 9 (ZWEI:STATE): STRING
   Local 10 (TIME): 0
   Local 11 (ZWEI:LAST-BP): ("(/"foo/")" 7 :MOVES #<NON-FILE-BUFFER "History" 7700120>)
   Local 12 (ZWEI:*FROM-BP*): ("(/"foo/")" 5 :NORMAL #<NON-FILE-BUFFER "History" 7700120>)
   Local 13 (ZWEI:*TO-BP*): ("(/"foo/")" 7 :MOVES #<NON-FILE-BUFFER "History" 7700120>)
   Local 14 (ZWEI:LINE): "(/"foo/")"
   Local 15 (ZWEI:*FIRST-INDEX*): 5
   Local 16 (ZWEI:*LAST-LINE*): "(/"foo/")"
   Local 17 (ZWEI:*THIS-IS-THE-LAST-LINE*): T
   Local 18 (ZWEI:INDEX): 5
   Local 19 (ZWEI:*LAST-INDEX*): 6
   Local 20 (ZWEI:SYNTAX): 3

1ZWEI:COM-FORWARD-LIST0:  (P.C. = 7)

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL ZWEI:COMMAND-EXECUTE 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 52700307>
   Rest arg: NIL

1ZWEI:COMMAND-EXECUTE0:  (P.C. = 57)
   Arg 0 (ZWEI:COMMAND): ZWEI:COM-FORWARD-LIST
   Arg 1 (ZWEI:CHAR): #/c-m-N
   Arg 2 (ZWEI:PREFIX-CHAR): NIL
   Arg 3 (ZWEI:HOOK-LIST): (ZWEI:EXPAND-ABBREV-HOOK ZWEI:SHIFT-LOCK-HOOK)

1ZWEI:PROCESS-COMMAND-CHAR0:  (P.C. = 14)
   Arg 0 (ZWEI:CH): #/c-m-N

1(FLAVOR:METHOD :EDIT ZWEI:EDITOR)0:  (P.C. = 316)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
2   --Defaulted args:--
0   Arg 3 (ZWEI:TOP-LEVEL-P): T
   Arg 4 (ZWEI:DESCRIPTION): NIL

1(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1)0:  (P.C. = 20)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<COROUTINING-PROCESS ZMACS-WINDOWS 15056313>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL ** 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 52700111>
   Rest arg: NIL

1(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR)0:  (P.C. = 20)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 250045243>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1) 150176730>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
   Arg 4 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (ZWEI:ARGUMENTS): NIL

1(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR)0:  (P.C. = 317)
   Arg 0 (SELF): #<ZMACS-TOP-LEVEL-EDITOR 122146505>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMACS-TOP-LEVEL-EDITOR 250045054>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL
   Special ZWEI:*MODE-LIST-SYNTAX-TABLE*: #<ART-Q-256 122155542>
   Special ZWEI:*INTERVAL*: #<NON-FILE-BUFFER "History" 7700120>

1ZWEI:ZMACS-WINDOW-TOP-LEVEL0:  (P.C. = 55)  2(from SYS:PATCH;SYSTEM-349-88)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
   Arg 0 (IGNORE): NIL


18-Aug-87 23:36:53-EDT,648;000000000000
Mail-From: GLR created at 18-Aug-87 23:36:32
Date: Tue, 18 Aug 1987  23:36 EDT
Message-ID: <GLR.12327623161.BABYL@MIT-OZ>
From: Jerry Roylance <GLR@OZ.AI.MIT.EDU>
To:   Info-LispM-MIT@OZ.AI.MIT.EDU
Subject: Reagan hospitalized; not responding to treatment.


Reagan is down and will not come up Wednesday.

The goal of the current work is to bring Reagan up to hardware revision
and to install some ECOs that would make Reagan identical to Zermatt.
Unfortunately, we are having trouble formatting the disks.

(Both Reagan and Zermatt use a nonstandard disk configuration, so please
don't blame Symbolics for our current trouble.)

19-Aug-87 00:00:49-EDT,1184;000000000000
Received: from EDDIE.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 19 Aug 87 00:00-EDT
Received: by EDDIE.MIT.EDU with sendmail-5.45/4.7 id <AA03107@EDDIE.MIT.EDU>; Tue, 18 Aug 87 23:55:39 EDT
Received: by media-lab.MIT.EDU (5.54/4.8)  id AA01131; Tue, 18 Aug 87 23:56:23 EDT
Date: Tue, 18 Aug 87 23:56 EDT
From: <Henry@QUANTUM.MEDIA.MIT.EDU>
Subject: Show File
To: Bug-Lispm@OZ.AI.MIT.EDU
Message-Id: <"870818235623.1.Henry@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>

In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

The Show File command in Zwei sometimes loses on a file, where reading the
same file via C-X C-F wins.  Example: AP5:>henry>nagata.mss
It shows nothing on the screen, but the status line indicates that it reads
35% of the file, then hangs.  



19-Aug-87 20:13:43-EDT,13731;000000000000
Return-Path: <@MC.LCS.MIT.EDU,@MCC.COM,@XIPE.AI.MCC.COM:maeda@AI.AI.MIT.EDU>
Received: from MC.LCS.MIT.EDU by OZ.AI.MIT.EDU with Chaos/SMTP; Wed 19 Aug 87 20:13:31-EDT
Received: from MCC.COM (TCP 1200600076) by MC.LCS.MIT.EDU 19 Aug 87 19:34:25 EDT
Received: from XIPE.AI.MCC.COM by MCC.COM with TCP; Wed 19 Aug 87 18:32:28-CDT
Date: Wed, 19 Aug 87 18:32 CDT
From: Christopher Maeda <maeda@AI.AI.MIT.EDU>
Subject: Zmail lossage
To: Bug-Zmail%oz@mc.lcs.mit.edu, gumby@ai.ai.mit.edu
Message-ID: <870819183226.1.MAEDA@XIPE.AI.MCC.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Zmail in Genera 7.1, Hacks 3.0, IP-TCP 52.16,
7.1 Patches 3.0, 7.1 Hoss Patches 2.0, 7.1 Base 6.0, Color 331.5,
Color Support 11.4, Color Editor 313.0, MCC Genera 7.1 Color Patches 1.0,
CYC Knowledge Base 33.25, microcode 3640-MIC 396, FEP 127,
fep0:>v127-lisp.flod(55), fep0:>v127-loaders.flod(55),
fep0:>v127-rel7.flod(55), fep0:>v127-debug.flod(34),
fep0:>v127-info.flod(55), Machine serial number 4653, Ready for CYC, on Zippy - God 'o Pinheads:

Situation:  Lispm at MCC, Austin, TX.  Also present at site is a Tops-20
(mcc.com) where I have a babyl file which used to be my everyday mail
file.  (This babyl file was in a separate buffer at the time.) I was
trying to get new mail from ai.ai.mit.edu, an ITS at MIT.  I had just
created a babyl file there, and had sent myself a message and gotten it.
I then did "get inbox" again as a test.  Usually (for twenexes, anyway)
it says no new mail, etc.  This time, it barfed, saying that
"ai:maeda;maeda mail" did not exist.

I know I'm not supposed to conjecture at the cause of the bug, but...

Why didn't Zmail check to see if the file existed before it tried to
rename it?  Is this a bug with ITS connections?  (My mail files have
always been on twenexes before.)  

This machine was also running a specially frobbed namespace so it could
talk to MIT.  e.g.  MIT hosts are not on the local namespace and were
added locally (in my init file).  

please send all replies to maeda@ai.ai.mit.edu
				-Chris Maeda

1Error: Error reported by foreign host: 555 File error for DSK:MAEDA;MAEDA MAIL - FILE NOT FOUND
0While in the function (defun-in-flavor fs:tcp-ftp-check-command-response fs:tcp-ftp-conn)  (flavor:method :rename fs:tcp-ftp-conn)  (flavor:method :rename fs:tcp-ftp-file-access-path)

The condition signalled was fs:tcp-ftp-random-lookup-error

1(defun-in-flavor fs:tcp-ftp-check-command-response fs:tcp-ftp-conn)0:  (P.C. = 172)  2(from SYS:IP-TCP;PATCH;IP-TCP-52-7)
0   Arg 0 (self): #<TCP-FTP-CONN 104350152>
   Arg 1 (sys:self-mapping-table): #<Map to flavor fs:tcp-ftp-conn 2160334>
   Arg 2 (fs:expected-value): 350
   Arg 3 (fs:ctl-string): "RNFR ~A"
   Rest arg (zl:args): ("DSK: MAEDA; MAEDA MAIL")
   Local 5: sys:unwind-protect-tag
   Local 6: #<DTP-ODD-PC 260116624>
   Local 7: #<DTP-LOCATIVE 230200370>
   Local 8: #<DTP-LOCATIVE 230301213>
   Local 9 (fs:old-state): :allocated
   Local 10 (fs:num): 555
   Local 11 (fs:line): "555 File error for DSK:MAEDA;MAEDA MAIL - FILE NOT FOUND"
   Local 12 (fs:elem): (555 fs:tcp-ftp-random-lookup-error fs:file-lookup-error)
   Local 13: #<CASE-HANDLER 160471132>
   Local 14: (#<CASE-HANDLER 120035320> #<LEXICAL-CLOSURE (:internal zwei:read-new-mail-top-level 1) 230300536> #<LEXICAL-CLOSURE (:internal # 0) 230300101>)
   Local 15: (#<CASE-HANDLER 160471132> #<CASE-HANDLER 120035320> #<LEXICAL-CLOSURE (:internal zwei:read-new-mail-top-level 1) 230300536> #<LEXICAL-CLOSURE (:internal # 0) 230300101>)
   Special dbg:*bound-handlers*: (#<CASE-HANDLER 160471132> #<CASE-HANDLER 120035320> #<LEXICAL-CLOSURE (:internal zwei:read-new-mail-top-level 1) 230300536> #<LEXICAL-CLOSURE (:internal # 0) 230300101>)

1(flavor:method :rename fs:tcp-ftp-conn)0:  (P.C. = 14)
   Arg 0 (self): #<TCP-FTP-CONN 104350152>
   Arg 1 (sys:self-mapping-table): #<Map to flavor fs:tcp-ftp-conn 2160334>
   Arg 2 (flavor::.generic.): :rename
   Arg 3 (fs:from-pathname): #P"AI: MAEDA; MAEDA MAIL"
   Arg 4 (fs:to-pathname): #P"AI: MAEDA; MAEDA _ZMAIL"

1(flavor:method :rename fs:tcp-ftp-file-access-path)0:  (P.C. = 12)
   Arg 0 (self): #<ITS-TCP-FTP-FILE-ACCESS-PATH AI using tcp-ftp 163132262>
   Arg 1 (sys:self-mapping-table): #<Map to flavor fs:tcp-ftp-file-access-path 2160714>
   Arg 2 (flavor::.generic.): :rename
   Rest arg (zl:args): (#P"AI: MAEDA; MAEDA MAIL" #P"AI: MAEDA; MAEDA _ZMAIL")

1(flavor:method :rename fs:active-pathname-mixin)0:  (P.C. = 12)
   Arg 0 (self): #P"AI: MAEDA; MAEDA MAIL"
   Arg 1 (sys:self-mapping-table): #<Map to flavor fs:active-pathname-mixin 220012056>
   Arg 2 (flavor::.generic.): :rename
   Arg 3 (fs:new-pathname): #P"AI: MAEDA; MAEDA _ZMAIL"

1zl:renamef0:  (P.C. = 213)
   Arg 0 (fs:string-or-stream): #P"AI: MAEDA; MAEDA MAIL"
   Arg 1 (fs:new-name): #P"AI: MAEDA; MAEDA _ZMAIL"
2   --Defaulted args:--
0   Arg 2 (fs:error-p): t

1rename-file0:  (P.C. = 13)
   Arg 0 (cli::file): #P"AI: MAEDA; MAEDA MAIL"
   Arg 1 (cli::new-name): #P"AI: MAEDA; MAEDA _ZMAIL"

1zwei:open-and-rename-inbox0:  (P.C. = 145)
   Arg 0 (zwei:pathname): #P"AI: MAEDA; MAEDA MAIL"
   Arg 1 (zwei:renamed-pathname): #P"AI: MAEDA; MAEDA _ZMAIL"
   Arg 2 (zwei:buffer): #<ITS-INBOX-BUFFER "AI: MAEDA; MAEDA MAIL for AI: MAEDA; MAEDA BABYL" 104265360>

1(defun-in-flavor zwei:open-next-inbox-file zwei:inbox-buffer)0:  (P.C. = 103)
   Arg 0 (self): #<ITS-INBOX-BUFFER "AI: MAEDA; MAEDA MAIL for AI: MAEDA; MAEDA BABYL" 104265360>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:inbox-buffer 220004106>

1(flavor:method zwei:load-inbox zwei:inbox-buffer)0:  (P.C. = 36)
   Arg 0 (self): #<ITS-INBOX-BUFFER "AI: MAEDA; MAEDA MAIL for AI: MAEDA; MAEDA BABYL" 104265360>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:inbox-buffer 220004106>
   Arg 2 (flavor::.generic.): #<GENERIC-FUNCTION zwei:load-inbox 7011531>

1(flavor:method zwei:read-new-mail zwei:file-mail-buffer)0:  (P.C. = 405)
   Arg 0 (self): #<BABYL-BUFFER "AI: MAEDA; MAEDA BABYL" 163136003>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:file-mail-buffer 220167476>
   Arg 2 (flavor::.generic.): #<GENERIC-FUNCTION zwei:read-new-mail 7011011>
   Arg 3 (zwei:inbox-pathnames): (#P"AI: MAEDA; MAEDA MAIL")

1zwei:read-new-mail-top-level0:  (P.C. = 67)

1zwei:com-get-new-mail-from-inbox0:  (P.C. = 7)

1(flavor:method si:with-process-non-interactive-priority-internal si:process)0:  (P.C. = 16)
   Arg 0 (self): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (sys:self-mapping-table): si:process
   Arg 2 (flavor::.generic.): #<GENERIC-FUNCTION si:with-process-non-interactive-priority-internal 6704641>
   Arg 3 (si:continuation): #<LEXICAL-CLOSURE (:internal zwei:command-execute 0 si:with-process-non-interactive-priority-body) 230300474>
   Rest arg: nil

1zwei:command-execute0:  (P.C. = 57)
   Arg 0 (zwei:command): zwei:com-get-new-mail-from-inbox
   Arg 1 (zwei:char): #\g
2   --Defaulted args:--
0   Arg 2 (zwei:prefix-char): nil
   Arg 3 (zwei:hook-list): nil

1zwei:zmail-command-execute0:  (P.C. = 6)
   Arg 0: zwei:com-get-new-mail-from-inbox

1(flavor:method :process-command-char zwei:zmail-frame)0:  (P.C. = 7)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :process-command-char
   Arg 3 (zwei:ch): #\g

1(:internal (:internal (flavor:combined :process-command-char zwei:zmail-frame) 0) 0)0:  (P.C. = 10)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :process-command-char
   Rest arg (flavor::.daemon-caller-args.): (#\g)

1(flavor:method si:with-process-non-interactive-priority-internal si:process)0:  (P.C. = 43)
   Arg 0 (self): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (sys:self-mapping-table): si:process
   Arg 2 (flavor::.generic.): #<GENERIC-FUNCTION si:with-process-non-interactive-priority-internal 6704641>
   Arg 3 (si:continuation): #<LEXICAL-CLOSURE (:internal # 0 si:with-process-non-interactive-priority-body) 230300355>
   Rest arg: nil

1(flavor:whopper :process-command-char zwei:zmail-command-loop-mixin)0:  (P.C. = 31)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-command-loop-mixin 200000464>
   Arg 2 (flavor::.whopper-continuation.): #<DTP-COMPILED-FUNCTION (:internal (:internal (flavor:combined :process-command-char zwei:zmail-frame) 0) 0) 150706134>
   Arg 3 (flavor::.old-self-mapping-table.): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 4 (flavor::.generic.): :process-command-char
   Arg 5 (zwei:char): #\g

1(:internal (flavor:combined :process-command-char zwei:zmail-frame) 0)0:  (P.C. = 13)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :process-command-char
   Rest arg (flavor::.daemon-caller-args.): (#\g)

1(flavor:whopper :process-command-char zwei:zmail-frame)0:  (P.C. = 21)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.whopper-continuation.): #<DTP-COMPILED-FUNCTION (:internal (flavor:combined :process-command-char zwei:zmail-frame) 0) 150706121>
   Arg 3 (flavor::.old-self-mapping-table.): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 4 (flavor::.generic.): :process-command-char
   Arg 5 (zwei:char): #\g

1(flavor:combined :process-command-char zwei:zmail-frame)0:  (P.C. = 12)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :process-command-char
   Rest arg (flavor::.daemon-caller-args.): (#\g)

1(flavor:method :command-loop zwei:zmail-frame)0:  (P.C. = 130)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :command-loop

1(:internal (flavor:combined :command-loop zwei:zmail-frame) 0)0:  (P.C. = 17)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :command-loop
   Rest arg (flavor::.daemon-caller-args.): nil

1(flavor:method si:with-process-interactive-priority-internal si:process)0:  (P.C. = 40)
   Arg 0 (self): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (sys:self-mapping-table): si:process
   Arg 2 (flavor::.generic.): #<GENERIC-FUNCTION si:with-process-interactive-priority-internal 6704631>
   Arg 3 (si:continuation): #<LEXICAL-CLOSURE (:internal # 1 si:with-process-interactive-priority-body) 230300103>
   Rest arg: nil

1(flavor:whopper :command-loop zwei:zmail-command-loop-mixin)0:  (P.C. = 65)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-command-loop-mixin 200000464>
   Arg 2 (flavor::.whopper-continuation.): #<DTP-COMPILED-FUNCTION (:internal (flavor:combined :command-loop zwei:zmail-frame) 0) 150705665>
   Arg 3 (flavor::.old-self-mapping-table.): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 4 (flavor::.generic.): :command-loop

1(flavor:combined :command-loop zwei:zmail-frame)0:  (P.C. = 562)
   Arg 0 (self): #<zmail-frame Main Zmail Window 1523016 exposed>
   Arg 1 (sys:self-mapping-table): #<Map to flavor zwei:zmail-frame 200000046>
   Arg 2 (flavor::.generic.): :command-loop
   Rest arg (flavor::.daemon-caller-args.): nil

1zwei:zmail-process-top-level0:  (P.C. = 104)
   Arg 0 (zwei:window): #<zmail-frame Main Zmail Window 1523016 exposed>

1si:process-top-level0:  (P.C. = 45)
   Arg 0 (ignore): nil

   Special tcp:*tcp-ftp-debug-p*: nil
   Special *trace-output*: #:terminal-io-syn-stream
   Special fs:*tcp-ftp-error-code-alist*: ((421 fs:tcp-ftp-host-not-available
                                            fs:host-not-available)
                                           (425 fs:tcp-ftp-cannot-open-data fs:network-lossage)
                                           (426 fs:tcp-ftp-data-connection-closed
                                            fs:network-lossage)
                                           (450 fs:tcp-ftp-file-busy fs:file-locked)
                                           (451 fs:tcp-ftp-local-error fs:misc-problems)
                                           (452 fs:tcp-ftp-not-enough-storage-in-system
                                            fs:not-enough-resources)
                                           (500 fs:tcp-ftp-unrecognized-command
                                            fs:file-system-bug)
                                           (501 fs:tcp-ftp-syntax-error
                                            fs:inconsistent-options)
                                           (502 fs:tcp-ftp-unimplemented-command
                                            fs:unknown-operation)
                                           (503 fs:tcp-ftp-bad-command-sequence
                                            fs:file-system-bug) ...)


20-Aug-87 15:30:01-EDT,969;000000000000
Received: from EDDIE.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 15:29-EDT
Received: by EDDIE.MIT.EDU with sendmail-5.45/4.7 id <AA06473@EDDIE.MIT.EDU>; Thu, 20 Aug 87 15:24:36 EDT
Received: by media-lab.MIT.EDU (5.54/4.8)  id AA00946; Thu, 20 Aug 87 15:24:58 EDT
Date: Thu, 20 Aug 87 15:24 EDT
From: <HENRY@MEDIA.MIT.EDU>
Subject: Show File
To: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Cc: Bug-Lispm@OZ.AI.MIT.EDU
In-Reply-To: <870819091415.8.TREV@CALYPSO.SCH.Symbolics.COM>
Message-Id: <"870820152454.4.HENRY@QUANTUM"@MEDIA.MIT.EDU>
Reply-To: HENRY@AI.AI.MIT.EDU


Show File seems to fail for certain files regardless of machine.  
I copied a losing file  AP5:>Henry>nagata.mss [a LMFS] to OZ:<Henry> [a TOPS-20]
and Quantum:>henry>attic> [another LMFS], with the same symptoms. Dired's 
V command shows the same symptoms.  The status line is stuck in 
"TCP Connect".  You can abort out. C-M-Suspend confuses the window system.




20-Aug-87 21:10:59-EDT,1416;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 21:10-EDT
Received: from DUANE.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 53812; Thu 20-Aug-87 21:07:16 EDT
Date: Thu, 20 Aug 87 21:07 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: :DRAW-WIDE-CURVE
To: Bug-Lispm@OZ.AI.MIT.EDU,
    Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Message-ID: <870820210716.1.ALAN@DUANE.AI.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.4,
7-1-Patches 1.20, MAC 12.1, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5237, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from Z:>Alan>Rel7-Patch.lisp.2), on Lisp Machine Duane Allman:

Try doing

(send *standard-output* :draw-wide-curve
      #(100 200 300 400 500)
      #(300 200 400 100 500)
      10 nil tv:alu-xor)

And see if you don't agree with me that this isn't the expected behavior.
20-Aug-87 21:43:49-EDT,8429;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 21:43-EDT
Received: from DUANE.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 53821; Thu 20-Aug-87 21:40:48 EDT
Date: Thu, 20 Aug 87 21:40 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: :DRAW-CUBIC-SPLINE
To: Bug-LispM@OZ.AI.MIT.EDU,
    Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Message-ID: <870820214050.2.ALAN@DUANE.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.4,
7-1-Patches 1.20, MAC 12.1, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5237, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from Z:>Alan>Rel7-Patch.lisp.2), on Lisp Machine Duane Allman:

I did:

(send *standard-output* :draw-cubic-spline #(100 200 300 400 500) #(300 200 400 100 500) 20)

1Trap: The subscript given to the ZL:AR-1 instruction, 5 (from local variable DW::I), on #<ART-Q-5 24733324> was beyond the length, 5.
0While in the function DW::XS-AND-YS-BOX  (FLAVOR:METHOD DW::GRAPHICS-DISPLAYED-PRESENTATION-BOX-EDGES DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION)  (FLAVOR:METHOD MAKE-INSTANCE DW::GRAPHICS-DISPLAYED-PRESENTATION :AFTER)

The condition signalled was DBG:SUBSCRIPT-OUT-OF-BOUNDS-TRAP

1DW::XS-AND-YS-BOX0:  (P.C. = 27)
   Arg 0 (DW::PX): #<ART-Q-5 24733324>
   Arg 1 (DW::PY): #<ART-Q-5 24733332>
   Arg 2 (DW::END): 20
   Local 3: 20
   Local 4 (DW::I): 5
   Local 5 (DW::X): 500
   Local 6 (DW::Y): 500
   Local 7 (DW::LEFT): 100
   Local 8: NIL
   Local 9 (DW::TOP): 100
   Local 10: NIL
   Local 11 (DW::RIGHT): 500
   Local 12: NIL
   Local 13 (DW::BOTTOM): 500
   Local 14: NIL

1(FLAVOR:METHOD DW::GRAPHICS-DISPLAYED-PRESENTATION-BOX-EDGES DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION)0:  (P.C. = 6)
   Arg 0 (SELF): #<CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION 404750452>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION 250464406>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION DW::GRAPHICS-DISPLAYED-PRESENTATION-BOX-EDGES 6756241>
   Arg 3 (IGNORE): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Arg 4 (DW::PX): #<ART-Q-5 24733324>
   Arg 5 (DW::PY): #<ART-Q-5 24733332>
   Arg 6 (DW::Z): 20
   Arg 7 (DW::CURVE-WIDTH): NIL
   Arg 8 (DW::ALU): 7
   Arg 9 (DW::C1): :RELAXED
   Arg 10 (DW::C2): :RELAXED
   Arg 11 (DW::P1-PRIME-X): NIL
   Arg 12 (DW::P1-PRIME-Y): NIL
   Arg 13 (DW::PN-PRIME-X): NIL
   Arg 14 (DW::PN-PRIME-Y): NIL

1(FLAVOR:METHOD MAKE-INSTANCE DW::GRAPHICS-DISPLAYED-PRESENTATION :AFTER)0:  (P.C. = 12)
   Arg 0 (SELF): #<CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION 404750452>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW::GRAPHICS-DISPLAYED-PRESENTATION 250464425>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION MAKE-INSTANCE 6700025>
   Rest arg: (:WINDOW #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed> :ARGUMENTS (#<ART-Q-5 24733324> #<ART-Q-5 24733332> 20 NIL 7 :RELAXED :RELAXED NIL NIL NIL ...) :SUPERIOR NIL)

1(FLAVOR:COMBINED MAKE-INSTANCE DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION)0:  (P.C. = 27)
   Arg 0 (SELF): #<CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION 404750452>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION 250464406>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION MAKE-INSTANCE 6700025>
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:WINDOW #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed> :ARGUMENTS (#<ART-Q-5 24733324> #<ART-Q-5 24733332> 20 NIL 7 :RELAXED :RELAXED NIL NIL NIL ...) :SUPERIOR NIL)

1MAKE-INSTANCE0:  (P.C. = 572)  2(from SYS:PATCH;SYSTEM-349-177)
0   Arg 0 (SYS:FLAVOR-NAME): DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION
   Rest arg (FLAVOR::INIT-OPTIONS): (:WINDOW #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed> :ARGUMENTS (#<ART-Q-5 24733324> #<ART-Q-5 24733332> 20 NIL 7 :RELAXED :RELAXED NIL NIL NIL ...) :SUPERIOR NIL)

1(FLAVOR:METHOD :ADD-GRAPHICS-PRESENTATION DW:DYNAMIC-WINDOW)0:  (P.C. = 15)
   Arg 0 (SELF): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW:DYNAMIC-WINDOW 174103446>
   Arg 2 (FLAVOR::.GENERIC.): :ADD-GRAPHICS-PRESENTATION
   Arg 3 (SYS:FLAVOR-NAME): DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION
   Arg 4 (DW::ARGUMENTS): (#<ART-Q-5 24733324> #<ART-Q-5 24733332> 20 NIL 7 :RELAXED :RELAXED NIL NIL NIL ...)

1(FLAVOR:WHOPPER :DRAW-CUBIC-SPLINE DW:DYNAMIC-WINDOW)0:  (P.C. = 44)
   Arg 0 (SELF): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW:DYNAMIC-WINDOW 174103446>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :DRAW-CUBIC-SPLINE DW:DYNAMIC-WINDOW) 0) 146743433>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor DW:DYNAMIC-WINDOW 174103446>
   Arg 4 (FLAVOR::.GENERIC.): :DRAW-CUBIC-SPLINE
   Arg 5 (DW::PX): #<ART-Q-5 24733324>
   Arg 6 (DW::PY): #<ART-Q-5 24733332>
   Arg 7 (DW::Z): 20
2   --Defaulted args:--
0   Arg 8 (DW::CURVE-WIDTH): NIL
   Arg 9 (DW::ALU): 7
   Arg 10 (DW::C1): :RELAXED
   Arg 11 (DW::C2): :RELAXED
   Arg 12 (DW::P1-PRIME-X): NIL
   Arg 13 (DW::P1-PRIME-Y): NIL
   Arg 14 (DW::PN-PRIME-X): NIL
   Arg 15 (DW::PN-PRIME-Y): NIL

1(FLAVOR:COMBINED :DRAW-CUBIC-SPLINE DW:DYNAMIC-WINDOW)0:  (P.C. = 12)
   Arg 0 (SELF): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor DW:DYNAMIC-WINDOW 174103446>
   Arg 2 (FLAVOR::.GENERIC.): :DRAW-CUBIC-SPLINE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (#<ART-Q-5 24733324> #<ART-Q-5 24733332> 20)

1CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SEND *STANDARD-OUTPUT* :DRAW-CUBIC-SPLINE #<ART-Q-5 24733324> #<ART-Q-5 24733332> 20)

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600160>
   Rest arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600123>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600066>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

1SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

1SI:LISP-TOP-LEVEL-WARM0:  (P.C. = 10)
20-Aug-87 21:50:17-EDT,7172;000000000000
Return-Path: <@MC.LCS.MIT.EDU:Palter@ALDERAAN.SCRC.Symbolics.COM>
Received: from MC.LCS.MIT.EDU by OZ.AI.MIT.EDU with Chaos/SMTP; Thu 20 Aug 87 21:49:55-EDT
Received: from ALDERAAN.SCRC.Symbolics.COM (TCP 20024224555) by MC.LCS.MIT.EDU 20 Aug 87 21:42:38 EDT
Received: from LARRY-BIRD.SCRC.Symbolics.COM by ALDERAAN.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 111607; Thu 20-Aug-87 21:39:35 EDT
Date: Thu, 20 Aug 87 21:39 EDT
From: Gary M. Palter <Palter@ALDERAAN.SCRC.Symbolics.COM>
Subject: Zmail lossage
To: Christopher Maeda <maeda@AI.AI.MIT.EDU>
cc: Bug-Zmail%oz@mc.lcs.mit.edu, gumby@AI.AI.MIT.EDU
In-Reply-To: <870819183226.1.MAEDA@XIPE.AI.MCC.COM>
Message-ID: <870820213930.9.PALTER@LARRY-BIRD.SCRC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
                         (3 0 (NIL 0) (NIL :BOLD-ITALIC NIL) "CPTFONTBI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI, CPTFONTBI

    Date: Wed, 19 Aug 87 18:32 CDT
    From: Christopher Maeda <maeda@AI.AI.MIT.EDU>

    In Symbolics 3640 Zmail in Genera 7.1, Hacks 3.0, IP-TCP 52.16,
    7.1 Patches 3.0, 7.1 Hoss Patches 2.0, 7.1 Base 6.0, Color 331.5,
    Color Support 11.4, Color Editor 313.0, MCC Genera 7.1 Color Patches 1.0,
    CYC Knowledge Base 33.25, microcode 3640-MIC 396, FEP 127,
    fep0:>v127-lisp.flod(55), fep0:>v127-loaders.flod(55),
    fep0:>v127-rel7.flod(55), fep0:>v127-debug.flod(34),
    fep0:>v127-info.flod(55), Machine serial number 4653, Ready for CYC, on Zippy - God 'o Pinheads:

    Situation:  Lispm at MCC, Austin, TX.  Also present at site is a Tops-20
    (mcc.com) where I have a babyl file which used to be my everyday mail
    file.  (This babyl file was in a separate buffer at the time.) I was
    trying to get new mail from ai.ai.mit.edu, an ITS at MIT.  I had just
    created a babyl file there, and had sent myself a message and gotten it.
    I then did "get inbox" again as a test.  Usually (for twenexes, anyway)
    it says no new mail, etc.  This time, it barfed, saying that
    "ai:maeda;maeda mail" did not exist.

    I know I'm not supposed to conjecture at the cause of the bug, but...

    Why didn't Zmail check to see if the file existed before it tried to
    rename it?  Is this a bug with ITS connections?  (My mail files have
    always been on twenexes before.)  

This beahvior is caused by a deficiency in our (Symbolics') TCP FTP
implementation.  In particular, our TCP FTP does not support 1probe-file
0unless the server machine is a TOPS-20, Unix, or Multics.  For all other
servers (including ITS and LispMs), our TCP FTP will always claim that
the file exists when using 1probe-file0!  And that's why Zmail blows up
trying to rename a non-existant file.

I'll talk to our TCP FTP maintainer tomorrow and, hopefully, we'll be
able to fix this situation in Genera 7.2.  (And possibly provide a patch
for you.)

In the meantime, I've added a kludge to Zmail for 7.2 to get around this
lossage.  Said kludge is included as part of this message so that you
can add it as a patch at your site.

    This machine was also running a specially frobbed namespace so it could
    talk to MIT.  e.g.  MIT hosts are not on the local namespace and were
    added locally (in my init file).  

    please send all replies to maeda@ai.ai.mit.edu
				    -Chris Maeda

1    Error: Error reported by foreign host: 555 File error for DSK:MAEDA;MAEDA MAIL - FILE NOT FOUND
0    While in the function (defun-in-flavor fs:tcp-ftp-check-command-response fs:tcp-ftp-conn)  (flavor:method :rename fs:tcp-ftp-conn)  (flavor:method :rename fs:tcp-ftp-file-access-path)

    The condition signalled was fs:tcp-ftp-random-lookup-error

    2[Trace deleted.]

0  - Gary


;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: ZWEI; Base: 10; Patch-File: T -*-
;;; Patch file for ZMAIL version ?.
;;; Reason: Function 1zwei:open-and-rename-inbox0:  Add a horrible kludge to get around a bug in our
;;;   TCP-FTP implementation.  In particular, our TCP-FTP file access path doesn't bother to
;;;   ask the server machine if the file exists for 1:probe0 openings unless the server is a
;;;   TOPS-20, Multics, or Unix; instead, we always claim that the file exists!  This bug
;;;   wreaks havoc with Zmail's inbox processing and so we must add a kludge to get around it.
;;;   (Hopefully, the TCP-FTP problem will also be fixed for 7.2.)
;;; Written by Palter, 8/20/87 21:09:23
;;; while running on Larry Bird.

;=====================================
(SYSTEM-INTERNALS:BEGIN-PATCH-SECTION)
(SYSTEM-INTERNALS:PATCH-SECTION-SOURCE-FILE "SYS:ZMAIL;MAIL-FILES.LISP.NEWEST")
(SYSTEM-INTERNALS:PATCH-SECTION-ATTRIBUTES
  "-*- Mode:LISP; Package:ZWEI; Base:8 -*-")

2;;; Open and rename an inbox file.
0(DEFUN OPEN-AND-RENAME-INBOX (PATHNAME RENAMED-PATHNAME BUFFER)
  (DECLARE (VALUES . (STREAM ORIGINAL-STREAM)))
  (LET ((ORIGINAL-STREAM (OPEN PATHNAME :DIRECTION :PROBE :IF-DOES-NOT-EXIST NIL)))
    (IF ORIGINAL-STREAM
	(WITH-EXTRA-DEBUGGER-MENU-CONDITIONS (INBOX-RENAME-ERROR)
	  (BLOCK RENAME-FILE
	    (ERROR-RESTART-ONCE-OR-FOREVER (INBOX-RENAME-ERROR
					     ("Retry renaming inbox ~A for 15 seconds."
					      "Retry renaming inbox ~A indefinitely.")
					     PATHNAME)
	      (LOOP FOR COUNT FROM 1 TO 4
		    DO (CONDITION-CASE ()
			    (MULTIPLE-VALUE-BIND (IGNORE IGNORE NEW-TRUENAME)
				2;; 3Horrible kludge to bypass bug in our TCP-FTP2 --
				;;    Our 0TCP-FTP2 file access path doesn't bother to check
				;;    with the server machine when asked to make a 1:probe
2				;;    opening unless the server is a 0TOPS-202, 0Multics2, or
				;;    0Unix2; 3instead, it will always claim that the file
2				;;    3exists!2  Therefore, if we're supposed to rename the
				;;    file, the following call to 1cl:rename-file 2will fail
				;;    so we'll just have to catch the 1fs:file-not-found2 here.
0				(CONDITION-CASE ()
				     (CL:RENAME-FILE PATHNAME RENAMED-PATHNAME)
				   (FS:FILE-NOT-FOUND
				     (RETURN-FROM OPEN-AND-RENAME-INBOX (VALUES NIL NIL))))
			      (IGNORE-ERRORS
				2;; Renamed inboxes should not be automatically deleted by
				;; the file system's handling of multiple generations --
				;;    Thus, we try to set the generation retention count to
				;;    NIL disable the mechanism after renaming the file.
				;;    3(Change renaming mechanism to not rely on
2				;;     3multiple versions in a future release?)
0				(FS:CHANGE-FILE-PROPERTIES NEW-TRUENAME NIL
							   :GENERATION-RETENTION-COUNT NIL))
			      (RETURN-FROM RENAME-FILE (VALUES)))
			  ((FS:FILE-OPEN-FOR-OUTPUT FS:FILE-LOCKED)
			   (IF (= COUNT 4)
			       (ERROR 'INBOX-RENAME-ERROR
				      "Unable to rename inbox ~A; it is persistently busy."
				      PATHNAME)
			     (PROCESS-SLEEP (* 60. 5.) "Inbox Rename Wait")))))))
	  (VALUES (OPEN RENAMED-PATHNAME :DIRECTION :INPUT
					 :ELEMENT-TYPE (MSG-FILE-ELEMENT-TYPE BUFFER))
		  ORIGINAL-STREAM))
      (VALUES NIL NIL))))


20-Aug-87 23:16:22-EDT,2901;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 23:16-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53860; 20 Aug 87 23:13:21 EDT
Received: from VERMITHRAX.SCH.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 216566; 19 Aug 87 14:46:27 EDT
Received: from CALYPSO.SCH.Symbolics.COM by VERMITHRAX.SCH.Symbolics.COM via CHAOS with CHAOS-MAIL id 72845; Wed 19-Aug-87 11:43:59 PDT
Date: Wed, 19 Aug 87 11:44 PDT
From: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Subject: Styles in progress notes
To: Sr.Kaufman%SPEECH.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
cc: customer-reports@VERMITHRAX.SCH.Symbolics.COM,
    BUG-LISPM%OZ.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
In-Reply-To: <870721144940.1.QUX@WINNIE-THE-POOH.MIT.EDU>
Message-ID: <870819114401.6.TREV@CALYPSO.SCH.Symbolics.COM>

    Date: Tue, 21 Jul 87 14:49 EDT
    From: David H. Kaufman <Sr.Kaufman@SPEECH.MIT.EDU>

    In Symbolics 3650 Genera 7.1, Hacks 3.0, Zoo 7.8, IP-TCP 52.16,
    7-1-Patches 1.19, Speech Printers 2.1, SPIRE 18.3,
    Experimental SPIRE Utterance Database User 1.0,
    Experimental SUDS Server 1.0, microcode 3650-MIC 396, FEP 206,
    Fep0:>g206-lisp.flod(14), Fep0:>g206-loaders.flod(14),
    Fep0:>g206-debug.flod(4), Fep0:>g206-info.flod(14),
    Machine serial number 30421,
    Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
    World load FEP0:>Zoo-7-1-F-SPIRE.load.1, on Lisp Machine Winnie ther Pooh:

    This works:

    (tv:noting-progress ("This is a progress note that is too long to fit in the file sheet")
      (sleep 3))


    This doesn't:

    (tv:noting-progress ((format nil "This is a ~'iprogress~ note that is too long to fit in the file sheet"))
      (sleep 3))

    In general, progress notes with multiple styles that are too long to fit
    in the file sheet are misdisplayed, usually by displaying only some
    portion of the note.  To my eyes, the use of tv:char-width in
    (flavor:method :update tv:who-line-file-sheet) has a very guilty look,
    since it makes no attempt to deal with characters in styles other than
    the default.


Excuse me for sitting on this so long, but I can't seem to get it to break.
How much of the second message is displayed for you, and what other kinds of
misdisplays do you get?  No, wait...just had to make it a few characters
longer.  Now it tries to display the whole string, then wraps around and 
gives you the very end.  Even on the development system, so we'll have to
patch it right away.  Not surprising that it hid for so long; people usually
don't even think to put style in their notifications.  Your analysis is
probably correct too (I'll wait for the official verdict from development).

-trev


20-Aug-87 23:16:36-EDT,2368;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 23:16-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53861; 20 Aug 87 23:13:21 EDT
Received: from VERMITHRAX.SCH.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 216405; 19 Aug 87 12:16:15 EDT
Received: from CALYPSO.SCH.Symbolics.COM by VERMITHRAX.SCH.Symbolics.COM via CHAOS with CHAOS-MAIL id 72781; Wed 19-Aug-87 09:14:12 PDT
Date: Wed, 19 Aug 87 09:14 PDT
From: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Subject: Show File
To: Henry%QUANTUM.MEDIA.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
cc: Bug-Lispm%OZ.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM,
    customer-reports@VERMITHRAX.SCH.Symbolics.COM
In-Reply-To: <"870818235623.1.Henry@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>
Message-ID: <870819091415.8.TREV@CALYPSO.SCH.Symbolics.COM>

    Date: Tue, 18 Aug 87 23:56 EDT
    From: <Henry@QUANTUM.MEDIA.MIT.EDU>

    In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
    Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
    S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
    Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
    Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

    The Show File command in Zwei sometimes loses on a file, where reading the
    same file via C-X C-F wins.  Example: AP5:>henry>nagata.mss
    It shows nothing on the screen, but the status line indicates that it reads
    35% of the file, then hangs.  

I've never heard of this one before, so we'll have to do some
detective work.  Is this on one machine only, or repeatable
across the whole lab?  Is there one certain kind of file type
that does this, or any other factors that the offending files
have in common?  Can you View the file from Dired, using the
"V" key?  When the display hangs (after the first page), what
does the status line at the very bottom show?  Can you abort
or suspend out of it (c-m-Suspend would be helpful...we could
get a real backtrace then).  This promises to be a good one,
so stay in touch.

-trev


20-Aug-87 23:16:50-EDT,2563;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 23:16-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53862; 20 Aug 87 23:13:28 EDT
Received: from VERMITHRAX.SCH.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 216638; 19 Aug 87 15:49:17 EDT
Received: from CALYPSO.SCH.Symbolics.COM by VERMITHRAX.SCH.Symbolics.COM via CHAOS with CHAOS-MAIL id 72871; Wed 19-Aug-87 12:47:18 PDT
Date: Wed, 19 Aug 87 12:47 PDT
From: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Subject: 1Error: Flavor DW:MARGIN-LABEL does not handle the init keyword :CHARACTER-STYLE0 
To: JCMA%AI.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
cc: Bug-LispM%REAGAN.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM,
    customer-reports@VERMITHRAX.SCH.Symbolics.COM
In-Reply-To: <870630020918.7.JCMA@MARLEY.AI.MIT.EDU>
Message-ID: <870819124720.1.TREV@CALYPSO.SCH.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (:FIX :ITALIC :NORMAL) "CPTFONTI")
                         (3 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI, CPTFONTI

    Date: Tue, 30 Jun 87 02:09 EDT
    From: John C. Mallery <JCMA@AI.AI.MIT.EDU>

    In Symbolics 3640 Genera 7.1, IP-TCP 52.16, ILA-NFS 3.3,
    7-1-Patches 1.19, MAC 11.2,
    Experimental 2Relatus Natural Language System0 168.2,
    Experimental Reference 6.2, Experimental Jcma 1,
    Experimental 3Semantic Inversion0 6.0, microcode 3640-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
    Machine serial number 5229, on Lisp Machine Bob Marley:
    Warm booted from: Notification Delivery, Chaos background.


    Inconsistent with the documentation for 1DW:MARGIN-LABEL0 in docex.

    1Error: Flavor DW:MARGIN-LABEL does not handle the init keyword :CHARACTER-STYLE
0    While in the function MAKE-INSTANCE  (FLAVOR:METHOD :PARSE-MARGIN-COMPONENTS-SPEC DW:MARGIN-MIXIN)  (DEFUN-IN-FLAVOR TV:ADJUST-MARGINS TV:ESSENTIAL-WINDOW)

    The condition signalled was CLI::DEFAULT-ERROR

[...]

We do claim it, and it will appear in the next release (else I
would've sent this to the documentation bug-list).  We just 
jumped the gun...I'm surprised this hasn't been reported before
(to my knowledge), nicely-fonted margin labels should be a 
popular item.  Thanks for the alert.

-trev


20-Aug-87 23:17:03-EDT,1902;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 20 Aug 87 23:16-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53864; 20 Aug 87 23:13:38 EDT
Received: from VERMITHRAX.SCH.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 217498; 20 Aug 87 16:16:40 EDT
Received: from CALYPSO.SCH.Symbolics.COM by VERMITHRAX.SCH.Symbolics.COM via CHAOS with CHAOS-MAIL id 73126; Thu 20-Aug-87 13:14:35 PDT
Date: Thu, 20 Aug 87 13:14 PDT
From: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Subject: Show File
To: HENRY%AI.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
cc: Bug-Lispm%OZ.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM,
    customer-reports@VERMITHRAX.SCH.Symbolics.COM
In-Reply-To: <"870820152454.4.HENRY@QUANTUM"@MEDIA.MIT.EDU>
Message-ID: <870820131437.0.TREV@CALYPSO.SCH.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTI

    Date: Thu, 20 Aug 87 15:24 EDT
    From: <HENRY@MEDIA.MIT.EDU>


    Show File seems to fail for certain files regardless of machine.  
    I copied a losing file  AP5:>Henry>nagata.mss [a LMFS] to OZ:<Henry> [a TOPS-20]
    and Quantum:>henry>attic> [another LMFS], with the same symptoms. Dired's 
    V command shows the same symptoms.  The status line is stuck in 
    "TCP Connect".  You can abort out. C-M-Suspend confuses the window system.

Thanks for the added details.  Since I can't seem
to access the media lab from the our West Coast
site, could I trouble you for a copy of the .mss
(if it's not too long or personal)?  I can't im-
agine any way that normal text could break a TCP
connection (some 1really0 special characters).  I
should've made this request last time (and won't 
interrupt again until it's been figured out).

Thanks Again,
-trev


21-Aug-87 12:02:34-EDT,3154;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 12:02-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53926; 21 Aug 87 11:14:40 EDT
Received: from VERMITHRAX.SCH.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 218012; 21 Aug 87 11:10:43 EDT
Received: from CALYPSO.SCH.Symbolics.COM by VERMITHRAX.SCH.Symbolics.COM via CHAOS with CHAOS-MAIL id 73333; Fri 21-Aug-87 08:08:38 PDT
Date: Fri, 21 Aug 87 08:08 PDT
From: Steve Trever <trev@VERMITHRAX.SCH.Symbolics.COM>
Subject: :DRAW-CUBIC-SPLINE
To: Alan%AI.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM
cc: Bug-LispM%OZ.AI.MIT.EDU@STONY-BROOK.SCRC.Symbolics.COM,
    Customer-Reports@VERMITHRAX.SCH.Symbolics.COM
In-Reply-To: <870820214050.2.ALAN@DUANE.AI.MIT.EDU>
Message-ID: <870821080837.7.TREV@CALYPSO.SCH.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

    Date: Thu, 20 Aug 87 21:40 EDT
    From: Alan Bawden <Alan@AI.AI.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.4,
    7-1-Patches 1.20, MAC 12.1, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
    FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
    Machine serial number 5237, LCMW-RELEASE-4-0,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
    CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
    PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
    STARLISP-COMPILER-F0404,
    Patches for Alan (from Z:>Alan>Rel7-Patch.lisp.2), on Lisp Machine Duane Allman:

    I did:

    (send *standard-output* :draw-cubic-spline #(100 200 300 400 500) #(300 200 400 100 500) 20)

    1Trap: The subscript given to the ZL:AR-1 instruction, 5 (from local variable DW::I), on #<ART-Q-5 24733324> was beyond the length, 5.
0    While in the function DW::XS-AND-YS-BOX  (FLAVOR:METHOD DW::GRAPHICS-DISPLAYED-PRESENTATION-BOX-EDGES DW::CUBIC-SPLINE-GRAPHICS-DISPLAYED-PRESENTATION)  (FLAVOR:METHOD MAKE-INSTANCE DW::GRAPHICS-DISPLAYED-PRESENTATION :AFTER)

    The condition signalled was DBG:SUBSCRIPT-OUT-OF-BOUNDS-TRAP

[...]

One of the most popular bugs of 7.1.  The below forms should help.

;;; -*- Mode: LISP; Syntax: Common-lisp; Package: DW; Base: 10.; Patch-File: Yes -*-
2;;; GRAPHICS:DRAW-CUBIC-SPLINE and
;;; (FLAVOR:METHOD :DRAW-CUBIC-SPLINE DW:DYNAMIC-WINDOW).
;;;   -Till 8/19/87 

0(define-viewport-graphics-operation-xy :draw-cubic-spline (px py z &optional curve-width alu
							   (c1 ':relaxed) (c2 c1)
							   p1-prime-x p1-prime-y
							   pn-prime-x pn-prime-y)
  :alu alu
  :arguments-to-convert (&xs-and-ys px py)	2;  fixed here
0  :box (xs-and-ys-box px py nil))		2;  fixed here


21-Aug-87 12:05:38-EDT,1831;000000000000
Received: from GOLDILOCKS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 12:05-EDT
Received: from WINNIE-THE-POOH.MIT.EDU by GOLDILOCKS.MIT.EDU via CHAOS with CHAOS-MAIL id 7736; Fri 21-Aug-87 11:13:18 EDT
Date: Fri, 21 Aug 87 11:13 EDT
From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>
Subject: Critical single-word documentation change
To: BUG-LISPM@OZ.AI.MIT.EDU
Message-ID: <870821111315.2.QUX@WINNIE-THE-POOH.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
                         (2 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTI, CPTFONTCB

In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, Experimental DESTROI 2.1,
Pattern Match 1.0, Experimental SUDS 1.0, microcode 3650-MIC 396,
FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
Machine serial number 30421,
Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
World load FEP0:>Zoo-7-1-J-DESTROI.load.1, on Lisp Machine Winnie ther Pooh:

In Volume 0, Chapter 3 (Dumping, Reloading, and Retrieving), the last
sentence of the third paragraph reads:

	Therefore, you do not need to retain incremental dump tapes that
	were made 1before0 the most recent complete dump was done; you can
	reuse those tapes for future dumps.

For the sake of precision, it should read (altered word in bold):

	Therefore, you do not need to retain incremental dump tapes that
	were made 1before0 the most recent complete dump was 2begun0; you
	can reuse those tapes for future dumps.

The difference is subtle, until you consider a LMFS big enough that it
takes a number of tapes and potentially a number of days to do a
complete dump.
21-Aug-87 12:23:31-EDT,10610;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 12:22-EDT
Received: from PASTEUR.LCS.MIT.EDU by ZERMATT.LCS.MIT.EDU via CHAOS with CHAOS-MAIL id 70464; Fri 21-Aug-87 11:41:50 EDT
Date: Fri, 21 Aug 87 11:40 EDT
From: Peter Szolovits <psz@ZERMATT.LCS.MIT.EDU>
Subject: Seems like a bug that shouldn't happen...  Occurred during ":login psz"
To: Bug-LispM@ZERMATT.LCS.MIT.EDU
Message-ID: <870821114053.1.PSZ@PASTEUR.LCS.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Clisp 1.0,
Experimental New Implementation of KL-One 16.0,
Experimental Heart Failure System 8.6,
Experimental Bibliographic Citation System for BibTeX 1.2,
microcode 3640-MIC 396, FEP 127, FEP0:>v127-lisp.flod(55),
FEP0:>v127-loaders.flod(55), FEP0:>v127-debug.flod(34),
FEP0:>v127-info.flod(55), Machine serial number 5302,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on Lisp Machine Louis Pasteur:



1Error: Bug at file server:
       The word #<DTP-NIL 3300000> was read from location 450357463 (in WORKING-STORAGE-AREA).
0While in the function (FLAVOR:METHOD :WAIT-FOR-COMMAND FS:NFILE-SERVER-UNIT)  (FLAVOR:METHOD :SEND-AND-WAIT-FOR-COMMAND FS:NFILE-SERVER-UNIT)  (FLAVOR:METHOD :SEND-IN-COMMAND-CONDITION-ENVIRONMENT FS:NFILE-SERVER-UNIT)

The condition signalled was FS:QFILE-SYSTEM-BUG

1(FLAVOR:METHOD :WAIT-FOR-COMMAND FS:NFILE-SERVER-UNIT)0:  (P.C. = 62)
   Arg 0 (SELF): #<NFILE-SERVER-UNIT 346133014>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:NFILE-SERVER-UNIT 250654142>
   Arg 2 (FLAVOR::.GENERIC.): :WAIT-FOR-COMMAND
   Arg 3 (FS:TID-CONS-ARGS): ("T7010" :OPEN "Open" #<NFILE-DATA-CHANNEL I7007 67461623>)
   Local 4: (#<NFILE-DATA-CHANNEL I7007 67461623>)
   Local 5 (FS:COMMAND-TID): "T7010"
   Local 6 (FS:COMMAND-NAME): :OPEN
   Local 7 (FS:WHOSTATE): "Open"
   Local 8 (FS:DATA-CHANNEL): #<NFILE-DATA-CHANNEL I7007 67461623>
   Local 9: (:ERROR "T7010" "BUG" NIL "Bug at file server:
The word #<DTP-NIL 3300000> was read from location 450357463 (in WORKING-STORAGE-AREA).")
   Local 10 (FS:RESPONSE-NAME): :ERROR
   Local 11 (FS:RESPONSE-ARGS): ("BUG" NIL "Bug at file server:
The word #<DTP-NIL 3300000> was read from location 450357463 (in WORKING-STORAGE-AREA).")

1(FLAVOR:METHOD :SEND-AND-WAIT-FOR-COMMAND FS:NFILE-SERVER-UNIT)0:  (P.C. = 36)
   Arg 0 (SELF): #<NFILE-SERVER-UNIT 346133014>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:NFILE-SERVER-UNIT 250654142>
   Arg 2 (FLAVOR::.GENERIC.): :SEND-AND-WAIT-FOR-COMMAND
   Arg 3 (FS:DATA): (:OPEN "Open" #<NFILE-DATA-CHANNEL I7007 67461623> "I7007" ">psz>lispm-init.bin.newest" :INPUT :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST ...)

1(FLAVOR:METHOD :SEND-IN-COMMAND-CONDITION-ENVIRONMENT FS:NFILE-SERVER-UNIT)0:  (P.C. = 43)
   Arg 0 (SELF): #<NFILE-SERVER-UNIT 346133014>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:NFILE-SERVER-UNIT 250654142>
   Arg 2 (FLAVOR::.GENERIC.): :SEND-IN-COMMAND-CONDITION-ENVIRONMENT
   Arg 3 (FS:MESSAGE): :SEND-AND-WAIT-FOR-COMMAND
   Arg 4 (FS:DATA): (:OPEN "Open" #<NFILE-DATA-CHANNEL I7007 67461623> "I7007" ">psz>lispm-init.bin.newest" :INPUT :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST ...)

1(FLAVOR:METHOD :COMMAND FS:NFILE-SERVER-UNIT)0:  (P.C. = 7)
   Arg 0 (SELF): #<NFILE-SERVER-UNIT 346133014>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:NFILE-SERVER-UNIT 250654142>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND
   Rest arg (FS:DATA): (:OPEN "Open" #<NFILE-DATA-CHANNEL I7007 67461623> "I7007" ">psz>lispm-init.bin.newest" :INPUT :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST ...)

1FS:NFILE-KEYWORD-LIST-CALLER0:  (P.C. = 165)
   Arg 0 (FS:INSTANCE): #<NFILE-SERVER-UNIT 346133014>
   Arg 1 (FS:CMDNAME): :OPEN
   Arg 2 (FS:WHOSTATE): "Open"
   Arg 3 (FS:DATA-CHANNEL): #<NFILE-DATA-CHANNEL I7007 67461623>
   Arg 4 (FS:CONSTANT-ARGS): ("I7007" ">psz>lispm-init.bin.newest" :INPUT :DEFAULT)
   Local 4 (FS:CONSTANT-ARGS): NIL
   Arg 5 (FS:KEYWORD-VALUE-PAIRS): (:BYTE-SIZE NIL :DELETED NIL :RAW NIL :SUPER-IMAGE NIL :PRESERVE-DATES NIL ...)
   Local 5 (FS:KEYWORD-VALUE-PAIRS): NIL

1(FLAVOR:METHOD FS:FILE-ACCESS-PATH-OPEN FS:NFILE-ACCESS-PATH)0:  (P.C. = 236)  2(from SYS:PATCH;SYSTEM-349-231)
0   Arg 0 (SELF): #<LMFS-NFILE-ACCESS-PATH Z using NFILE 346132304>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:NFILE-ACCESS-PATH 250334063>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION FS:FILE-ACCESS-PATH-OPEN 6716325>
   Arg 3 (FS:REAL-PATHNAME): #P"Z:>psz>lispm-init.bin.newest"
   Arg 4 (FS:COMMAND-PATHNAME): #P"Z:>psz>lispm-init.bin.newest"
   Rest arg: (:FAKE-CHARACTERS T :DIRECTION :INPUT :ELEMENT-TYPE :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST :ERROR)

1(:INTERNAL (FLAVOR:COMBINED FS:FILE-ACCESS-PATH-OPEN FS:LMFS-NFILE-ACCESS-PATH) 0)0:  (P.C. = 11)
   Arg 0 (SELF): #<LMFS-NFILE-ACCESS-PATH Z using NFILE 346132304>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:LMFS-NFILE-ACCESS-PATH 250334053>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION FS:FILE-ACCESS-PATH-OPEN 6716325>
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (#P"Z:>psz>lispm-init.bin.newest" #P"Z:>psz>lispm-init.bin.newest" :FAKE-CHARACTERS T :DIRECTION :INPUT :ELEMENT-TYPE :DEFAULT :IF-EXISTS :ERROR ...)

1(:INTERNAL (FLAVOR:WHOPPER FS:FILE-ACCESS-PATH-OPEN FS:FONT-ENCAPSULATING-ACCESS-PATH-MIXIN) 0 FS:CONTINUE)0:  (P.C. = 23)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<DTP-LOCATIVE 601022>
   Arg 1 (FS:FORCE-BINARY-P): T

1(FLAVOR:WHOPPER FS:FILE-ACCESS-PATH-OPEN FS:FONT-ENCAPSULATING-ACCESS-PATH-MIXIN)0:  (P.C. = 54)  2(from SYS:PATCH;SYSTEM-349-171)
0   Arg 0 (SELF): #<LMFS-NFILE-ACCESS-PATH Z using NFILE 346132304>
   Arg 1 (SYS:SELF-MAPPING-TABLE): FS:FONT-ENCAPSULATING-ACCESS-PATH-MIXIN
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED FS:FILE-ACCESS-PATH-OPEN FS:LMFS-NFILE-ACCESS-PATH) 0) 145666754>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor FS:LMFS-NFILE-ACCESS-PATH 250334053>
   Arg 4 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION FS:FILE-ACCESS-PATH-OPEN 6716325>
   Arg 5 (FS:REAL-PATHNAME): #P"Z:>psz>lispm-init.bin.newest"
   Arg 6 (FS:COMMAND-PATHNAME): #P"Z:>psz>lispm-init.bin.newest"
   Rest arg (FS:REST-LIST): (:DIRECTION :INPUT :ELEMENT-TYPE :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST :ERROR)

1(FLAVOR:COMBINED FS:FILE-ACCESS-PATH-OPEN FS:LMFS-NFILE-ACCESS-PATH)0:  (P.C. = 13)
   Arg 0 (SELF): #<LMFS-NFILE-ACCESS-PATH Z using NFILE 346132304>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:LMFS-NFILE-ACCESS-PATH 250334053>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION FS:FILE-ACCESS-PATH-OPEN 6716325>
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (#P"Z:>psz>lispm-init.bin.newest" #P"Z:>psz>lispm-init.bin.newest" :DIRECTION :INPUT :ELEMENT-TYPE :DEFAULT :IF-EXISTS :ERROR :IF-DOES-NOT-EXIST :ERROR)

1OPEN0:  (P.C. = 542)
   Arg 0 (PATHNAME): #P"Z:>psz>lispm-init.bin.newest"
   Rest arg (FS:ALL-ARGUMENTS): (:CHARACTERS :DEFAULT)

1SI:OPEN-FILE-SEARCH-INTERNAL0:  (P.C. = 75)
   Arg 0 (SI:OPERATION): ZL:LOAD
   Arg 1 (SI:DEFAULTS): ((#<LISPM-HOST ZERMATT 1101102> . #P"Z:>psz>rel7-finger.bin.newest") (NIL . #P"Z:>psz>rel7-finger.bin.newest"))
   Arg 2 (SI:AUTO-RETRY): T
   Arg 3 (SI:TYPE-LIST-FUNCTION): #<DTP-COMPILED-FUNCTION FS:LOAD-TYPE-LIST 145537241>
   Arg 4 (SI:PATHNAME): #P"Z:>psz>lispm-init..newest"
   Arg 5 (SI:TYPE-LIST-ARGS): (T)
   Arg 6 (SI:OPEN-OPTIONS): (:CHARACTERS :DEFAULT)
   Arg 7 (SI:PATHNAME-CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL FS:LOAD-OPEN 0) 600534>

1FS:LOAD-OPEN0:  (P.C. = 61)
   Arg 0 (PATHNAME): #P"Z:>psz>lispm-init..newest"
   Arg 1 (FS:NONEXISTENT-OK-FLAG): NIL
   Arg 2 (FS:DONT-SET-DEFAULT-P): T

1ZL:LOGIN0:  (P.C. = 505)
   Arg 0 (SI:USER-NAME): #<NAME LCS|PSZ 1121742>
   Local 0 (SI:USER-NAME): "LCS|PSZ"
   Rest arg: (:HOST NIL :LOAD-INIT-FILE T)

1SI:COM-LOGIN0:  (P.C. = 45)
   Arg 0 (NET:USER): #<USER PSZ 1121773>
   Local 0 (NET:USER): #<NAME LCS|PSZ 1121742>
   Rest arg: NIL

1CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SI:COM-LOGIN (QUOTE #<USER PSZ 1121773>))

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600212>
   Rest arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600155>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600120>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

1SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

1SI:LISP-TOP-LEVEL20:  (P.C. = 5)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
   Arg 0 (IGNORE): NIL
21-Aug-87 12:38:49-EDT,2453;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 12:38-EDT
Received: from DIAMOND.S4CC.Symbolics.COM (DIAMOND.S4CC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 53960; 21 Aug 87 12:40:09 EDT
Received: from RAVEN.S4CC.Symbolics.COM by DIAMOND.S4CC.Symbolics.COM via CHAOS with CHAOS-MAIL id 115223; Fri 21-Aug-87 12:39:23 EDT
Date: Fri, 21 Aug 87 12:38 EDT
From: Scott Cyphers <Cyphers@YUKON.SCRC.Symbolics.COM>
Subject: Critical single-word documentation change
To: SR.Kaufman%speech@MIT-GOLDILOCKS.ARPA, BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870821111315.2.QUX@WINNIE-THE-POOH.MIT.EDU>
Message-ID: <870821123837.3.CYPHERS@RAVEN.S4CC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
                         (2 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTI, CPTFONTCB

    Date: Fri, 21 Aug 87 11:13 EDT
    From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>

    In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
    Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, Experimental DESTROI 2.1,
    Pattern Match 1.0, Experimental SUDS 1.0, microcode 3650-MIC 396,
    FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
    FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
    Machine serial number 30421,
    Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
    World load FEP0:>Zoo-7-1-J-DESTROI.load.1, on Lisp Machine Winnie ther Pooh:

    In Volume 0, Chapter 3 (Dumping, Reloading, and Retrieving), the last
    sentence of the third paragraph reads:

	    Therefore, you do not need to retain incremental dump tapes that
	    were made 1before0 the most recent complete dump was done; you can
	    reuse those tapes for future dumps.

    For the sake of precision, it should read (altered word in bold):

	    Therefore, you do not need to retain incremental dump tapes that
	    were made 1before0 the most recent complete dump was 2begun0; you
	    can reuse those tapes for future dumps.

    The difference is subtle, until you consider a LMFS big enough that it
    takes a number of tapes and potentially a number of days to do a
    complete dump.

But you do need to retain them until the complete dump is done, because
until it is done, there are going to be things on the incrementals which
are not on the complete dump.

21-Aug-87 12:49:46-EDT,1428;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 12:49-EDT
Received: from CHARON.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 53962; Fri 21-Aug-87 12:51:52 EDT
Received: by CHARON.MIT.EDU (5.45/4.7)
	id AA13435; Fri, 21 Aug 87 12:50:37 EDT
Date: Fri, 21 Aug 87 12:50:37 EDT
From: <cheshire@CHARON-CHAOS.MIT.EDU>
To: bug-lispm@reagan.ai.mit.edu
Subject: Lisp Machine Brian Jones
Cc: cheshire@reagan.ai.mit.edu, jcma@reagan.ai.mit.edu


While I was using the Documentation window, the machine 
suddenly went into the FEP with the following readout (approx)

LISP stopped itself

FEP proc control: FEP Int Enable 
Sequencer Error: Microcode halted
Sequencer misc status - TSK Stop (sequencer stopped), Errhalt Sync

3600 Program Counters
  .....



When I tried to reboot, it didn't work:

FEP Command: boot relatus.boot
Error whle opening FEP0:>relatus.boot : Drive 0 not ready


I tried a couple more time and got the same message. Also, as I typed,
the typed-in characters deterioriated. 

When all this happened, I had the Relatus Experimental System loaded.  
I had earlier gotten a warning from the GC that there might not be enough 
space to do a dynamic Garbage Collection, but I ignored it.  All morning,
before and after the warning, the garbage collection seemed unusually slow
and interfering.


                                 Mary Vogt
21-Aug-87 13:15:18-EDT,3057;000000000000
Received: from GOLDILOCKS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 21 Aug 87 13:14-EDT
Received: from WINNIE-THE-POOH.MIT.EDU by GOLDILOCKS.MIT.EDU via CHAOS with CHAOS-MAIL id 7741; Fri 21-Aug-87 13:16:23 EDT
Date: Fri, 21 Aug 87 13:16 EDT
From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>
Subject: Critical single-word documentation change
To: Scott Cyphers <Cyphers@YUKON.SCRC.Symbolics.COM>
cc: BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870821123837.3.CYPHERS@RAVEN.S4CC.Symbolics.COM>
Message-ID: <870821131620.3.QUX@WINNIE-THE-POOH.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
                         (2 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTI, CPTFONTCB
Zippy-Says: I don't believe there really IS a GAS SHORTAGE..  I think it's all
            just a BIG HOAX on the part of the plastic sign salesmen--
            ..  to sell more numbers!!

    Date: Fri, 21 Aug 87 12:38 EDT
    From: Scott Cyphers <Cyphers@YUKON.SCRC.Symbolics.COM>

	Date: Fri, 21 Aug 87 11:13 EDT
	From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>

	In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
	Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, Experimental DESTROI 2.1,
	Pattern Match 1.0, Experimental SUDS 1.0, microcode 3650-MIC 396,
	FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
	FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
	Machine serial number 30421,
	Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
	World load FEP0:>Zoo-7-1-J-DESTROI.load.1, on Lisp Machine Winnie ther Pooh:

	In Volume 0, Chapter 3 (Dumping, Reloading, and Retrieving), the last
	sentence of the third paragraph reads:

		Therefore, you do not need to retain incremental dump tapes that
		were made 1before0 the most recent complete dump was done; you can
		reuse those tapes for future dumps.

	For the sake of precision, it should read (altered word in bold):

		Therefore, you do not need to retain incremental dump tapes that
		were made 1before0 the most recent complete dump was 2begun0; you
		can reuse those tapes for future dumps.

	The difference is subtle, until you consider a LMFS big enough that it
	takes a number of tapes and potentially a number of days to do a
	complete dump.

    But you do need to retain them until the complete dump is done, because
    until it is done, there are going to be things on the incrementals which
    are not on the complete dump.

Agreed.  My objection is that the original sentence does not make clear
that incrementals done 1during0 the complete cannot be reused, but I guess
I didn't adequately capture the sense of the original when I rephrased
it.  How  about:

	Therefore, once a complete dump has been finished, you do not
	need to retain incremental dump tapes that were made before the
	complete dump was begun; you can reuse those tapes for future dumps.

I keep wanting to write "once a complete dump has been completed"...
25-Aug-87 11:45:23-EDT,1810;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 11:30-EDT
Received: from KAREN.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54173; Mon 24-Aug-87 13:48:39 EDT
Date: Mon, 24 Aug 87 13:48 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: Suggestions
To: Bug-Lispm@OZ.AI.MIT.EDU,
    Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Message-ID: <870824134829.1.ALAN@KAREN.AI.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5104, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from B:>alan>rel7-patch.lisp.2), on Lisp Machine Karen Carpenter:

I frequently invoke the spell checker while editing Lisp code.  For the
most part, I find that its rules for extracting words works just fine.
There is one exception:  When I write:

  (dw:get-program-pane 'listener)

and I wonder if I have misspelled "listener", the spelling corrector tells
me that "'listener" is possibly misspelled.  I suggest that perhaps the
rule for recognizing words should treat a leading "'" as a special case.

I also wish that the Meta-$ command would be sensitive to the fact that
there is a currently selected region, and do a Spell Region instead of a
Spell This Word.
25-Aug-87 11:50:25-EDT,2705;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 11:33-EDT
Received: from FLUTE.LCS.MIT.EDU by ZERMATT.LCS.MIT.EDU via CHAOS with CHAOS-MAIL id 71069; Tue 25-Aug-87 11:01:23 EDT
Date: Tue, 25 Aug 87 11:01 EDT
From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>
Subject: incorrect domain service (and no way to correct it)
To: Bug-Lispm@ZERMATT.LCS.MIT.EDU
cc: laura@VX.LCS.MIT.EDU
Message-ID: <870825110113.3.LAURA@FLUTE.LCS.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
Experimental Multilisp Compiler 7, Experimental Bounce 1,
Experimental LUNIX 1, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 4597,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on Flute:

This isn't exactly BUG-LISPM material, but I'm not sure who to send it
to.  The domain server provided by AMT has incorrect material for
Symbolics machines (well, at least one Symbolics machine).  It's worse
than useless for the domain server to provide CHAOS addresses and
protocols when the host requesting the information (FLUTE.LCS.MIT.EDU)
isn't on the same chaosnet as the host on whom information is being
requested.  Also, a field is missing (see comment below).  One other
complaint, (which is BUG-LISPM material), if I recognize that the
information is incorrect, and edit the namespace object for
DOMAIN|KOYAANISQATSI.S4CC.SYMBOLICS.COM locally, then attempt to send a
message to that host, the information I provided is forgotten, and the
original incorrect information is used instead.

:Show Namespace Object (class) Host (name) DOMAIN|KOYAANISQATSI.S4CC.SYMBOLICS.COM
View in namespace DOMAIN:
HOST KOYAANISQATSI.S4CC.SYMBOLICS.COM
SERVICE FILE TCP TCP-FTP
SERVICE  TCP TELNET				;<<<==== missing "LOGIN"
SERVICE LOGIN TCP 3600-LOGIN
SERVICE FILE TCP NFILE
SERVICE SHOW-USERS TCP ASCII-NAME
SERVICE LOGIN TCP SUPDUP
SERVICE CONFIGURATION CHAOS CONFIGURATION
SERVICE FILE CHAOS QFILE
SERVICE LOGIN CHAOS 3600-LOGIN
SERVICE LOGIN CHAOS SUPDUP
SERVICE LOGIN CHAOS TELNET
SERVICE SEND CHAOS CONVERSE
SERVICE SEND CHAOS SEND
SERVICE FILE CHAOS NFILE
SERVICE SHOW-USERS CHAOS NAME
ADDRESS AMT|INTERNET 128.81.51.128
ADDRESS AMT|CHAOS 31600
SYSTEM-TYPE LISPM
25-Aug-87 13:00:01-EDT,1733;000000000000
Received: from GOLDILOCKS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 12:59-EDT
Received: from WINNIE-THE-POOH.MIT.EDU by GOLDILOCKS.MIT.EDU via CHAOS with CHAOS-MAIL id 7772; Mon 24-Aug-87 09:56:48 EDT
Date: Mon, 24 Aug 87 09:56 EDT
From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>
Subject: DEFINE-PROGRAM-FRAMEWORK
To: BUG-LISPM@OZ.AI.MIT.EDU
Message-ID: <870824095659.4.QUX@WINNIE-THE-POOH.MIT.EDU>

In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, microcode 3650-MIC 396,
FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
Machine serial number 30421,
Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
World load FEP0:>Zoo-7-1-J-SPIRE.load.1, on Lisp Machine Winnie ther Pooh:

I have a program, built using DEFINE-PROGRAM-FRAMEWORK, that helps users
analyze large amounts of data in a fairly general fashion (call it X).
I am writing another program (call it Y) that will help users analyze
large amounts of a specific kind of data.  I would like to build Y on X,
so that all of X's facilities will be available to Y's users, without
Y's facilites affecting X's users.  I would like to do this by using
DEFINE-PROGRAM-FRAMEWORK for Y, but mixing in X (this is the whole idea
of flavors, right?).  Unfortunately, the (undocumented)
:DEFFLAVOR-OPTIONS keyword to DEFINE-PROGRAM-FRAMEWORK doesn't let me
specify mixins, and I can't find another keyword that does.

For the time being, I'm explicitly calling the various functions that
DEFINE-PROGRAM-FRAMEWORK expands into, but this seems silly.  Is there
hope for the future?
25-Aug-87 16:39:14-EDT,2377;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 16:38-EDT
Received: from YUKON.SCRC.Symbolics.COM (YUKON.SCRC.SYMBOLICS.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54297; 25 Aug 87 16:36:25 EDT
Received: from MOBILE.SCRC.Symbolics.COM by YUKON.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 253534; Tue 25-Aug-87 15:54:33 EDT
Date: Tue, 25 Aug 87 15:54 EDT
From: Dennis L. Doughty <doughty@YUKON.SCRC.Symbolics.COM>
Subject: DEFINE-PROGRAM-FRAMEWORK
To: SR.Kaufman@SPEECH.MIT.EDU
cc: BUG-LISPM@OZ.AI.MIT.EDU, doughty@YUKON.SCRC.Symbolics.COM
In-Reply-To: <870824095659.4.QUX@WINNIE-THE-POOH.MIT.EDU>
Message-ID: <870825155416.8.DOUGHTY@MOBILE.SCRC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB

    Date: Mon, 24 Aug 87 09:56 EDT
    From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>

    In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
    Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, microcode 3650-MIC 396,
    FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
    FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
    Machine serial number 30421,
    Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
    World load FEP0:>Zoo-7-1-J-SPIRE.load.1, on Lisp Machine Winnie ther Pooh:

    I have a program, built using DEFINE-PROGRAM-FRAMEWORK, that helps users
    analyze large amounts of data in a fairly general fashion (call it X).
    I am writing another program (call it Y) that will help users analyze
    large amounts of a specific kind of data.  I would like to build Y on X,
    so that all of X's facilities will be available to Y's users, without
    Y's facilites affecting X's users.  I would like to do this by using
    DEFINE-PROGRAM-FRAMEWORK for Y, but mixing in X (this is the whole idea
    of flavors, right?).  Unfortunately, the (undocumented)
    :DEFFLAVOR-OPTIONS keyword to DEFINE-PROGRAM-FRAMEWORK doesn't let me
    specify mixins, and I can't find another keyword that does.

You want to use 1:INHERIT-FROM 'X0 in the define-program-framework for Y.

    For the time being, I'm explicitly calling the various functions that
    DEFINE-PROGRAM-FRAMEWORK expands into, but this seems silly.  Is there
    hope for the future?


25-Aug-87 16:56:00-EDT,2606;000000000000
Received: from GOLDILOCKS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 16:55-EDT
Received: from WINNIE-THE-POOH.MIT.EDU by GOLDILOCKS.MIT.EDU via CHAOS with CHAOS-MAIL id 7904; Tue 25-Aug-87 16:52:46 EDT
Date: Tue, 25 Aug 87 16:52 EDT
From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>
Subject: DEFINE-PROGRAM-FRAMEWORK
To: Dennis L. Doughty <doughty@YUKON.SCRC.Symbolics.COM>
cc: BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870825155416.8.DOUGHTY@MOBILE.SCRC.Symbolics.COM>
Message-ID: <870825165247.9.QUX@WINNIE-THE-POOH.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB
Zippy-Says: Is a tattoo real, like a curb or a battleship?
            Or are we suffering in Safeway?

    Date: Tue, 25 Aug 87 15:54 EDT
    From: Dennis L. Doughty <doughty@YUKON.SCRC.Symbolics.COM>

	Date: Mon, 24 Aug 87 09:56 EDT
	From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>

	In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, 7-1-Patches 1.21,
	Zoo 9.0, Speech Printers 2.1, SPIRE 18.3, microcode 3650-MIC 396,
	FEP 206, FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
	FEP0:>g206-info.flod(14), FEP0:>g206-debug.flod(4),
	Machine serial number 30421,
	Improve Spell Menu (from GOLDY:>dynamic>user>qux>g7-1>patches>fix-spell-menu.lisp.1),
	World load FEP0:>Zoo-7-1-J-SPIRE.load.1, on Lisp Machine Winnie ther Pooh:

	I have a program, built using DEFINE-PROGRAM-FRAMEWORK, that helps users
	analyze large amounts of data in a fairly general fashion (call it X).
	I am writing another program (call it Y) that will help users analyze
	large amounts of a specific kind of data.  I would like to build Y on X,
	so that all of X's facilities will be available to Y's users, without
	Y's facilites affecting X's users.  I would like to do this by using
	DEFINE-PROGRAM-FRAMEWORK for Y, but mixing in X (this is the whole idea
	of flavors, right?).  Unfortunately, the (undocumented)
	:DEFFLAVOR-OPTIONS keyword to DEFINE-PROGRAM-FRAMEWORK doesn't let me
	specify mixins, and I can't find another keyword that does.

    You want to use 1:INHERIT-FROM 'X0 in the define-program-framework for Y.

I quote the compiler:

	For Program SUDS
	The option :INHERIT-FROM is not allowed for DEFINE-PROGRAM-FRAMEWORK.
	Valid options are :COMMAND-DEFINER, :COMMAND-TABLE, :SELECT-KEY, :SYSTEM-MENU, :PROGRAM-NAME,
	:LABEL-PANE, :HELP, :PRETTY-NAME, :STATE-VARIABLES, :TOP-LEVEL,
	:COMMAND-EVALUATOR, and :OTHER-DEFFLAVOR-OPTIONS,
	  plus those accepted by the flavor DW:PROGRAM-FRAME

Maybe this is a Genera 7.2 addition?
25-Aug-87 17:45:54-EDT,2012;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 17:45-EDT
Received: from FLUTE.LCS.MIT.EDU by ZERMATT.LCS.MIT.EDU via CHAOS with CHAOS-MAIL id 71270; Tue 25-Aug-87 17:42:22 EDT
Date: Tue, 25 Aug 87 17:42 EDT
From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>
Subject: weird help message for Load Patches
To: Bug-Lispm@ZERMATT.LCS.MIT.EDU
Message-ID: <870825174214.4.LAURA@FLUTE.LCS.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
Experimental Multilisp Compiler 7, Experimental Bounce 1,
Experimental LUNIX 1, Blui 4.1, Basic Plot 2.1, Basic Graph 1.0,
microcode 3640-MIC 396, FEP 127, FEP0:>v127-lisp.flod(55),
FEP0:>v127-loaders.flod(55), FEP0:>v127-debug.flod(34),
FEP0:>v127-info.flod(55), Machine serial number 4597,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10,
This fixes several bugs with :draw-string.  Will be superseded by 7.1 (from GRAPH!:TOOLS;DRAW-STRING-PATCH.LISP.1), on Flute:

I have a system basic-plot which I'd like to load patches for.  I typed
the following, followed by the Help key.
":Load Patches bas"

I get the following help message.

name(s) of system(s) for which to load patches
Type of input expected:  one or more patchable systems or a token
These are the possible patchable systems starting with "bas":
  Basic Graph
  Basic Plot
  Basic Sage
There are no possible one or more patchable systems or a tokens starting with "bas".

I don't understand why it thinks there are simultaneously three possible
systems, and no possible systems.  This shows up in other contexts as
well with CP arguments with spaces in their names.

Laura
25-Aug-87 18:56:24-EDT,1642;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 18:56-EDT
Received: from SAPSUCKER.SCRC.Symbolics.COM (SAPSUCKER.SCRC.Symbolics.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 71282; 25 Aug 87 18:53:29 EDT
Received: from EVENING-GROSBEAK.SCRC.Symbolics.COM by SAPSUCKER.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 156788; Tue 25-Aug-87 18:37:32 EDT
Date: Tue, 25 Aug 87 18:36 EDT
From: Scott McKay <SWM@SAPSUCKER.SCRC.Symbolics.COM>
Subject: weird help message for Load Patches
To: LAURA@VX.LCS.MIT.EDU, Bug-Lispm@ZERMATT.LCS.MIT.EDU
In-Reply-To: <870825174214.4.LAURA@FLUTE.LCS.MIT.EDU>
Message-ID: <870825183632.7.SWM@EVENING-GROSBEAK.SCRC.Symbolics.COM>

    Date: Tue, 25 Aug 87 17:42 EDT
    From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,

    I have a system basic-plot which I'd like to load patches for.  I typed
    the following, followed by the Help key.
    ":Load Patches bas"

    I get the following help message.

    name(s) of system(s) for which to load patches
    Type of input expected:  one or more patchable systems or a token
    These are the possible patchable systems starting with "bas":
      Basic Graph
      Basic Plot
      Basic Sage
    There are no possible one or more patchable systems or a tokens starting with "bas".

    I don't understand why it thinks there are simultaneously three possible
    systems, and no possible systems.  This shows up in other contexts as
    well with CP arguments with spaces in their names.


This is all much better in 7.2

25-Aug-87 19:45:11-EDT,1637;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 25 Aug 87 19:44-EDT
Received: from YUKON.SCRC.Symbolics.COM (YUKON.SCRC.SYMBOLICS.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54328; 25 Aug 87 19:42:42 EDT
Received: from MOBILE.SCRC.Symbolics.COM by YUKON.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 253729; Tue 25-Aug-87 19:41:37 EDT
Date: Tue, 25 Aug 87 19:41 EDT
From: Dennis L. Doughty <doughty@YUKON.SCRC.Symbolics.COM>
Subject: DEFINE-PROGRAM-FRAMEWORK
To: SR.Kaufman@SPEECH.MIT.EDU
cc: BUG-LISPM@OZ.AI.MIT.EDU, doughty@YUKON.SCRC.Symbolics.COM
In-Reply-To: <870825165247.9.QUX@WINNIE-THE-POOH.MIT.EDU>
Message-ID: <870825194142.2.DOUGHTY@MOBILE.SCRC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB

    Date: Tue, 25 Aug 87 16:52 EDT
    From: David H. Kaufman <SR.Kaufman@SPEECH.MIT.EDU>

	Date: Tue, 25 Aug 87 15:54 EDT
	From: Dennis L. Doughty <doughty@YUKON.SCRC.Symbolics.COM>

	You want to use 1:INHERIT-FROM 'X0 in the define-program-framework for Y.

    I quote the compiler:

	    For Program SUDS
	    The option :INHERIT-FROM is not allowed for DEFINE-PROGRAM-FRAMEWORK.
	    Valid options are :COMMAND-DEFINER, :COMMAND-TABLE, :SELECT-KEY, :SYSTEM-MENU, :PROGRAM-NAME,
	    :LABEL-PANE, :HELP, :PRETTY-NAME, :STATE-VARIABLES, :TOP-LEVEL,
	    :COMMAND-EVALUATOR, and :OTHER-DEFFLAVOR-OPTIONS,
	      plus those accepted by the flavor DW:PROGRAM-FRAME

    Maybe this is a Genera 7.2 addition?

Yeah, I'm sorry.  I got distracted before I had a chance to verify
whether this option was in 7.1.

26-Aug-87 00:03:12-EDT,2066;000000000000
Received: from EDDIE.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 26 Aug 87 00:03-EDT
Received: by EDDIE.MIT.EDU with sendmail-5.45/4.7 id <AA07149@EDDIE.MIT.EDU>; Tue, 25 Aug 87 23:58:49 EDT
Received: by media-lab.MIT.EDU (5.54/4.8)  id AA01263; Tue, 25 Aug 87 23:59:37 EDT
Date: Tue, 25 Aug 87 23:59 EDT
From: <HENRY@QUANTUM.MEDIA.MIT.EDU>
Subject: Turning on :EXPOSE-P in default init plist for constraint frames
To: Bug-Lispm@OZ.AI.MIT.EDU
Message-Id: <"870825235931.1.HENRY@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTI

In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

If I do:

(TV:MAKE-WINDOW 'EF)
1; #<EF Ef 5 1711446 deactivated>

0the window won't appear, despite :EXPOSE-P T in its :DEFAULT-INIT-PLIST.
This worked in good ole Six.  However

(TV:MAKE-WINDOW 'EF :EXPOSE-P T)
1; #<EF Ef 6 1712034 exposed>

0makes it appear.  EF is defined as follows:


(DEFCONST EF-PANES
	  `((PRESENTATION TV:WINDOW)
	    (MENU TV:WINDOW)))

(DEFCONST EF-CONSTRAINTS
	  `((STANDARD . ((PRESENTATION)
                        ((PRESENTATION :EVEN))))
            (MENU . ((PRESENTATION MENU)
			 ((MENU :ASK :PANE-SIZE))
			 ((PRESENTATION :EVEN))))))

(DEFFLAVOR EF
           ((EZWIN-TOP-LEVEL NIL))
           (TV:BORDERED-CONSTRAINT-FRAME-WITH-SHARED-IO-BUFFER)
           (:DEFAULT-INIT-PLIST
            :EDGES-FROM :MOUSE
            :PANES EF-PANES
            :CONSTRAINTS EF-CONSTRAINTS
            :EXPOSE-P T  ;;  *** Notice this!!! ***
            :SELECTED-PANE 'PRESENTATION
            :SAVE-BITS T))




26-Aug-87 08:38:02-EDT,1647;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 26 Aug 87 08:37-EDT
Received: from SLUGGO.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54446; Wed 26-Aug-87 08:35:47 EDT
Date: Wed, 26 Aug 87 08:35 EDT
From: Patrick A. O'Donnell <PAO@DEEP-THOUGHT.MIT.EDU>
Subject: Incorrect compiler warnings
To: BUG-LISPM@OZ.AI.MIT.EDU
cc: PAO@DEEP-THOUGHT.MIT.EDU
Message-ID: <870826083537.1.PAO@SLUGGO.AI.MIT.EDU>

In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, Experimental NDSP 7.0,
microcode 3650-MIC 396, FEP 206, FEP0:>g206-lisp.flod(14),
FEP0:>g206-loaders.flod(14), FEP0:>g206-debug.flod(4),
FEP0:>g206-info.flod(14), Machine serial number 30086, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, on Lisp Machine Mr. Sluggo:

The code below causes compiler warnings to be generated for BAR-1 to the
effect that "ZL:AR-1 is an obsolete function; use AREF."  Obviously, I'm
not using ZL:AR-1, nor does a complete macroexpansion of the definition
generate any calls to ZL:AR-1.  The definition of BAR-2 generates no
warnings.

(defstruct foo
  a b c)

(defun bar-1 (x)
  (<= (foo-a x) (foo-b x) (foo-c x)))

(defun bar-2 (x)
  (and (<= (foo-a x) (foo-b x))
       (<= (foo-b x) (foo-c x))))
26-Aug-87 09:25:36-EDT,2212;000000000000
Mail-From: RAIBERT created at 26-Aug-87 09:25:21
Date: Wed, 26 Aug 1987  09:25 EDT
Message-ID: <RAIBERT.12329565360.BABYL@MIT-OZ>
From: RAIBERT@OZ.AI.MIT.EDU
To:   l@OZ.AI.MIT.EDU
Subject: [jkh: sunplot]

Date: Sunday, 23 August 1987  11:40-EDT
From: jkh at wheaties.ai.mit.edu (Jessica Hodgins)
To:   jck at leg.ai.mit.edu, mac at leg.ai.mit.edu, mxr at leg.ai.mit.edu
Re:   sunplot

I'm pleased to announce that it is now safe to run sunplot without the
support of dbx!  

Plot lives in /wh/jkh/bin/plot.  If the data file is already on
wheaties type "plot filename".  If the data file in on the leg then use
the shell script called "get" in /wh/jkh/bin.  "get /usr/biped/157.6"
will ftp the file to the sun, sunify it, and fire up plot on it (thanks
to Jeff).  "get" leaves a copy of the file on wheaties and wheaties is
very short on space so we should remember to delete data files.

Sunplot has most of the functionality of ps2plot.  No cartoon, but I
think everything else works.  Let me know about the bugs you find (go
for it Mike!).  The most likely kind are going to be garbage on the
screen.  You can get the screen to redraw by raising another window and
then bringing the plot window to the top again or asking X to redraw
the screen.  But I'd like to know about the sequence of events leading
up to garbage on the screen so I can chase down the remaining bugs.

Lots of nice window features don't work.  You can't resize a plot
window or un-iconify it.  Maybe someday.  

On the other hand, sunplot does deal with being uncovered and needing
to redraw itself.  It's a good thing too because when you use the
features that require typing input (rescale, visi, write, newfile) you
type at the parent window that started the plot.  I know this is
bogus, I'll fix it someday soon.

I also plan to rearrange the screen so that the menu wastes less of the
precious screen space.  I'm open to suggestions on how it should look.
My current plan is to make the cartoon window into a dialogue window
for typing input.  And to make the menu about 2/3 as wide and give the
extra space to the big graphs.

Now, when are all those suns going to arrive?

	Jessica
26-Aug-87 11:31:23-EDT,5259;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 26 Aug 87 11:31-EDT
Received: from FLUTE.LCS.MIT.EDU (FLUTE.LCS.MIT.EDU) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 71412; 26 Aug 87 11:26:40 EDT
Date: Wed, 26 Aug 87 11:26 EDT
From: Laura Bagnall <LAURA@VX.LCS.MIT.EDU>
Subject: gensym blows out when prefix has font set
To: Bug-LispM@ZERMATT.LCS.MIT.EDU
Message-ID: <870826112627.5.LAURA@FLUTE.LCS.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
Experimental Multilisp Compiler 7, Experimental Bounce 1,
Experimental LUNIX 1, Blui 4.1, Basic Plot 2.1, Basic Graph 1.0,
microcode 3640-MIC 396, FEP 127, FEP0:>v127-lisp.flod(55),
FEP0:>v127-loaders.flod(55), FEP0:>v127-debug.flod(34),
FEP0:>v127-info.flod(55), Machine serial number 4597,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10,
This fixes several bugs with :draw-string.  Will be superseded by 7.1 (from GRAPH!:TOOLS;DRAW-STRING-PATCH.LISP.1), on Flute:

Now I don't know why someone would want to do this (the previous user of
this machine left it set this way), but if cli::*gensym-prefix* is set
to a string that contains font bits, then gensym blows out.  Perhaps a
more comprehensible error message could be generated in this case.

(setq cli::*gensym-prefix* "1G0")

1Trap: The first argument given to the SYS:FAST-ASET instruction, #\G, was not a STRING-CHAR and
      therefore would not fit into the ART-STRING array "     ".
0While in the function COPY-ARRAY-PORTION  COPY-ARRAY-CONTENTS  CLI::GENERATE-SYMBOL-NAME

The condition signalled was DBG:WRONG-TYPE-ARRAY-ELEMENT-TRAP

1COPY-ARRAY-PORTION0:  (P.C. = 162)
   Arg 0 (SI:FROM-ARRAY): "1G0"
   Arg 1 (SI:FROM-START): 0
   Arg 2 (SI:FROM-END): 1
   Arg 3 (SI:TO-ARRAY): "     "
   Arg 4 (SI:TO-START): 0
   Arg 5 (SI:TO-END): 5
   Local 6 (SI:FROM-TYPE): 14
   Local 7 (SI:TO-TYPE): 13
   Local 8 (SI:FROM-LENGTH): 1
   Local 9 (SI:TO-LENGTH): 5
   Local 10 (SI:CAN-BITBLT): NIL
   Local 11 (SI:FROM-ARRAY): "1G0"
   Local 12: -805199135
   Local 13: #<DTP-LOCATIVE 25725624>
   Local 14: 1
   Local 15 (SI:TO-ARRAY): "     "
   Local 16: -1342070047
   Local 17: #<DTP-LOCATIVE 25725741>
   Local 18: 5
   Local 19 (SI:INDEX-FROM): 0
   Local 20 (SI:INDEX-TO): 0
   Local 21 (SI:ELEMENTS): 1
   Local 22: 0

1COPY-ARRAY-CONTENTS0:  (P.C. = 13)
   Arg 0 (SI:FROM-ARRAY): "1G0"
   Arg 1 (SI:TO-ARRAY): "     "

1CLI::GENERATE-SYMBOL-NAME0:  (P.C. = 36)
   Arg 0 (CLI::PREFIX): "1G0"
   Arg 1 (CLI::N): 6967

1GENSYM0:  (P.C. = 17)  2(from SYS:PATCH;SYSTEM-349-13)
   --Defaulted args:--
0   Arg 0 (CLI::ARG): NIL

1CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (GENSYM)

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600212>
   Rest arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600155>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600120>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

1SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

1SI:LISP-TOP-LEVEL20:  (P.C. = 5)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
   Arg 0 (IGNORE): NIL

   Special SI:*COPIES-OF-CONFORMAL-ARRAYS-METER*: 0
   Special SI:*ARRAY-NULL-ELEMENT*: #<ART-Q-16 405254>

26-Aug-87 11:34:05-EDT,1415;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 26 Aug 87 11:33-EDT
Received: from SAPSUCKER.SCRC.Symbolics.COM (SAPSUCKER.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54455; 26 Aug 87 10:20:33 EDT
Received: from EVENING-GROSBEAK.SCRC.Symbolics.COM by SAPSUCKER.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 156918; Wed 26-Aug-87 10:21:36 EDT
Date: Wed, 26 Aug 87 10:20 EDT
From: Scott McKay <SWM@SAPSUCKER.SCRC.Symbolics.COM>
Subject: Incorrect compiler warnings
To: PAO@DEEP-THOUGHT.MIT.EDU, BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870826083537.1.PAO@SLUGGO.AI.MIT.EDU>
Message-ID: <870826102033.1.SWM@EVENING-GROSBEAK.SCRC.Symbolics.COM>

    Date: Wed, 26 Aug 87 08:35 EDT
    From: Patrick A. O'Donnell <PAO@DEEP-THOUGHT.MIT.EDU>

    In Symbolics 3650 Genera 7.1, 

    The code below causes compiler warnings to be generated for BAR-1 to the
    effect that "ZL:AR-1 is an obsolete function; use AREF."  Obviously, I'm
    not using ZL:AR-1, nor does a complete macroexpansion of the definition
    generate any calls to ZL:AR-1.  The definition of BAR-2 generates no
    warnings.

    (defstruct foo
      a b c)

    (defun bar-1 (x)
      (<= (foo-a x) (foo-b x) (foo-c x)))

    (defun bar-2 (x)
      (and (<= (foo-a x) (foo-b x))
	   (<= (foo-b x) (foo-c x))))

We have diked out these useless warnings in the devo (7.2) system.

27-Aug-87 10:47:03-EDT,1334;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 10:46-EDT
Received: from NIMUE.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54631; Thu 27-Aug-87 10:44:00 EDT
Date: Thu, 27 Aug 87 10:43 EDT
From: Charles Rich <RICH@AI.AI.MIT.EDU>
Subject: Font Shifts in Mail Messages
To: Bug-Lispm@OZ.AI.MIT.EDU
Message-ID: <870827104357.2.RICH@NIMUE.AI.MIT.EDU>
Default-Character-Style: (:DEVICE-FONT FONTS:MEDFNB :NORMAL)
Fonts: MEDFNB

In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3650-MIC 396, FEP 206,
FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
FEP0:>g206-debug.flod(4), FEP0:>g206-info.flod(14),
Machine serial number 30087,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29), on Lisp Machine Nimue:

Is there any way to disable the default insertion of
character style information and font shifts in mail
messages originated in Lispm mail?  Other users on other
machines on the network do not want this junk in their
incoming mail.  I thought there might be a PROFILE option in ZMAIL
for this, but couldn't find it.

				Thanks, Chuck.
27-Aug-87 10:57:27-EDT,9554;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 10:57-EDT
Date: Thu, 27 Aug 87 10:52 EDT
From: rws@ZERMATT.LCS.MIT.EDU
Sender: File-Server@ZERMATT.LCS.MIT.EDU
Subject: LMFS blowout
To: Customer-Reports@stony-brook.scrc.symbolics.com,
    Bug-LispM@ZERMATT.LCS.MIT.EDU
Message-ID: <870827105245.1.FILE-SERVER@ZERMATT.LCS.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3650 Genera 7.1, Mailer 5.13, IP-TCP 52.16, ILA-NFS 3.3,
7-1-Patches 1.21, MAC 11.2, Experimental X-Window-System 17.4,
microcode 3650-MIC 396, FEP 206, fep0:>g206-lisp.flod(14),
fep0:>g206-loaders.flod(14), fep0:>g206-info.flod(14),
fep0:>g206-debug.flod(4), Machine serial number 30100,
Rodent Free Namespace Editor (from Z:>Facilities>R7>ned.lisp.15),
Network-Security patch (from Z:>File-Server>network-security.lisp.4),
Server-Finger patch (from Z:>File-Server>server-finger.lisp.183),
Dynamic Update Daemon (from Z:>file-server>update-daemon.lisp.32), on Zermatt:

Just doing a dump.  I sure hope your next step in computing is to
throw out this junk and replace it with something that works.

1Trap: The second argument given to the ZL:AS-1 instruction, NIL, was not an array.
0While in the function LMFS:REMOVE-BUFFER-FROM-ZRC-RING  LMFS:DISCONNECT-BUFFER-FROM-FILE  LMFS:DEACTIVATE-FILE

The condition signalled was DBG:WRONG-TYPE-ARGUMENT-TRAP

1LMFS:REMOVE-BUFFER-FROM-ZRC-RING0:  (P.C. = 11)
   Arg 0 (LMFS:BUF): #S(LMFS:FILE-BUFFER :FILE-DESC NIL :UNUSED-1 NIL :RECORD-LENGTH 1136 :ADDRESS NIL :LOWEST-DATA-ADDR ...)
   Local 1 (LMFS:PREV): NIL
   Local 2 (LMFS:NEXT): NIL
   Special SYS:INHIBIT-SCHEDULING-FLAG: T

1LMFS:DISCONNECT-BUFFER-FROM-FILE0:  (P.C. = 53)
   Arg 0 (LMFS:BUF): #S(LMFS:FILE-BUFFER :FILE-DESC NIL :UNUSED-1 NIL :RECORD-LENGTH 1136 :ADDRESS NIL :LOWEST-DATA-ADDR ...)

1LMFS:DEACTIVATE-FILE0:  (P.C. = 40)
   Arg 0 (LMFS:FD): #<FILE-DESC 430162064 metaldiffcontact-sq>

1LMFS:CHECK-DEACTIVATE-FILE0:  (P.C. = 6)
   Arg 0 (LMFS:FD): #<FILE-DESC 430162064 metaldiffcontact-sq>

1LMFS:DEACTIVATE-CLEANUP-RECURSE0:  (P.C. = 22)
   Arg 0 (LMFS:FD): #<FILE-DESC 430162064 metaldiffcontact-sq>

1LMFS:DEACTIVATE-CLEANUP-RECURSE0:  (P.C. = 14)
   Arg 0 (LMFS:FD): #<FILE-DESC 430161110 plapieces>

1LMFS:DEACTIVATE-CLEANUP-RECURSE0:  (P.C. = 14)
   Arg 0 (LMFS:FD): #<FILE-DESC 430161143 portfolio>

1LMFS:DEACTIVATE-CLEANUP-RECURSE0:  (P.C. = 14)
   Arg 0 (LMFS:FD): #<FILE-DESC 424337624 oneill>

1LMFS:DEACTIVATE-CLEANUP-RECURSE0:  (P.C. = 14)
   Arg 0 (LMFS:FD): #<FILE-DESC 161772763 Root>

1LMFS:DEACTIVATE-CLEANUP0:  (P.C. = 10)
2   --Defaulted args:--
0   Arg 0 (LMFS:FD): #<FILE-DESC 161772763 Root>

1LMFS:RECORD-BACKUP-TIMES0:  (P.C. = 137)
   Arg 0: "Backup dump of 8/27/87 09:57:11"

1LMFS:BACKUP-EOT-HANDLER0:  (P.C. = 100)  2(from SYS:LMFS;PATCH;LMFS-84-8)
   --Defaulted args:--
0   Arg 0 (LMFS:RECORD-TIMES-AND-HISTORIZE): T

1LMFS:DUMP-LIST-OF-FILES0:  (P.C. = 170)
   Arg 0 (LMFS:FILES): ((#P"Z:>RWS>mail>betareq.text.145" NIL NIL (#P"Z:>RWS>mail>betareq.text.145" :PARTITION #<PARTITION FEP2:>lmfs1.file.1 161777072> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 74 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest7.text.29" NIL NIL (#P"Z:>RWS>mail>betatest7.text.29" :PARTITION #<PARTITION FEP1:>lmfs2.file.1 162016567> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 84 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest8.text.39" NIL NIL (#P"Z:>RWS>mail>betatest8.text.39" :PARTITION #<PARTITION FEP2:>lmfs1.file.1 161777072> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 55 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest9.text.23" NIL NIL (#P"Z:>RWS>mail>betatest9.text.23" :PARTITION #<PARTITION FEP2:>lmfs3.file.1 162015345> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 25 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest9.text.24" NIL NIL (#P"Z:>RWS>mail>betatest9.text.24" :PARTITION #<PARTITION FEP2:>lmfs1.file.1 161777072> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 26 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest9.text.25" NIL NIL (#P"Z:>RWS>mail>betatest9.text.25" :PARTITION #<PARTITION FEP3:>lmfs.file.1 161772733> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 33 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest9.text.26" NIL NIL (#P"Z:>RWS>mail>betatest9.text.26" :PARTITION #<PARTITION FEP2:>lmfs3.file.1 162015345> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 38 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>betatest9.text.27" NIL NIL (#P"Z:>RWS>mail>betatest9.text.27" :PARTITION #<PARTITION FEP2:>lmfs3.file.1 162015345> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 39 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>clw2.text.53" NIL NIL (#P"Z:>RWS>mail>clw2.text.53" :PARTITION #<PARTITION FEP2:>lmfs1.file.1 161777072> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 54 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>consort.text.5" NIL NIL (#P"Z:>RWS>mail>consort.text.5" :PARTITION #<PARTITION FEP3:>lmfs.file.1 161772733> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 14 :NOT-BACKED-UP ...)) ...)
   Local 0 (LMFS:FILES): ((#P"Z:>RWS>mail>x3d2.text.30" NIL NIL (#P"Z:>RWS>mail>x3d2.text.30" :PARTITION #<PARTITION FEP3:>lmfs.file.1 161772733> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 55 :NOT-BACKED-UP ...)) (#P"Z:>RWS>mail>x3d2.text.31" NIL NIL (#P"Z:>RWS>mail>x3d2.text.31" :PARTITION #<PARTITION FEP2:>lmfs1.file.1 161777072> :VOLUME-NAME #<VOLUME DEFAULT 162006770> :GENERATION-RETENTION-COUNT 5 :LENGTH-IN-BLOCKS 56 :NOT-BACKED-UP ...)))
   Arg 1 (LMFS:DESCRIPTION): ">rws>mail>*.*.*"

1LMFS:DUMP-RECURSE0:  (P.C. = 132)
   Arg 0 (LMFS:WILDPATH): #P"Z:>RWS>mail>**>*.*.*"
   Local 0 (LMFS:WILDPATH): #P"Z:>rws>mail>*.*.*"

1LMFS:DUMP-RECURSE0:  (P.C. = 244)
   Arg 0 (LMFS:WILDPATH): #P"Z:>RWS>**>*.*.*"
   Local 0 (LMFS:WILDPATH): #P"Z:>RWS>*.*.*"

1LMFS:DUMP-RECURSE0:  (P.C. = 244)
   Arg 0 (LMFS:WILDPATH): #P"Z:>**>*.*.*"
   Local 0 (LMFS:WILDPATH): #P"Z:>*.*.*"

1LMFS:BACKUP-DUMP-ROOT-NODES0:  (P.C. = 22)

1LMFS:BACKUP-DUMP-I0:  (P.C. = 57)

1LMFS:BACKUP-DUMPER0:  (P.C. = 435)
   Rest arg (ZL:ARGS): (:DUMP-TYPE :INCREMENTAL)

1(FLAVOR:METHOD :COMMAND-EXECUTE LMFS:FSMAINT-FRAME :INCREMENTAL-DUMP)0:  (P.C. = 4)
   Arg 0 (SELF): #<FSMAINT-FRAME Fsmaint Frame 1 1616526 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor LMFS:FSMAINT-FRAME 204264401>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND-EXECUTE

1(FLAVOR:COMBINED :COMMAND-EXECUTE LMFS:FSMAINT-FRAME)0:  (P.C. = 572)
   Arg 0 (SELF): #<FSMAINT-FRAME Fsmaint Frame 1 1616526 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor LMFS:FSMAINT-FRAME 204264401>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND-EXECUTE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:INCREMENTAL-DUMP)

1(FLAVOR:METHOD :INTERPRET-INPUT LMFS:FSMAINT-FRAME)0:  (P.C. = 150)
   Arg 0 (SELF): #<FSMAINT-FRAME Fsmaint Frame 1 1616526 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor LMFS:FSMAINT-FRAME 204264401>
   Arg 2 (FLAVOR::.GENERIC.): :INTERPRET-INPUT
   Arg 3 (LMFS:INPUT): (:MENU ("Incremental Dump" :VALUE :INCREMENTAL-DUMP :DOCUMENTATION "Start an incremental backup dump") 1 #<COMMAND-MENU-PANE Command Menu Pane 3 1617223 exposed>)

1LMFS:FSMAINT-READ-FCN0:  (P.C. = 66)

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 231100201>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Fsmaint Frame 1 15056066>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 231100144>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "FS Maintenance Lisp Listener"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): LMFS:FSMAINT-READ-FCN
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): NIL

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<FSMAINT-INTERACTION-PANE Fsmaint Interaction Pane 1 1616677 exposed>
   Rest arg: (:NAME "FS Maintenance Lisp Listener" :READ-FUNCTION LMFS:FSMAINT-READ-FCN)

1(FLAVOR:METHOD :FSMAINT-TOP-LEVEL LMFS:FSMAINT-FRAME)0:  (P.C. = 63)
   Arg 0 (SELF): #<FSMAINT-FRAME Fsmaint Frame 1 1616526 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor LMFS:FSMAINT-FRAME 204264401>
   Arg 2 (FLAVOR::.GENERIC.): :FSMAINT-TOP-LEVEL

1LMFS:FSMAINT-TOP-LEVEL0:  (P.C. = 6)
   Arg 0: #<FSMAINT-FRAME Fsmaint Frame 1 1616526 exposed>

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
2   --Defaulted args:--
0   Arg 0 (IGNORE): NIL
27-Aug-87 11:21:01-EDT,2186;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 11:20-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54643; 27 Aug 87 11:17:40 EDT
Received: from LETHE.SCRC.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 222004; Thu 27-Aug-87 11:15:31 EDT
Date: Thu, 27 Aug 87 11:14 EDT
From: John Watkins <jwatkins@STONY-BROOK.SCRC.Symbolics.COM>
Subject: Incorrect compiler warnings
To: PAO@DEEP-THOUGHT.MIT.EDU
cc: BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870826083537.1.PAO@SLUGGO.AI.MIT.EDU>
Message-ID: <870827111455.9.JWATKINS@LETHE.SCRC.Symbolics.COM>

    Date: Wed, 26 Aug 87 08:35 EDT
    From: Patrick A. O'Donnell <PAO@DEEP-THOUGHT.MIT.EDU>

    In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, Experimental NDSP 7.0,
    microcode 3650-MIC 396, FEP 206, FEP0:>g206-lisp.flod(14),
    FEP0:>g206-loaders.flod(14), FEP0:>g206-debug.flod(4),
    FEP0:>g206-info.flod(14), Machine serial number 30086, LCMW-RELEASE-4-0,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
    CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
    PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
    STARLISP-COMPILER-F0404, on Lisp Machine Mr. Sluggo:

    The code below causes compiler warnings to be generated for BAR-1 to the
    effect that "ZL:AR-1 is an obsolete function; use AREF."  Obviously, I'm
    not using ZL:AR-1, nor does a complete macroexpansion of the definition
    generate any calls to ZL:AR-1.  The definition of BAR-2 generates no
    warnings.

    (defstruct foo
      a b c)

    (defun bar-1 (x)
      (<= (foo-a x) (foo-b x) (foo-c x)))

    (defun bar-2 (x)
      (and (<= (foo-a x) (foo-b x))
	   (<= (foo-b x) (foo-c x))))

Sure does. I pointed it out. Now, it is fixed in the next release.
Thanks for sending mail about it.

27-Aug-87 11:21:30-EDT,1501;000000000000
Received: from EDDIE.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 11:21-EDT
Received: by EDDIE.MIT.EDU with sendmail-5.45/4.7 id <AA05487@EDDIE.MIT.EDU>; Thu, 27 Aug 87 11:16:18 EDT
Received: by media-lab.MIT.EDU (5.54/4.8)  id AA01378; Thu, 27 Aug 87 11:17:13 EDT
Date: Thu, 27 Aug 87 11:17 EDT
From: <HENRY@QUANTUM.MEDIA.MIT.EDU>
Subject: Fonts in mode line
To: Bug-Lispm@OZ.AI.MIT.EDU
Message-Id: <"870827111708.1.HENRY@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>

In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

Release 7 Zmacs deals badly with files written from Release 6 that
have the Fonts: option specified in the first line of the file.
Typical mode of lossage when you C-X C-F the file: gives you a file not found
error from FIND-AND-LOAD-FONT.  This is nearly IMPOSSIBLE to get out of --
you can't abort, cancel the load, etc.  

Some form of this was likely reponsible for the Show File bug I reported
earlier.

Workaround: Remove all Control-F font specifiers from the file with
say, TOPS-20 Emacs.

Example file:  Oz:<Tinker>Font-Loss.Lisp




27-Aug-87 12:20:58-EDT,2190;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 12:20-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54662; 27 Aug 87 12:17:52 EDT
Return-Path: <barmar@Think.COM>
Received: from occam by Think.COM via CHAOS; Thu, 27 Aug 87 12:16:53 EDT
Date: Thu, 27 Aug 87 12:19 EDT
From: Barry Margolin <barmar@Think.COM>
Subject: Font Shifts in Mail Messages
To: Charles Rich <RICH@ai.ai.mit.edu>
Cc: Bug-Lispm@oz.ai.mit.edu
In-Reply-To: <870827104357.2.RICH@NIMUE.AI.MIT.EDU>
Message-Id: <870827121913.0.BARMAR@OCCAM.THINK.COM>

    Date: Thu, 27 Aug 87 10:43 EDT
    From: Charles Rich <RICH@ai.ai.mit.edu>

    In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3650-MIC 396, FEP 206,
    FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
    FEP0:>g206-debug.flod(4), FEP0:>g206-info.flod(14),
    Machine serial number 30087,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29), on Lisp Machine Nimue:

    Is there any way to disable the default insertion of
    character style information and font shifts in mail
    messages originated in Lispm mail?  Other users on other
    machines on the network do not want this junk in their
    incoming mail.  I thought there might be a PROFILE option in ZMAIL
    for this, but couldn't find it.

				    Thanks, Chuck.

We asked Symbolics about this about a month ago.  They said that
something would be in 7.2 to do this.  For now, there are a few things
that help.  The following prevents fonts in bug reports generated by
Control-M in the debugger:

(defconst dbg:*deemphasis-character-style* '(nil nil nil))
(defconst dbg:*emphasis-character-style* '(nil nil nil))

And if you reply to a message that has a non-null default character
style, C-X H C-X C-J Return (in both the message and header windows)
will remove all character styles.

                                                barmar
27-Aug-87 13:29:54-EDT,1025;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 13:29-EDT
Received: from NIMUE.AI.MIT.EDU (NIMUE.AI.MIT.EDU) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54674; 27 Aug 87 13:26:31 EDT
Date: Thu, 27 Aug 87 13:26 EDT
From: Charles Rich <RICH@AI.AI.MIT.EDU>
Subject: Latex in Rel7
To: bug-lispm@OZ.AI.MIT.EDU
cc: CJL@AI.AI.MIT.EDU, HBR@AI.AI.MIT.EDU
Message-ID: <870827132612.3.RICH@NIMUE.AI.MIT.EDU>
Default-Character-Style: (:DEVICE-FONT FONTS:MEDFNB :NORMAL)
Fonts: MEDFNB

  I noticed in switching from running Latex in Rel6 to Rel7 that the
following bug arose in the formatting:  In normal paragraph text,
there is a extra whitespace between the last and next-to-last
lines of a paragraph that is followed by a \subsection heading.

  I didn't change my file, and I have noticed other people with this
same symptom.  Was a new version of the Latex macros installed at the
same time, or has an extra space somehow crept in the Latex sources,
or what?

				Thanks, Chuck.

27-Aug-87 14:01:01-EDT,624;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 14:00-EDT
Received: from NIMUE.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54682; Thu 27-Aug-87 13:57:47 EDT
Date: Thu, 27 Aug 87 13:57 EDT
From: Charles Rich <RICH@AI.AI.MIT.EDU>
Subject: Fill Column in ZMACS
To: Bug-Lispm@OZ.AI.MIT.EDU
Message-ID: <870827135741.4.RICH@NIMUE.AI.MIT.EDU>
Default-Character-Style: (:DEVICE-FONT FONTS:MEDFNB :NORMAL)
Fonts: MEDFNB

It would nice if the Fill Column were a file attribute.  Or at least
is there some easy way to set the default fill column in my init
file?
			Thanks, CR
27-Aug-87 17:14:07-EDT,4597;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 17:13-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54730; 27 Aug 87 17:11:00 EDT
Return-Path: <barmar@Think.COM>
Received: from occam by Think.COM via CHAOS; Thu, 27 Aug 87 17:09:41 EDT
Date: Thu, 27 Aug 87 17:11 EDT
From: Barry Margolin <barmar@Think.COM>
Subject: Font Shifts in Mail Messages
To: Gary M. Palter <Palter@alderaan.scrc.symbolics.com>
Cc: Charles Rich <RICH@ai.ai.mit.edu>, Bug-Lispm@oz.ai.mit.edu
In-Reply-To: <870827145103.4.PALTER@LARRY-BIRD.SCRC.Symbolics.COM>
Message-Id: <870827171159.5.BARMAR@OCCAM.THINK.COM>

    Date: Thu, 27 Aug 87 14:51 EDT
    From: Gary M. Palter <Palter@alderaan.scrc.symbolics.com>

	Date: Thu, 27 Aug 87 12:19 EDT
	From: Barry Margolin <barmar@Think.COM>

	    Date: Thu, 27 Aug 87 10:43 EDT
	    From: Charles Rich <RICH@ai.ai.mit.edu>

	    In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
	    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
	    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
	    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3650-MIC 396, FEP 206,
	    FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
	    FEP0:>g206-debug.flod(4), FEP0:>g206-info.flod(14),
	    Machine serial number 30087,
	    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29), on Lisp Machine Nimue:

	    Is there any way to disable the default insertion of
	    character style information and font shifts in mail
	    messages originated in Lispm mail?  Other users on other
	    machines on the network do not want this junk in their
	    incoming mail.  I thought there might be a PROFILE option in ZMAIL
	    for this, but couldn't find it.

					    Thanks, Chuck.

	We asked Symbolics about this about a month ago.  They said that
	something would be in 7.2 to do this.  

    We did?

    This can't be done without a complete reimplementation of the Mailer.
    Who told you that we'd do something in 7.2 and what did they tell you we
    were going to do?
					   
Here is the message I received from Customer Support:

Date: Wed, 15 Jul 87 16:39 PDT
From: Steve Trever <trev@vermithrax.sch.symbolics.com>
Subject: [Alex@aquinas.think.com: 1cm:f/ signals an underflow when an overflow occurs.0]
To: barmar%Think.COM@stony-brook.scrc.symbolics.com
Cc: rlk%think.com@stony-brook.scrc.symbolics.com,
        systems%think.com@stony-brook.scrc.symbolics.com,
        bug-zmail%think.com@stony-brook.scrc.symbolics.com
In-Reply-To: <870713121458.5.BARMAR@UEBERWEG.THINK.COM>
Message-Id: <870715163957.3.TREV@CALYPSO.SCH.Symbolics.COM>

    Date: Mon, 13 Jul 87 12:14 EDT
    From: Barry Margolin <barmar@Think.COM>

	Date: Wed, 8 Jul 87 12:44:53 EDT
	From: Robert L. Krawitz <rlk@zarathustra.think.com>

	Note the font control information in the subject: line.  Fonts are all
	well and good when sending mail that only goes to lispm's, but it is
	incompatible with any other mailer in existence.

	Sending non-text characters by mail is a LOSE.

	Robert^Z

    I didn't see the original message that prompted this, so I'm guessing
    what the problem is.

    In Zmail, unless the user uses multiple fonts in a message, no font
    control characters are produced; if the user has a default character
    style set in his environment, the header will contain a
    Default-Character-Style header field, and that is it; everything will be
    printing characters, and non-lispms can simply ignore this header line.

We've gotten a lot of headaches from multi-font Zmail...sometimes
even while answering bug reports, which doesn't look too good.  In
the next release, we are supposed to install some sort of variable
(such as the one you describe) that strips off character-style info.

    Problems seem to occur when replying to or forwarding such messages,
    though, if the replier/forwarder uses a different default character
    style.  Zmail tries to preserve the character style of the original
    message, but all new text is put in the replier/forwarder's default
    style, thus producing a multi-font message, which of course requires
    font control characters, making the message unreadable on non-lispms.

    Whenever I reply to mail in a different style, I fix it up before I send
    it.  Zmail seems justified in what it is doing, although perhaps a
    ZWEI:*ZMAIL-NEVER-GENERATE-CHARACTER-STYLES* flag would be nice.
27-Aug-87 20:37:58-EDT,2733;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 20:37-EDT
Received: from KAREN.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54766; Thu 27-Aug-87 20:34:48 EDT
Date: Thu, 27 Aug 87 20:34 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: TYPE declared special by Macsyma
To: Bug-CM@OZ.AI.MIT.EDU, Bug-Lispm@OZ.AI.MIT.EDU,
    Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Message-ID: <870827203457.3.ALAN@KAREN.AI.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5104, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from B:>alan>rel7-patch.lisp.2), on Lisp Machine Karen Carpenter:

I was surprised to discover while reading some disassembled code that the
variable TYPE was being treated as special.  Apparently it is declared
special in CL-MACSYMA:SOLVE;CPOLY.  I got curious, and constructed a list
of all pre-declared special variables in the SCL package.  Among the
surprises (a surprise is a variable I might accidentally use in my code
without suspecting that it was special):

   EXP
   GCD
   TYPE

These three are declared special by Macsyma.  In the same piece of code in
which I used TYPE, I was also using GCD, so this has shafted me twice
recently.  I'm certain to have used EXP as well...

   GRINDEF

This used to be a MacLisp feature, but use of GRINDEF as a variable isn't
currently documented.

   BEEP

Another undocumented feature I suspect.  (Actually, the feature that this
controls is good, but using a global special variable named BEEP to control
it is not.)

   STEP-FORM
   STEP-VALUE
   STEP-VALUES

I don't even know what these three are doing in SCL as symbols in the first
place.  Another undocumented feature I suspect.

   ROOM

Using ROOM as a variable -is- documented, but it seems so random that it
might not be a bad idea to flush it.

   COMPILE
   COMPILE-FILE

These two came from Thinking Machines.  I have no idea what they control,
or even if Thinking Machines documents them.

I would like to see all of these made non-special.  (Even if I load Macsyma
or a connection machine system.)
27-Aug-87 21:12:59-EDT,1305;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 21:12-EDT
Received: from KAREN.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54769; Thu 27-Aug-87 21:09:35 EDT
Date: Thu, 27 Aug 87 21:09 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: PROCLAIM & THE undocumented
To: Bug-Lispm@OZ.AI.MIT.EDU,
    Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
Message-ID: <870827210949.5.ALAN@KAREN.AI.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5104, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from B:>alan>rel7-patch.lisp.2), on Lisp Machine Karen Carpenter:

It appears that the online documentation doesn't have an entry for either
PROCLAIM or THE.
27-Aug-87 21:53:50-EDT,1556;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 21:53-EDT
Received: from KAREN.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54774; Thu 27-Aug-87 21:50:47 EDT
Date: Thu, 27 Aug 87 21:50 EDT
From: Alan Bawden <Alan@AI.AI.MIT.EDU>
Subject: TMC redefines PROCLAIM
To: Bug-CM@OZ.AI.MIT.EDU
cc: Bug-Lispm@OZ.AI.MIT.EDU
Message-ID: <870827215056.6.ALAN@KAREN.AI.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
Machine serial number 5104, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404,
Patches for Alan (from B:>alan>rel7-patch.lisp.2), on Lisp Machine Karen Carpenter:

No sooner had I sent that last bug report than I was shafted by the fact
that PROCLAIM was redefined by *Lisp.  The following declaration

  (declare (zl:unspecial gcd))

works correctly with the original declaration of PROCLAIM, but the version
substituted by Thinking Machines apparently converts the ZL:UNSPECIAL into
a type declaration.

I am a little irritated.
27-Aug-87 22:23:55-EDT,2557;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 27 Aug 87 22:23-EDT
Received: from ALDERAAN.SCRC.Symbolics.COM (ALDERAAN.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54781; 27 Aug 87 22:20:53 EDT
Received: from LARRY-BIRD.SCRC.Symbolics.COM by ALDERAAN.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 113916; Thu 27-Aug-87 14:51:05 EDT
Date: Thu, 27 Aug 87 14:51 EDT
From: Gary M. Palter <Palter@ALDERAAN.SCRC.Symbolics.COM>
Subject: Font Shifts in Mail Messages
To: Barry Margolin <barmar@Think.COM>
cc: Charles Rich <RICH@AI.AI.MIT.EDU>, Bug-Lispm@oz.ai.mit.edu
In-Reply-To: <870827121913.0.BARMAR@OCCAM.THINK.COM>
Message-ID: <870827145103.4.PALTER@LARRY-BIRD.SCRC.Symbolics.COM>

    Date: Thu, 27 Aug 87 12:19 EDT
    From: Barry Margolin <barmar@Think.COM>

	Date: Thu, 27 Aug 87 10:43 EDT
	From: Charles Rich <RICH@ai.ai.mit.edu>

	In Symbolics 3650 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
	7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
	Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
	LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3650-MIC 396, FEP 206,
	FEP0:>g206-lisp.flod(14), FEP0:>g206-loaders.flod(14),
	FEP0:>g206-debug.flod(4), FEP0:>g206-info.flod(14),
	Machine serial number 30087,
	Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29), on Lisp Machine Nimue:

	Is there any way to disable the default insertion of
	character style information and font shifts in mail
	messages originated in Lispm mail?  Other users on other
	machines on the network do not want this junk in their
	incoming mail.  I thought there might be a PROFILE option in ZMAIL
	for this, but couldn't find it.

					Thanks, Chuck.

    We asked Symbolics about this about a month ago.  They said that
    something would be in 7.2 to do this.  

We did?

This can't be done without a complete reimplementation of the Mailer.
Who told you that we'd do something in 7.2 and what did they tell you we
were going to do?
					   
					   For now, there are a few things
    that help.  The following prevents fonts in bug reports generated by
    Control-M in the debugger:

    (defconst dbg:*deemphasis-character-style* '(nil nil nil))
    (defconst dbg:*emphasis-character-style* '(nil nil nil))

    And if you reply to a message that has a non-null default character
    style, C-X H C-X C-J Return (in both the message and header windows)
    will remove all character styles.

						    barmar

28-Aug-87 08:11:36-EDT,492;000000000000
Return-Path: <RWS@XX.LCS.MIT.EDU>
Received: from XX.LCS.MIT.EDU by OZ.AI.MIT.EDU with Chaos/SMTP; Fri 28 Aug 87 08:11:28-EDT
Date: Fri 28 Aug 87 08:05:30-EDT
From: Robert W. Scheifler <RWS@XX.LCS.MIT.EDU>
Subject: Re: TMC redefines PROCLAIM
To: Alan@AI.AI.MIT.EDU, Bug-CM@OZ.AI.MIT.EDU
cc: Bug-Lispm@OZ.AI.MIT.EDU
In-Reply-To: <870827215056.6.ALAN@KAREN.AI.MIT.EDU>
Message-ID: <12330075113.19.RWS@XX.LCS.MIT.EDU>

We seemed to be screwed a *lot* by the latest TMC stuff.
-------
28-Aug-87 10:11:31-EDT,2047;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 10:11-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54819; 28 Aug 87 10:08:26 EDT
Received: from LETHE.SCRC.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 223044; Fri 28-Aug-87 10:05:02 EDT
Date: Fri, 28 Aug 87 10:04 EDT
From: John Watkins <jwatkins@STONY-BROOK.SCRC.Symbolics.COM>
Subject: Fonts in mode line
To: HENRY@QUANTUM.MEDIA.MIT.EDU
cc: Bug-Lispm@OZ.AI.MIT.EDU
In-Reply-To: <"870827111708.1.HENRY@QUANTUM"@QUANTUM.MEDIA.MIT.EDU>
Message-ID: <870828100457.4.JWATKINS@LETHE.SCRC.Symbolics.COM>

    Date: Thu, 27 Aug 87 11:17 EDT
    From: <HENRY@QUANTUM.MEDIA.MIT.EDU>

    In Symbolics 3600 Genera 7.1, IP-TCP 52.16, Color 329.6,
    Color Support 9.4, Color Demo 314.1, Images 308.4, Color Editor 311.3,
    S-Paint 13.5, Tablet 2.3, Bsfonts 1.0, S-Render 20.5, S-Geometry 9.5,
    Live Window 315.3, S-Dynamics 9.9, microcode 3600-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
    Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Quantum:

    Release 7 Zmacs deals badly with files written from Release 6 that
    have the Fonts: option specified in the first line of the file.
    Typical mode of lossage when you C-X C-F the file: gives you a file not found
    error from FIND-AND-LOAD-FONT.  This is nearly IMPOSSIBLE to get out of --
    you can't abort, cancel the load, etc.  

    Some form of this was likely reponsible for the Show File bug I reported
    earlier.

    Workaround: Remove all Control-F font specifiers from the file with
    say, TOPS-20 Emacs.

    Example file:  Oz:<Tinker>Font-Loss.Lisp




Thanks for your report. I've forwarded it to our developers. As you may
have noticed working on a Rel 7 file while running Rel 6 is bad also.
Sorry you were bit.

28-Aug-87 10:20:03-EDT,1780;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 10:19-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54822; 28 Aug 87 10:17:00 EDT
Received: from LETHE.SCRC.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via INTERNET with SMTP id 223056; 28 Aug 87 10:17:10 EDT
Date: Fri, 28 Aug 87 10:17 EDT
From: John Watkins <jwatkins@STONY-BROOK.SCRC.Symbolics.COM>
Subject: PROCLAIM & THE undocumented
To: Alan@AI.AI.MIT.EDU
cc: Bug-Lispm@OZ.AI.MIT.EDU, Customer-Reports@STONY-BROOK.SCRC.Symbolics.COM
In-Reply-To: <870827210949.5.ALAN@KAREN.AI.MIT.EDU>
Message-ID: <870828101711.7.JWATKINS@LETHE.SCRC.Symbolics.COM>

    Date: Thu, 27 Aug 87 21:09 EDT
    From: Alan Bawden <Alan@AI.AI.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Macsyma 412.45, microcode 3640-MIC 396,
    FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-info.flod(55), FEP0:>v127-debug.flod(34),
    Machine serial number 5104, LCMW-RELEASE-4-0,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
    CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
    PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
    STARLISP-COMPILER-F0404,
    Patches for Alan (from B:>alan>rel7-patch.lisp.2), on Lisp Machine Karen Carpenter:

    It appears that the online documentation doesn't have an entry for either
    PROCLAIM or THE.

Oops. Thanks. We've fixed it for the next release. 


28-Aug-87 11:13:16-EDT,12342;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 11:12-EDT
Received: from trantor.harris.com (TRANTOR.HARRIS.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 71991; 28 Aug 87 11:08:27 EDT
Received: by trantor.harris.com (4.12/4.8) with CHAOS id AA20136; Fri, 28 Aug 87 11:04:31 edt
Date: Fri, 28 Aug 87 11:02 EDT
From: Mike McDonald <mac@TRANTOR.HARRIS.COM>
Subject: ZMail blowout
To: bug-lispm@TRANTOR.HARRIS.COM
Message-Id: <870828110213.0.MAC@TITAN.HARRIS.COM>


In Symbolics 3620 Zmail in Genera 7.1, Print Spooler 3.5, IP-TCP 52.0,
TeX 1.0, Pascal 25.3, microcode 3620-MIC 396, FEP 206,
Fep0:>g206-lisp.flod(6), Fep0:>g206-loaders.flod(6),
Fep0:>g206-info.flod(6), Fep0:>G206-debug.flod(1),
Machine serial number 20458,

  Lately, when I've hit the space key at the end of a line of text in
Zmail, I get thrown into the debugger. This does not happen all of the
time but will happen every time with the same line.

  Mike McDonald

P.S. Zmail mode is (Text Mail Fill)


1Error: The symbol NIL has an invalid function definition
0While in the function   ZWEI:FIND-COMMENT-START  ZWEI:COM-INDENT-NEW-COMMENT-LINE

The condition signalled was SYS:INVALID-FUNCTION

1ZWEI:FIND-COMMENT-START0:  (P.C. = 11)  2(from SYS:SYNTAX-EDITOR;PATCH;SYNTAX-EDITOR-SUPPORT-18-9)
0   Arg 0 (ZWEI:LINE): "  I don't know what happened but for some reason Manatee was never addedto "
2   --Defaulted args:--
0   Arg 1 (ZWEI:BEGIN-ALSO): NIL

1ZWEI:COM-INDENT-NEW-COMMENT-LINE0:  (P.C. = 13)

1ZWEI:AUTO-FILL-HOOK0:  (P.C. = 211)
   Arg 0 (ZWEI:CHAR): #\Space
2   --Defaulted args:--
0   Arg 1 (ZWEI:FILL-COLUMN-VARIABLE): ZWEI:*FILL-COLUMN*

1ZWEI:PROCESS-COMMAND-CHAR0:  (P.C. = 100)
   Arg 0 (ZWEI:CH): #\Space

1(FLAVOR:METHOD :EDIT ZWEI:EDITOR)0:  (P.C. = 316)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 200000432>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
2   --Defaulted args:--
0   Arg 3 (ZWEI:TOP-LEVEL-P): T
   Arg 4 (ZWEI:DESCRIPTION): NIL

1(:INTERNAL (:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMAIL-FRAME) 1) 0)0:  (P.C. = 27)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1(FLAVOR:WHOPPER :EDIT ZWEI:ZMAIL-COMMAND-LOOP-MIXIN)0:  (P.C. = 13)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-COMMAND-LOOP-MIXIN 200000464>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMAIL-FRAME) 1) 0) 151261716>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 4 (FLAVOR::.GENERIC.): :EDIT

1(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMAIL-FRAME) 1)0:  (P.C. = 13)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 230300673>
   Rest arg: NIL

1(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR)0:  (P.C. = 20)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:EDITOR 200000432>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMAIL-FRAME) 1) 151261701>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 4 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (ZWEI:ARGUMENTS): NIL

1(FLAVOR:COMBINED :EDIT ZWEI:ZMAIL-FRAME)0:  (P.C. = 617)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :EDIT
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1ZWEI:ZMAIL-MAIL0:  (P.C. = 252)  2(from SYS:ZMAIL;PATCH;ZMAIL-146-8)
0   Arg 0 (ZWEI:CONFIGURATION): :MAIL
   Arg 1 (ZWEI:STARTING-WINDOW): #S(ZWEI:WINDOW :WINDOW-N-PLINES 3 :WINDOW-INTERVAL #<ZMAIL-INTERVAL "Headers" 61567233> :WINDOW-SHEET #<ZMAIL-WINDOW Zmail Window 2 1525131 exposed> :WINDOW-REDISPLAY-DEGREE 0 :WINDOW-REDISPLAY-LINE ...)

1ZWEI:CONTINUE-DRAFT-MSG0:  (P.C. = 21)
   Arg 0 (ZWEI:DRAFT-MSG): #<DRAFT-MSG 61567172>

1ZWEI:COMPOSE-VIA-DRAFT-MSG0:  (P.C. = 5)
   Arg 0 (ZWEI:TEMPLATE-EXPANSION): (:STARTING-POINT ((:HEADERS :TO)) :HEADERS (:TO NIL :SUBJECT NIL) :MSGS (#S(ZWEI:MSG :REAL-INTERVAL #<ZMAIL-MSG-NODE 320002605> :INTERVAL #<ZMAIL-MSG-NODE 320002621> :TICK 8088 :BUFFER #<UNIX-MAIL-BUFFER "TR:/usr/mac/mb


ox" 160375561> :SUMMARY-LINE ...)))

1ZWEI:FUNCALL-TEMPLATE-EXPANSION0:  (P.C. = 51)
   Arg 0 (ZWEI:TEMPLATE-EXPANSION): (:STARTING-POINT ((:HEADERS :TO)) :HEADERS (:TO NIL :SUBJECT NIL) :MSGS (#S(ZWEI:MSG :REAL-INTERVAL #<ZMAIL-MSG-NODE 320002605> :INTERVAL #<ZMAIL-MSG-NODE 320002621> :TICK 8088 :BUFFER #<UNIX-MAIL-BUFFER "TR:/usr/mac/mb


ox" 160375561> :SUMMARY-LINE ...)))
   Arg 1 (FUNCTION): #<DTP-COMPILED-FUNCTION ZWEI:COMPOSE-VIA-DRAFT-MSG 151062353>
   Rest arg (ZL:ARGS): ((:STARTING-POINT ((:HEADERS :TO)) :HEADERS (:TO NIL :SUBJECT NIL) :MSGS (#S(ZWEI:MSG :REAL-INTERVAL #<ZMAIL-MSG-NODE 320002605> :INTERVAL #<ZMAIL-MSG-NODE 320002621> :TICK 8088 :BUFFER #<UNIX-MAIL-BUFFER "TR:/usr/mac/mbox" 16037556


1> :SUMMARY-LINE ...))))

1ZWEI:COMPOSE-FROM-TEMPLATE0:  (P.C. = 22)
   Arg 0 (ZWEI:TEMPLATE): ZWEI:MAIL-TEMPLATE
   Rest arg (ZL:PLIST): (:MSGS (#S(ZWEI:MSG :REAL-INTERVAL #<ZMAIL-MSG-NODE 320002605> :INTERVAL #<ZMAIL-MSG-NODE 320002621> :TICK 8088 :BUFFER #<UNIX-MAIL-BUFFER "TR:/usr/mac/mbox" 160375561> :SUMMARY-LINE ...)))

1ZWEI:COM-ZMAIL-MAIL0:  (P.C. = 11)

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 16)
   Arg 0 (SELF): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL ZWEI:COMMAND-EXECUTE 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 230300457>
   Rest arg: NIL

1ZWEI:COMMAND-EXECUTE0:  (P.C. = 57)
   Arg 0 (ZWEI:COMMAND): ZWEI:COM-ZMAIL-MAIL
   Arg 1 (ZWEI:CHAR): (:MENU ("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)
2   --Defaulted args:--
0   Arg 2 (ZWEI:PREFIX-CHAR): NIL
   Arg 3 (ZWEI:HOOK-LIST): NIL

1ZWEI:ZMAIL-COMMAND-EXECUTE0:  (P.C. = 6)
   Arg 0: ZWEI:COM-ZMAIL-MAIL

1(:INTERNAL ZWEI:ZMAIL-COMMAND-LIST 0 (:MENU))0:  (P.C. = 10)
   Arg 0 (SI:**DEFSELECT-OP**): :MENU
   Arg 1 (ZWEI:ITEM): ("Mail" . ZWEI:COM-ZMAIL-MAIL)
   Arg 2 (ZWEI:CH): 1
   Arg 3 (ZWEI:WINDOW): #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>

1ZWEI:ZMAIL-COMMAND-LIST0:  (P.C. = 23)
   Arg 0 (SI:OPERATION): :MENU
   Rest arg (SI:SELECT-METHOD-ARGS): (("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)
   Local 1 (SI:SELECT-METHOD-ARGS): NIL

1(FLAVOR:METHOD :PROCESS-SPECIAL-COMMAND ZWEI:ZMAIL-FRAME)0:  (P.C. = 16)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :PROCESS-SPECIAL-COMMAND
   Rest arg (ZL:ARGS): (:MENU ("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)

1(:INTERNAL (FLAVOR:COMBINED :PROCESS-SPECIAL-COMMAND ZWEI:ZMAIL-FRAME) 0)0:  (P.C. = 10)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :PROCESS-SPECIAL-COMMAND
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:MENU ("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 230300310>
   Rest arg: NIL

1(FLAVOR:WHOPPER :PROCESS-SPECIAL-COMMAND ZWEI:ZMAIL-COMMAND-LOOP-MIXIN)0:  (P.C. = 20)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-COMMAND-LOOP-MIXIN 200000464>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :PROCESS-SPECIAL-COMMAND ZWEI:ZMAIL-FRAME) 0) 150706250>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 4 (FLAVOR::.GENERIC.): :PROCESS-SPECIAL-COMMAND
   Rest arg (ZL:ARGS): (:MENU ("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)

1(FLAVOR:COMBINED :PROCESS-SPECIAL-COMMAND ZWEI:ZMAIL-FRAME)0:  (P.C. = 13)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :PROCESS-SPECIAL-COMMAND
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:MENU ("Mail" . ZWEI:COM-ZMAIL-MAIL) 1 #<ZMAIL-MAIN-COMMAND-MENU-PANE Zmail Main Command Menu Pane 1 1541400 deactivated>)

1(FLAVOR:METHOD :COMMAND-LOOP ZWEI:ZMAIL-FRAME)0:  (P.C. = 123)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND-LOOP

1(:INTERNAL (FLAVOR:COMBINED :COMMAND-LOOP ZWEI:ZMAIL-FRAME) 0)0:  (P.C. = 17)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND-LOOP
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Main Zmail Window 15056221>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 1 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 230300103>
   Rest arg: NIL

1(FLAVOR:WHOPPER :COMMAND-LOOP ZWEI:ZMAIL-COMMAND-LOOP-MIXIN)0:  (P.C. = 65)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-COMMAND-LOOP-MIXIN 200000464>
   Arg 2 (FLAVOR::.WHOPPER-CONTINUATION.): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:COMBINED :COMMAND-LOOP ZWEI:ZMAIL-FRAME) 0) 150705665>
   Arg 3 (FLAVOR::.OLD-SELF-MAPPING-TABLE.): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 4 (FLAVOR::.GENERIC.): :COMMAND-LOOP

1(FLAVOR:COMBINED :COMMAND-LOOP ZWEI:ZMAIL-FRAME)0:  (P.C. = 562)
   Arg 0 (SELF): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:ZMAIL-FRAME 200000046>
   Arg 2 (FLAVOR::.GENERIC.): :COMMAND-LOOP
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1ZWEI:ZMAIL-PROCESS-TOP-LEVEL0:  (P.C. = 104)
   Arg 0 (ZWEI:WINDOW): #<ZMAIL-FRAME Main Zmail Window 1523016 exposed>

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
   Arg 0 (IGNORE): NIL




28-Aug-87 12:45:20-EDT,1319;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 12:45-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54845; 28 Aug 87 12:21:20 EDT
Return-Path: <jaw@Think.COM>
Received: from brigit.think.com by Think.COM; Fri, 28 Aug 87 12:20:32 EDT
Received: by brigit.think.com; Fri, 28 Aug 87 12:20:29 EDT
Date: Fri, 28 Aug 87 12:20:29 EDT
From: jaw@Think.COM
Message-Id: <8708281620.AA16533@brigit.think.com>
To: Alan@ai.ai.mit.edu
Cc: Bug-CM@oz.ai.mit.edu, Bug-Lispm@oz.ai.mit.edu,
        Customer-Reports@stony-brook.scrc.symbolics.com.csg-log
In-Reply-To: Alan Bawden's message of Thu, 27 Aug 87 20:34 EDT <870827203457.3.ALAN@KAREN.AI.MIT.EDU>
Subject: TYPE declared special by Macsyma


   Date: Thu, 27 Aug 87 20:34 EDT
   From: Alan Bawden <Alan@ai.ai.mit.edu>

      COMPILE
      COMPILE-FILE


   These two came from Thinking Machines.  I have no idea what they control,
   or even if Thinking Machines documents them.


   I would like to see all of these made non-special.  (Even if I load Macsyma
   or a connection machine system.)

Alan,

We have fixed these in the next release.  Thanks for sending the
reporting the problem.  I'll get back to you about possible patches
for this.

Jean Manis
Customer Support
28-Aug-87 12:45:44-EDT,1306;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 12:45-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54846; 28 Aug 87 12:21:52 EDT
Return-Path: <jaw@Think.COM>
Received: from brigit.think.com by Think.COM; Fri, 28 Aug 87 12:20:58 EDT
Received: by brigit.think.com; Fri, 28 Aug 87 12:20:54 EDT
Date: Fri, 28 Aug 87 12:20:54 EDT
From: jaw@Think.COM
Message-Id: <8708281620.AA16537@brigit.think.com>
To: Alan@ai.ai.mit.edu
Cc: Bug-CM@oz.ai.mit.edu, Bug-Lispm@oz.ai.mit.edu,
        Customer-Reports@stony-brook.scrc.symbolics.com.csg-log
In-Reply-To: Alan Bawden's message of Thu, 27 Aug 87 20:34 EDT <870827203457.3.ALAN@KAREN.AI.MIT.EDU>
Subject: TYPE declared special by Macsyma


   Date: Thu, 27 Aug 87 20:34 EDT
   From: Alan Bawden <Alan@ai.ai.mit.edu>

      COMPILE
      COMPILE-FILE


   These two came from Thinking Machines.  I have no idea what they control,
   or even if Thinking Machines documents them.


   I would like to see all of these made non-special.  (Even if I load Macsyma
   or a connection machine system.)

Alan,

We have fixed these in the next release.  Thanks for reporting the
problem.  I'll get back to you about possible patches for this.

Jean Manis
Customer Support
28-Aug-87 12:51:02-EDT,1546;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 12:50-EDT
Received: from ASPEN.LCS.MIT.EDU by ZERMATT.LCS.MIT.EDU via CHAOS with CHAOS-MAIL id 72008; Fri 28-Aug-87 11:53:51 EDT
Date: Fri, 28 Aug 87 11:54 EDT
From: Robert Halstead <rhh@VX.LCS.MIT.EDU>
Subject: bug in read-from-string
To: BUG-LISPM@ZERMATT.LCS.MIT.EDU
Message-ID: <870828115406.2.RHH@ASPEN.LCS.MIT.EDU>

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
Experimental Multilisp Compiler 7, Experimental Bounce 1,
Experimental LUNIX 1, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 4238,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on Aspen:

(read-from-string "7 8" :start 2) returns the values 7 and 2, instead of
8 and 3 as the documentation would lead one to expect.  In other words,
read-from-string seems to ignore the value supplied with the :start
keyword (though it does not reject the :start keyword) and always starts
reading from the beginning of the string no matter what starting
position is specified.				-Bert Halstead
28-Aug-87 14:01:40-EDT,1594;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 14:01-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54863; 28 Aug 87 13:58:30 EDT
Return-Path: <jaw@Think.COM>
Received: from brigit.think.com by Think.COM; Fri, 28 Aug 87 13:57:35 EDT
Received: by brigit.think.com; Fri, 28 Aug 87 13:57:32 EDT
Date: Fri, 28 Aug 87 13:57:32 EDT
From: jaw@Think.COM
Message-Id: <8708281757.AA16781@brigit.think.com>
To: alan@ai.ai.mit.edu
Cc: Bug-CM@oz.ai.mit.edu, Bug-Lispm@oz.ai.mit.edu,
        Customer-Reports@stony-brook.scrc.symbolics.com, csg-log@Think.COM
In-Reply-To: jaw@Think.COM's message of Fri, 28 Aug 87 12:20:54 EDT <8708281620.AA16537@brigit.think.com>
Subject: TYPE declared special by Macsyma


   Date: Fri, 28 Aug 87 12:20:54 EDT
   From: jaw@Think.COM

      Date: Thu, 27 Aug 87 20:34 EDT
      From: Alan Bawden <Alan@ai.ai.mit.edu>

	 COMPILE
	 COMPILE-FILE


      These two came from Thinking Machines.  I have no idea what they control,
      or even if Thinking Machines documents them.


      I would like to see all of these made non-special.  (Even if I
      load Macsyma or a connection machine system.)

   ----------
   We have fixed these in the next release.  Thanks for reporting the
   problem.  I'll get back to you about possible patches for this.

----------

The fix will not be available until the next release.  Unfortunately,
there is no current date set for that release.  We'll let you know.
Sorry for the inconvenience. 

Jean Manis
Customer Support
28-Aug-87 14:14:27-EDT,1399;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 14:14-EDT
Received: from XX.LCS.MIT.EDU (XX.LCS.MIT.EDU) by ZERMATT.LCS.MIT.EDU via CHAOS with SMTP id 72064; 28 Aug 87 14:11:01 EDT
Received: from RTS-12.LCS.MIT.EDU by XX.LCS.MIT.EDU via Chaosnet; 28 Aug 87 14:08-EDT
Message-Id: <2766161237-16452176@RTS-12>
Sender: cerys@RTS-12
Date: Fri, 28 Aug 87  14:07:17 EDT
From: "Daniel L. Cerys" <Cerys@XX.LCS.MIT.EDU>
To: Robert Halstead <rhh@VX.LCS.MIT.EDU>
Cc: BUG-LISPM@ZERMATT.LCS.MIT.EDU
Subject: Re: bug in read-from-string
In-Reply-To: Msg of Fri, 28 Aug 87 11:54 EDT from Robert Halstead <rhh@VX.LCS.MIT.EDU>


> (read-from-string "7 8" :start 2) returns the values 7 and 2, instead of
> 8 and 3 as the documentation would lead one to expect.  In other words,
> read-from-string seems to ignore the value supplied with the :start
> keyword (though it does not reject the :start keyword) and always starts
> reading from the beginning of the string no matter what starting
> position is specified.				-Bert Halstead

Bert,

This is a common misreading of the documentation (I've done it).  There
really are two positional optional arguments that must come before the
keyword args (eof-error-p and eof-value).  It doesn't make any sense
when viewed by itself, but this actually makes it fairly consistent with
the other Reader functions.

Dan
28-Aug-87 14:16:25-EDT,2133;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 14:16-EDT
Received: from DIAMOND.S4CC.Symbolics.COM (DIAMOND.S4CC.Symbolics.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 72066; 28 Aug 87 14:12:59 EDT
Received: from THUNDERBIRD.S4CC.Symbolics.COM by DIAMOND.S4CC.Symbolics.COM via CHAOS with CHAOS-MAIL id 117537; Fri 28-Aug-87 13:35:41 EDT
Date: Fri, 28 Aug 87 13:34 EDT
From: Michael Greenwald <Greenwald@STONY-BROOK.SCRC.Symbolics.COM>
Subject: bug in read-from-string
To: rhh@VX.LCS.MIT.EDU, BUG-LISPM@ZERMATT.LCS.MIT.EDU
In-Reply-To: <870828115406.2.RHH@ASPEN.LCS.MIT.EDU>
Message-ID: <870828133458.3.GREENWALD@THUNDERBIRD.S4CC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (:FIX :ITALIC :NORMAL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTI

    Date: Fri, 28 Aug 87 11:54 EDT
    From: Robert Halstead <rhh@VX.LCS.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    ...

    (read-from-string "7 8" :start 2) returns the values 7 and 2, instead of
    8 and 3 as the documentation would lead one to expect.  In other words,
    read-from-string seems to ignore the value supplied with the :start
    keyword (though it does not reject the :start keyword) and always starts
    reading from the beginning of the string no matter what starting
    position is specified.				-Bert Halstead

There is something psychologically troubling about the arglist for
READ-FROM-STRING.  I'm not being facetious.

Many people (an incredible number) make the same mistake.  If you look
at the arglist for (read-from-string you'll notice that 

    READ-FROM-STRING: (STRING 1&optional0 (EOF-ERRORP T) EOF-VALUE 1&key0 (:START 0) :END :PRESERVE-WHITESPACE)

there are two optional values EOF-ERRORP, and EOF-VALUE.  You've
supplied :START for EOF-ERRORP and 2 for EOF-VALUE.

It is precisely because of misinterpretation of this function that we're
experimenting with the italicized &keywords in the c-sh-a output above.
I hope that reduces the confusion.

I'm very curious why this particular function causes so much trouble.

28-Aug-87 14:21:58-EDT,2286;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 14:21-EDT
Received: from Think.COM (THINK.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 72070; 28 Aug 87 14:18:25 EDT
Return-Path: <barmar@Think.COM>
Received: from occam by Think.COM via CHAOS; Fri, 28 Aug 87 14:03:15 EDT
Date: Fri, 28 Aug 87 14:05 EDT
From: Barry Margolin <barmar@Think.COM>
Subject: bug in read-from-string
To: Robert Halstead <rhh@vx.lcs.mit.edu>
Cc: BUG-LISPM@zermatt.lcs.mit.edu
In-Reply-To: <870828115406.2.RHH@ASPEN.LCS.MIT.EDU>
Message-Id: <870828140531.5.BARMAR@OCCAM.THINK.COM>

    Date: Fri, 28 Aug 87 11:54 EDT
    From: Robert Halstead <rhh@VX.LCS.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
    Experimental Multilisp Compiler 7, Experimental Bounce 1,
    Experimental LUNIX 1, microcode 3640-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
    Machine serial number 4238,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
    LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
    DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on Aspen:

    (read-from-string "7 8" :start 2) returns the values 7 and 2, instead of
    8 and 3 as the documentation would lead one to expect.  In other words,
    read-from-string seems to ignore the value supplied with the :start
    keyword (though it does not reject the :start keyword) and always starts
    reading from the beginning of the string no matter what starting
    position is specified.				-Bert Halstead


(arglist 'read-from-string) =>
(STRING &OPTIONAL (EOF-ERRORP T) EOF-VALUE
        &KEY (START 0) END PRESERVE-WHITESPACE)

The optional arguments must be given in order to specify keyword
arguments.  In your case, you specify an EOF-ERRORP of :START and
EOF-VALUE of 2.  Try (read-from-string "7 8" t nil :start 2).

                                                barmar
28-Aug-87 15:21:12-EDT,2197;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 15:20-EDT
Received: from DIAMOND.S4CC.Symbolics.COM (DIAMOND.S4CC.Symbolics.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 72099; 28 Aug 87 15:17:33 EDT
Received: from LIMPKIN.S4CC.Symbolics.COM by DIAMOND.S4CC.Symbolics.COM via CHAOS with CHAOS-MAIL id 117646; Fri 28-Aug-87 15:17:01 EDT
Date: Fri, 28 Aug 87 15:16 EDT
From: David L. Andre <DLA@DIAMOND.S4CC.Symbolics.COM>
Subject: bug in read-from-string
To: rhh@VX.LCS.MIT.EDU
cc: BUG-LISPM@ZERMATT.LCS.MIT.EDU
In-Reply-To: <870828115406.2.RHH@ASPEN.LCS.MIT.EDU>
Message-ID: <870828151616.3.DLA@LIMPKIN.S4CC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB

    Date: Fri, 28 Aug 87 11:54 EDT
    From: Robert Halstead <rhh@VX.LCS.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
    7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
    Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
    LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Experimental Multilisp 15.0,
    Experimental Multilisp Compiler 7, Experimental Bounce 1,
    Experimental LUNIX 1, microcode 3640-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
    Machine serial number 4238,
    Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
    LCMW-RELEASE-4-0, CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403,
    DEFS-F0403, STARLISP-COMMON-F0404, STARLISP-SIMULATOR-F10, on Aspen:

    (read-from-string "7 8" :start 2) returns the values 7 and 2, instead of
    8 and 3 as the documentation would lead one to expect.  In other words,
    read-from-string seems to ignore the value supplied with the :start
    keyword (though it does not reject the :start keyword) and always starts
    reading from the beginning of the string no matter what starting
    position is specified.				-Bert Halstead

Look at the arglist for 1read-from-string 0again.  There is no bug.

Hint:  Try (read-from-string "7 8" 1t nil 0:start 2)

28-Aug-87 17:39:02-EDT,6108;000000000000
Received: from APIARY-3.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 17:38-EDT
Date: Fri, 28 Aug 87 17:35 EDT
From: Carl R. Manning <CarlManning@OZ.AI.MIT.EDU>
Subject: SCT Consistency Problem
To: Bug-LispM@OZ.AI.MIT.EDU
Message-ID: <870828173548.1.CRM@WORKER-3.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3600 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Project Tanglewood 6.0,
Apiary: The Actor Computing System 14.6,
Acore: An Actor Core Language 10.5, The Common Library 8.0,
InterAct: The Meta-Circular Acore Interpreter 1.0,
Traveler: The Apiary Observatory 12.5, microcode 3600-IFU-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55), LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, Apiary World: 17 August 1987, on Lisp Machine Worker-3:

I am consistently getting this error each time I recompile the Apiary
system.  However, I don't know what it means so I can't figure out how
to avoid it in the future.  Please make this error message more
descriptive.
                                                        -- CarlManning

1Error: Internal record for system Apiary: The Actor Computing System is inconsistent.  Please reload it.
0While in the function SCT:GET-SYSTEM-VERSION  SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY  COMPILE-SYSTEM

The condition signalled was ZL:FERROR

1SCT:GET-SYSTEM-VERSION0:  (P.C. = 44)
   Arg 0 (SCT:SYSTEM): #<SYSTEM APIARY 424001024>
   Local 1 (SCT:MAJOR-VERSION): 15
   Local 2 (SCT:PATCHABLE-SYSTEM): ("Apiary" 14 :RELEASED ((6 "DEFINE-BUILTIN-SCRIPT STRING:  All strings should defaultly be Vectors, no?" "TomR" 2765359469) (5 "DEFINE-BUILTIN-SCRIPT CL:FIXNUM:  Had to Add ATOM to this thing's Type's List.
DEFINE-BUILTIN-SCRIPT CL:BIGNUM:  Added ATOM to its Type's List.
DEFINE-BUILTIN-SCRIPT CL:RATIO:  Added ATOM to its Types List.
DEFINE-BUILTIN-SCRIPT CL:SINGLE-FLOAT:  Added ATOM to its Types List.
DEFINE-BUILTIN-SCRIPT COMPLEX:  Added ATOM to its Type List.
DEFINE-BUILTIN-SCRIPT NULL:  Added ATOM to its Type List.
DEFINE-BUILTIN-SCRIPT SYMBOL:  Added ATOM to its Type List.
DEFINE-BUILTIN-SCRIPT CL:ARRAY:  Added ATOM to its Types List.
DEFINE-BUILTIN-SCRIPT STRING:  Added ATOM to its Types List.
DEFINE-BUILTIN-SCRIPT CHARACTER:  Added ATOM to its Types List." "TomR" 2764861866) (4 "DEFINE-BUILTIN-SCRIPT COMPLEX:  Added Number as Type to Complex's Builtin Script.
DEFINE-BUILTIN-SCRIPT CONS:  Added Sequence and List as valid types to its Builtin Script.
DEFINE-BUILTIN-SCRIPT NULL:  Added List and Sequence to its Builtin Types.
DEFINE-BUILTIN-SCRIPT STRING:  Added Sequence and Array to its Builtin Types List." "TomR" 2764854086) (3 "Added types to the builtin scripts, e.g. fixnums are now (fixnum integer number),
cons are (lisp-cons cons), nil is (null), etc.			-- CarlManning" "CarlManning" 2764852461) (2 ZL-USER:|...|) (1 ZL-USER:|...|) (0 ZL-USER:|...|)))

1SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY0:  (P.C. = 27)
   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM APIARY 424001024>
   Arg 1 (SCT:VERSION-DESIGNATOR): :LATEST
   Arg 2 (SCT:REAL-VERSION): NIL
   Rest arg: (:NO-LOAD NIL :NEVER-LOAD NIL :NO-COMPILE NIL)

1COMPILE-SYSTEM0:  (P.C. = 712)  2(from SYS:PATCH;SYSTEM-349-277)
0   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM APIARY 321772045>
   Rest arg (SCT:KEYS): (:RECOMPILE NIL :RELOAD NIL :NO-LOAD NIL :NEVER-LOAD NIL :QUERY :NO-CONFIRM ...)

1SI:COM-COMPILE-SYSTEM0:  (P.C. = 637)  2(from SYS:PATCH;SYSTEM-349-260)
0   Arg 0 (SI:SYSTEM-SPEC): #<SYSTEM APIARY 321772045>
   Rest arg: (:NEW-MAJOR-VERSION NIL)

1CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SI:COM-COMPILE-SYSTEM (QUOTE #<SYSTEM APIARY 321772045>) (QUOTE :NEW-MAJOR-VERSION) (QUOTE NIL))

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600160>
   Rest arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600123>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600066>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

1SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

1SI:LISP-TOP-LEVEL-WARM0:  (P.C. = 10)
28-Aug-87 17:48:56-EDT,1198;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 17:48-EDT
Received: from ASPEN.LCS.MIT.EDU by ZERMATT.LCS.MIT.EDU via CHAOS with CHAOS-MAIL id 72161; Fri 28-Aug-87 17:45:02 EDT
Date: Fri, 28 Aug 87 17:45 EDT
From: Robert Halstead <rhh@VX.LCS.MIT.EDU>
Subject: "bug" in read-from-string
To: Greenwald@STONY-BROOK.SCRC.Symbolics.COM,
    DLA@diamond.s4cc.symbolics.com
cc: rhh@VX.LCS.MIT.EDU, BUG-LISPM@ZERMATT.LCS.MIT.EDU
In-Reply-To: <870828133458.3.GREENWALD@THUNDERBIRD.S4CC.Symbolics.COM>
Message-ID: <870828174512.9.RHH@ASPEN.LCS.MIT.EDU>

The bug was in my lack of experience as a Lispm hacker:  it wasn't that
I didn't notice the &optional arguments;  it's just that I hadn't
internalized the notion that one needs to explicitly specify all
optional positional arguments before giving any keyword arguments.  I
guess, for whatever the opinion of a neophyte Lispm hacker is worth, it
seems like optional arguments and keyword arguments are a volatile
combination, and it would seem better to me for all optional arguments
to be keyworded if any are.  But I suppose that now I have learned the
lesson and will not have this problem again.		-Bert
28-Aug-87 19:46:01-EDT,1220;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 28 Aug 87 19:45-EDT
Received: from HADAMARD.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54912; Fri 28-Aug-87 19:43:01 EDT
Date: Fri, 28 Aug 87 19:42 EDT
From: Paul E. Oppenheimer <peo@OZ.AI.MIT.EDU>
Subject: Renaming of MAIL.TXT
To: BUG-ZMAIL@OZ.AI.MIT.EDU
Message-ID: <870828194243.6.PEO@HADAMARD.AI.MIT.EDU>

In Symbolics 3640 Zmail in Genera 7.1, Hacks 3.0, IP-TCP 52.16,
ILA-NFS 4.8, 7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4,
Pascal 25.10, Experimental X-Window-System 17.4,
Experimental Illustrate 11.4, TeX 1.0, LaTeX 1.0, SliTeX 1.0, YTeX 1.0,
microcode 3640-MIC 396, FEP 127, FEP0:>v127-lisp.flod(55),
FEP0:>v127-loaders.flod(55), FEP0:>v127-debug.flod(34),
FEP0:>v127-info.flod(55), Machine serial number 10049, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, on Lisp Machine Hadamard:

If there's no MAIL.TXT file, TWENEX throws your mail on the floor.
ZMAIL renames MAIL.TXT, so there's no MAIL.TXT file.
29-Aug-87 15:39:55-EDT,2243;000000000000
Received: from ZERMATT.LCS.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 29 Aug 87 15:39-EDT
Received: from Think.COM (THINK.COM) by ZERMATT.LCS.MIT.EDU via INTERNET with SMTP id 72343; 29 Aug 87 15:36:28 EDT
Return-Path: <barmar@Think.COM>
Received: from occam by Think.COM via CHAOS; Sat, 29 Aug 87 15:35:31 EDT
Date: Sat, 29 Aug 87 15:37 EDT
From: Barry Margolin <barmar@Think.COM>
Subject: "bug" in read-from-string
To: Robert Halstead <rhh@vx.lcs.mit.edu>
Cc: Greenwald@stony-brook.scrc.symbolics.com, DLA@diamond.s4cc.symbolics.com,
        BUG-LISPM@zermatt.lcs.mit.edu
In-Reply-To: <870828174512.9.RHH@ASPEN.LCS.MIT.EDU>
Message-Id: <870829153741.3.BARMAR@OCCAM.THINK.COM>

    Date: Fri, 28 Aug 87 17:45 EDT
    From: Robert Halstead <rhh@vx.lcs.mit.edu>

    The bug was in my lack of experience as a Lispm hacker:  it wasn't that
    I didn't notice the &optional arguments;  it's just that I hadn't
    internalized the notion that one needs to explicitly specify all
    optional positional arguments before giving any keyword arguments.  I
    guess, for whatever the opinion of a neophyte Lispm hacker is worth, it
    seems like optional arguments and keyword arguments are a volatile
    combination, and it would seem better to me for all optional arguments
    to be keyworded if any are.  But I suppose that now I have learned the
    lesson and will not have this problem again.		-Bert

Well, it isn't just Lispms that have that problem -- that's a Common
Lisp function.  The original Lispm READ-FROM-STRING (in the ZL package)
doesn't have keyword arguments; all its arguments are positional:

(STRING &OPTIONAL (EOF-OPTION 'SI:NO-EOF-OPTION) (START 0) END
		  (PRESERVE-WHITESPACE ZL:READ-PRESERVE-DELIMITERS))

It would have been nice if Common Lisp had allowed keyword parameters to
be given before giving all optional parameters; however, this would have
prevented optional parameters from being given keyword values.

I'm sure you're not the first Lispm/CL hacker to make this mistake (in
fact, I remember being confused by it myself...).  It's made more
confusing because &KEY and &REST arguments DO use the same arguments.

                                                barmar
29-Aug-87 17:09:02-EDT,7429;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 29 Aug 87 17:08-EDT
Received: from HADAMARD.AI.MIT.EDU (HADAMARD.AI.MIT.EDU) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 54955; 29 Aug 87 17:05:59 EDT
Date: Sat, 29 Aug 87 17:05 EDT
From: Philip Greenspun <philg@REAGAN.AI.MIT.EDU>
Subject: hardcopy again
To: Bug-LispM@OZ.AI.MIT.EDU
Message-ID: <870829170546.1.PHILG@HADAMARD.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 10049, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, on Lisp Machine Hadamard:

I just asked for the hardcopy menu from the system menu.  I didn't have
any intention of using Pravda.  Shouldn't I get this error after leaving
the menu?

1Error: Couldn't get hardcopy service for PRAVDA by any path:
         #<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25410265>:
             Request to PREP for a LGP Screen Hardcopy
AI|PRAVDA
philg
Philip Greenspun
2766258225



 connection was refused.
             Reason given was "printer queue is disabled"
0While in the function (:PROPERTY :NETWORK HCI::HARDCOPY-SPOOLER-STREAM-FUNCTION)  (FLAVOR:METHOD :HARDCOPY-DEVICE-STREAM HCI:PRINTER)  (FLAVOR:METHOD :MAKE-HARDCOPY-STREAM HCI:HARDCOPY-DEVICE-MIXIN)

The condition signalled was ZL:FERROR

1(:PROPERTY :NETWORK HCI::HARDCOPY-SPOOLER-STREAM-FUNCTION)0:  (P.C. = 250)
   Arg 0 (HCI:DEVICE): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (IGNORE): ((:SPOOL-VIA "NETWORK"))
   Arg 2 (HCI::REQUEST-OPTIONS): (:TITLE "Screen Hardcopy" :RECIPIENT "Philip Greenspun" :COPIES 1 :REQUESTOR-USER-ID "philg" :REQUESTOR-HOST "HADAMARD.AI.MIT.EDU" ...)
   Local 3: (#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25410265>)
   Local 4 (HCI::PATHS): (#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25410265>)
   Local 5 (HCI::PATH): #<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25410265>
   Local 6: NIL
   Local 7 (HCI::ERRORS): ((#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25410265> #<CHAOS-CONNECTION-REFUSED 25410344>))
   Local 8 (HCI::STREAM): NIL
   Local 9 (ERROR): "Couldn't get hardcopy service for ~A by any path:~@
~:{~&  ~S:~%      ~~A~~}"

1(FLAVOR:METHOD :HARDCOPY-DEVICE-STREAM HCI:PRINTER)0:  (P.C. = 47)
   Arg 0 (SELF): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor HCI:PRINTER 2421034>
   Arg 2 (FLAVOR::.GENERIC.): :HARDCOPY-DEVICE-STREAM
   Arg 3 (HCI::SPOOLER-OPTIONS): (:TITLE "Screen Hardcopy" :RECIPIENT "Philip Greenspun" :COPIES 1 :REQUESTOR-USER-ID "philg" :REQUESTOR-HOST "HADAMARD.AI.MIT.EDU" ...)

1(FLAVOR:METHOD :MAKE-HARDCOPY-STREAM HCI:HARDCOPY-DEVICE-MIXIN)0:  (P.C. = 42)
   Arg 0 (SELF): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (SYS:SELF-MAPPING-TABLE): HCI:HARDCOPY-DEVICE-MIXIN
   Arg 2 (FLAVOR::.GENERIC.): :MAKE-HARDCOPY-STREAM
   Arg 3 (HCI::OPTIONS): (:BITMAP-ONLY-P T :TITLE "Screen Hardcopy")

1HARDCOPY:MAKE-HARDCOPY-STREAM0:  (P.C. = 43)
   Arg 0 (HCI:DEVICE): #<LGP2-PRINTER PRAVDA 1101730>
   Rest arg (HCI::OPTIONS): (:BITMAP-ONLY-P T :TITLE "Screen Hardcopy")

1TV:KBD-HARDCOPY-SHEET0:  (P.C. = 64)
   Arg 0 (TV:SHEET): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>

1TV:WINDOW-EDITOR-HARDCOPY0:  (P.C. = 14)
   Arg 0 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Rest arg: (:CORNER :LOWER-LEFT)

1TV:SYSTEM-MENU-WINDOW-EDIT0:  (P.C. = 160)
   Arg 0 (FUNCTION): #<DTP-COMPILED-FUNCTION TV:WINDOW-EDITOR-HARDCOPY 147030234>
   Arg 1 (TV:OFFER-MENU): NIL
   Arg 2 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Arg 3 (TV:OLD-MOUSE-X): 292
   Arg 4 (TV:OLD-MOUSE-Y): 636

1TV:SYSTEM-MENU-HARDCOPY-WINDOW0:  (P.C. = 10)
   Arg 0 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Arg 1 (TV:OLD-MOUSE-X): 292
   Arg 2 (TV:OLD-MOUSE-Y): 636

1(FLAVOR:METHOD :EXECUTE-WINDOW-OP TV:WINDOW-HACKING-MENU-MIXIN)0:  (P.C. = 6)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:WINDOW-HACKING-MENU-MIXIN 204337300>
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE-WINDOW-OP
   Arg 3 (FUNCTION): TV:SYSTEM-MENU-HARDCOPY-WINDOW

1(FLAVOR:METHOD :EXECUTE TV:MENU-EXECUTE-MIXIN)0:  (P.C. = 100)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): TV:MENU-EXECUTE-MIXIN
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE
   Arg 3 (TV:ITEM): (NIL :WINDOW-OP TV:SYSTEM-MENU-HARDCOPY-WINDOW)

1(FLAVOR:COMBINED :EXECUTE TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU)0:  (P.C. = 27)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU 204337156>
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): ((NIL :WINDOW-OP TV:SYSTEM-MENU-HARDCOPY-WINDOW))

1(FLAVOR:METHOD :CHOOSE TV:BASIC-MENU)0:  (P.C. = 26)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:BASIC-MENU 204337306>
   Arg 2 (FLAVOR::.GENERIC.): :CHOOSE

1(FLAVOR:COMBINED :CHOOSE TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU)0:  (P.C. = 42)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU 204337156>
   Arg 2 (FLAVOR::.GENERIC.): :CHOOSE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1TV:CALL-SYSTEM-MENU0:  (P.C. = 42)
   Arg 0 (TV:SUPERIOR): #<MAIN-SCREEN Main Screen 1501336 exposed>

1SI:PROCESS-RUN-FUNCTION-INTERNAL0:  (P.C. = 43)
   Arg 0 (SI:RESTART-ON-RESET): NIL
   Arg 1 (FUNCTION): #<DTP-COMPILED-FUNCTION TV:CALL-SYSTEM-MENU 146670141>
   Rest arg (ZL:ARGS): (#<MAIN-SCREEN Main Screen 1501336 exposed>)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
2   --Defaulted args:--
0   Arg 0 (IGNORE): NIL

   Special DBG:*BOUND-HANDLERS*: NIL

29-Aug-87 17:15:58-EDT,7466;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 29 Aug 87 17:15-EDT
Received: from HADAMARD.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 54958; Sat 29-Aug-87 17:12:57 EDT
Date: Sat, 29 Aug 87 17:12 EDT
From: Philip Greenspun <philg@REAGAN.AI.MIT.EDU>
Subject: yet again
To: Bug-LispM@OZ.AI.MIT.EDU
Message-ID: <870829171256.2.PHILG@HADAMARD.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 10049, LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, on Lisp Machine Hadamard:

I typed RESUME at this and entered the name of a working printer
("le-monde"), it swallowed it, paged and networked for 15 seconds, then
returned from the background process and left me back in the lisp
listener.

1Error: Couldn't get hardcopy service for PRAVDA by any path:
         #<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25056364>:
             Request to PREP for a LGP Screen Hardcopy
AI|PRAVDA
philg
Philip Greenspun
2766258473



 connection was refused.
             Reason given was "printer queue is disabled"
0While in the function (:PROPERTY :NETWORK HCI::HARDCOPY-SPOOLER-STREAM-FUNCTION)  (FLAVOR:METHOD :HARDCOPY-DEVICE-STREAM HCI:PRINTER)  (FLAVOR:METHOD :MAKE-HARDCOPY-STREAM HCI:HARDCOPY-DEVICE-MIXIN)

The condition signalled was ZL:FERROR

1(:PROPERTY :NETWORK HCI::HARDCOPY-SPOOLER-STREAM-FUNCTION)0:  (P.C. = 250)
   Arg 0 (HCI:DEVICE): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (IGNORE): ((:SPOOL-VIA "NETWORK"))
   Arg 2 (HCI::REQUEST-OPTIONS): (:TITLE "Screen Hardcopy" :RECIPIENT "Philip Greenspun" :COPIES 1 :REQUESTOR-USER-ID "philg" :REQUESTOR-HOST "HADAMARD.AI.MIT.EDU" ...)
   Local 3: (#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25056364>)
   Local 4 (HCI::PATHS): (#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25056364>)
   Local 5 (HCI::PATH): #<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25056364>
   Local 6: NIL
   Local 7 (HCI::ERRORS): ((#<SERVICE-ACCESS-PATH HARDCOPY (LGP) -- PREP on CHAOS 25056364> #<CHAOS-CONNECTION-REFUSED 25056443>))
   Local 8 (HCI::STREAM): NIL
   Local 9 (ERROR): "Couldn't get hardcopy service for ~A by any path:~@
~:{~&  ~S:~%      ~~A~~}"

1(FLAVOR:METHOD :HARDCOPY-DEVICE-STREAM HCI:PRINTER)0:  (P.C. = 47)
   Arg 0 (SELF): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor HCI:PRINTER 2421034>
   Arg 2 (FLAVOR::.GENERIC.): :HARDCOPY-DEVICE-STREAM
   Arg 3 (HCI::SPOOLER-OPTIONS): (:TITLE "Screen Hardcopy" :RECIPIENT "Philip Greenspun" :COPIES 1 :REQUESTOR-USER-ID "philg" :REQUESTOR-HOST "HADAMARD.AI.MIT.EDU" ...)

1(FLAVOR:METHOD :MAKE-HARDCOPY-STREAM HCI:HARDCOPY-DEVICE-MIXIN)0:  (P.C. = 42)
   Arg 0 (SELF): #<LGP2-PRINTER PRAVDA 1101730>
   Arg 1 (SYS:SELF-MAPPING-TABLE): HCI:HARDCOPY-DEVICE-MIXIN
   Arg 2 (FLAVOR::.GENERIC.): :MAKE-HARDCOPY-STREAM
   Arg 3 (HCI::OPTIONS): (:BITMAP-ONLY-P T :TITLE "Screen Hardcopy")

1HARDCOPY:MAKE-HARDCOPY-STREAM0:  (P.C. = 43)
   Arg 0 (HCI:DEVICE): #<LGP2-PRINTER PRAVDA 1101730>
   Rest arg (HCI::OPTIONS): (:BITMAP-ONLY-P T :TITLE "Screen Hardcopy")

1TV:KBD-HARDCOPY-SHEET0:  (P.C. = 64)
   Arg 0 (TV:SHEET): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>

1TV:WINDOW-EDITOR-HARDCOPY0:  (P.C. = 14)
   Arg 0 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Rest arg: (:CORNER :LOWER-LEFT)

1TV:SYSTEM-MENU-WINDOW-EDIT0:  (P.C. = 160)
   Arg 0 (FUNCTION): #<DTP-COMPILED-FUNCTION TV:WINDOW-EDITOR-HARDCOPY 147030234>
   Arg 1 (TV:OFFER-MENU): NIL
   Arg 2 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Arg 3 (TV:OLD-MOUSE-X): 538
   Arg 4 (TV:OLD-MOUSE-Y): 515

1TV:SYSTEM-MENU-HARDCOPY-WINDOW0:  (P.C. = 10)
   Arg 0 (TV:WINDOW): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 deexposed>
   Arg 1 (TV:OLD-MOUSE-X): 538
   Arg 2 (TV:OLD-MOUSE-Y): 515

1(FLAVOR:METHOD :EXECUTE-WINDOW-OP TV:WINDOW-HACKING-MENU-MIXIN)0:  (P.C. = 6)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:WINDOW-HACKING-MENU-MIXIN 204337300>
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE-WINDOW-OP
   Arg 3 (FUNCTION): TV:SYSTEM-MENU-HARDCOPY-WINDOW

1(FLAVOR:METHOD :EXECUTE TV:MENU-EXECUTE-MIXIN)0:  (P.C. = 100)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): TV:MENU-EXECUTE-MIXIN
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE
   Arg 3 (TV:ITEM): (NIL :WINDOW-OP TV:SYSTEM-MENU-HARDCOPY-WINDOW)

1(FLAVOR:COMBINED :EXECUTE TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU)0:  (P.C. = 27)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU 204337156>
   Arg 2 (FLAVOR::.GENERIC.): :EXECUTE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): ((NIL :WINDOW-OP TV:SYSTEM-MENU-HARDCOPY-WINDOW))

1(FLAVOR:METHOD :CHOOSE TV:BASIC-MENU)0:  (P.C. = 26)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:BASIC-MENU 204337306>
   Arg 2 (FLAVOR::.GENERIC.): :CHOOSE

1(FLAVOR:COMBINED :CHOOSE TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU)0:  (P.C. = 42)
   Arg 0 (SELF): #<DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU Dynamic Multicolumn Momentary Window Hacking Process Renaming Menu 1 1502720 deactivated>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TV:DYNAMIC-MULTICOLUMN-MOMENTARY-WINDOW-HACKING-PROCESS-RENAMING-MENU 204337156>
   Arg 2 (FLAVOR::.GENERIC.): :CHOOSE
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): NIL

1TV:CALL-SYSTEM-MENU0:  (P.C. = 42)
   Arg 0 (TV:SUPERIOR): #<MAIN-SCREEN Main Screen 1501336 exposed>

1SI:PROCESS-RUN-FUNCTION-INTERNAL0:  (P.C. = 43)
   Arg 0 (SI:RESTART-ON-RESET): NIL
   Arg 1 (FUNCTION): #<DTP-COMPILED-FUNCTION TV:CALL-SYSTEM-MENU 146670141>
   Rest arg (ZL:ARGS): (#<MAIN-SCREEN Main Screen 1501336 exposed>)

1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)
2   --Defaulted args:--
0   Arg 0 (IGNORE): NIL

   Special DBG:*BOUND-HANDLERS*: NIL
30-Aug-87 15:10:14-EDT,2177;000000000000
Return-Path: <ALAN@AI.AI.MIT.EDU>
Received: from AI.AI.MIT.EDU by OZ.AI.MIT.EDU with Chaos/SMTP; Sun 30 Aug 87 15:09:45-EDT
Date: Sun, 30 Aug 87 15:13:23 EDT
From: Alan Bawden <ALAN@AI.AI.MIT.EDU>
Subject:  TMC redefines PROCLAIM
To: mincy@THINK.COM
cc: Bug-CM@OZ.AI.MIT.EDU, Bug-Lispm@OZ.AI.MIT.EDU
In-reply-to: Msg of Fri 28 Aug 87 13:57 EDT from Jeff Mincy <mincy at Think.COM>
Message-ID: <248337.870830.ALAN@AI.AI.MIT.EDU>

    Date: Fri, 28 Aug 87 13:57 EDT
    From: Jeff Mincy <mincy at Think.COM>
        Date: Thu, 27 Aug 87 21:50 EDT
        From: Alan Bawden <Alan at ai>
	No sooner had I sent that last bug report than I was shafted by the
	fact that PROCLAIM was redefined by *Lisp.  The following
	declaration

          (declare (zl:unspecial gcd))

	works correctly with the original declaration of PROCLAIM, but the
	version substituted by Thinking Machines apparently converts the
	ZL:UNSPECIAL into a type declaration.

    As a workaround do the following

    (proclaim '(declaration zl:unspecial))

This does -not- do what you think it does.  See below.

    followed by whatever you wanted to do with gcd

    (proclaim '(zl:unspecial gcd))

    --

    Also, The type declaration nonsense will go away at some point (next
    release).

    --

    Also, I dont think that the origional definition of proclaim does
    anything useful for zl:unspecial.  The origional definition puts the
    special property out on the plist, but the zl:unspecial proclamation
    doesnt remove the property.

Check again.  The ZL:UNSPECIAL declaration most certainly -does- undo the
effect of a SPECIAL declaration.  However if you actually do

  (proclaim '(declaration zl:unspecial))

as you advise above, you will redefine the ZL:UNSPECIAL declaration into
one that simply gives the symbol a ZL:UNSPECIAL property of T.  

(This is -your- code that I'm reading to find this out.  Go check out the
definition of *LISP-I::*LISP-PROCLAIM.  It's (almost) a complete
re-implementation of PROCLAIM.  It makes little allowance for the
possibility that Symbolics might -change- the way they implement PROCLAIM.)

30-Aug-87 18:01:28-EDT,2501;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 30 Aug 87 18:01-EDT
Received: from Think.COM (THINK.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 55021; 30 Aug 87 18:00:17 EDT
Return-Path: <mincy@Think.COM>
Received: from zeno by Think.COM via CHAOS; Sun, 30 Aug 87 17:59:11 EDT
Date: Sun, 30 Aug 87 18:03 EDT
From: Jeff Mincy <mincy@Think.COM>
Subject: TMC redefines PROCLAIM
To: ALAN@ai.ai.mit.edu, mincy@Think.COM
Cc: Bug-CM@oz.ai.mit.edu, Bug-Lispm@oz.ai.mit.edu
In-Reply-To: <248337.870830.ALAN@AI.AI.MIT.EDU>
Message-Id: <870830180306.1.MINCY@ZENO.THINK.COM>

    Date: Sun, 30 Aug 87 15:13:23 EDT
    From: Alan Bawden <ALAN@ai.ai.mit.edu>
	From: Jeff Mincy <mincy at Think.COM>
	      (declare (zl:unspecial gcd))

	As a workaround do the following
	(proclaim '(declaration zl:unspecial))

    This does -not- do what you think it does.  See below.

	followed by whatever you wanted to do with gcd

    Check again.  The ZL:UNSPECIAL declaration most certainly -does- undo the
    effect of a SPECIAL declaration.  However if you actually do

Symbolics proclaim (if you dont believe me you can try it for yourself
by doing (setf (symbol-function 'proclaim) *lisp-i::*old-proclaim-function*))
puts special out on the property list for proclaim special.  Proclaim zl:unspecial 
does not remove the property.  If the zl:unspecial declaration undoes the effect of 
a special declaration, then why is special still out on the plist?

      (proclaim '(declaration zl:unspecial))
    as you advise above, you will redefine the ZL:UNSPECIAL declaration into
    one that simply gives the symbol a ZL:UNSPECIAL property of T.  
That is the effect of the *lisp proclaim, not the effect of symbolics proclaim.
The symbolics proclaim doesnt do anything with zl:unspecial

    (This is -your- code that I'm reading to find this out.  Go check out the
    definition of *LISP-I::*LISP-PROCLAIM.  It's (almost) a complete
    re-implementation of PROCLAIM.  It makes little allowance for the
    possibility that Symbolics might -change- the way they implement PROCLAIM.)
I dont actually need to check the definition, as I wrote it.  It doesnt have to make 
allowance for symbolics -changing- the implementation of proclaim.  Since you read 
the code, you noticed the last line of *lisp proclaim calls the origional symbolics 
proclaim.  Symbolics can do anything they want with proclaim.

Just do a (remprop 'gcd 'special).

-jeff

30-Aug-87 18:35:44-EDT,2850;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 30 Aug 87 18:35-EDT
Received: from STONY-BROOK.SCRC.Symbolics.COM (STONY-BROOK.SCRC.Symbolics.COM) by REAGAN.AI.MIT.EDU via INTERNET with SMTP id 55025; 30 Aug 87 18:34:35 EDT
Received: from LETHE.SCRC.Symbolics.COM by STONY-BROOK.SCRC.Symbolics.COM via CHAOS with CHAOS-MAIL id 224013; Sun 30-Aug-87 14:01:42 EDT
Date: Sun, 30 Aug 87 14:01 EDT
From: John Watkins <jwatkins@STONY-BROOK.SCRC.Symbolics.COM>
Subject: SCT directory and file naming
To: HBR@OZ.AI.MIT.EDU
cc: BUG-LISPM@OZ.AI.MIT.EDU
In-Reply-To: <870722142331.1.HBR@CROSBY.AI.MIT.EDU>
Message-ID: <870830140159.7.JWATKINS@LETHE.SCRC.Symbolics.COM>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
Fonts: CPTFONT, CPTFONTCB

    Date: Wed, 22 Jul 87 14:23 EDT
    From: Howard B. Reubenstein <HBR@OZ.AI.MIT.EDU>

    In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.3,
    7-1-Patches 1.19, MAC 12.0, Color Demo 314.1, Color 329.6,
    Color Support 9.4, Images 308.4, Color Editor 311.3,
    Experimental X-Window-System 17.4, S-Paint 13.5, Tablet 2.3, Bsfonts 1.0,
    S-Render 20.5, S-Geometry 9.5, Live Window 315.3, S-Dynamics 9.9,
    Experimental Hbr 14, Experimental Pp 4, microcode 3640-MIC 396, FEP 127,
    FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
    FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
    Machine serial number 5230,
    Bug Report Recipient (from GRAPHICS:GLIB;REL-7;BUG-REPORT-RECIPIENT.LISP.1), on Lisp Machine Bing Crosby:

    I am trying to make a version of system HBR (patchable nil) on PIG.
    The system tools do not seem to understand the file and directory
    naming restrictions on pig when they write and read the associated 
    journal files.

    I also receive an error message that the system directory has changed
    name from ...system-directory to ...spd but this can be proceeded from
    with Resume (no action). 

    In this case the only viable proceed option would be to provide a different
    name, but I do not know how this new name could be found when I tried to 
    load in the system at a later date

    ---------------------

1    Error: "HBR-14" is an invalid name component for PYGMALION (a VMS host).
0    While in the function (FLAVOR:METHOD :VALIDATE-COMPONENT PATHNAME)  (FLAVOR:METHOD :VALIDATE PATHNAME)  (FLAVOR:METHOD :GET-PATHNAME FS:PATHNAME-HASH-TABLE-MIXIN)

Sorry if you've been waiting for Symbolics to help you. The pointer on
Bug-lispm@oz is to a mailing list at Symbolics that is not the one
tracked by support.  Consequently this was just forwarded
the other day.If you need answers from us quickly send
to customer-reports@symbolics.com.

If this is still a problem could you send the SCT definitions for the
system please? 

30-Aug-87 23:15:27-EDT,2596;000000000000
Return-Path: <ALAN@AI.AI.MIT.EDU>
Received: from AI.AI.MIT.EDU by OZ.AI.MIT.EDU with Chaos/SMTP; Sun 30 Aug 87 23:15:08-EDT
Date: Sun, 30 Aug 87 23:16:57 EDT
From: Alan Bawden <ALAN@AI.AI.MIT.EDU>
Subject:  TMC redefines PROCLAIM
To: mincy@THINK.COM, Customer-Reports@SCRC-STONY-BROOK.ARPA
cc: Bug-CM@OZ.AI.MIT.EDU, Bug-Lispm@OZ.AI.MIT.EDU
In-reply-to: Msg of Sun 30 Aug 87 18:03 EDT from Jeff Mincy <mincy at Think.COM>
Message-ID: <248438.870830.ALAN@AI.AI.MIT.EDU>

    Date: Sun, 30 Aug 87 18:03 EDT
    From: Jeff Mincy <mincy at Think.COM>
    Symbolics proclaim (if you dont believe me you can try it for yourself
    by doing (setf (symbol-function 'proclaim)
    *lisp-i::*old-proclaim-function*)) puts special out on the property
    list for proclaim special.  Proclaim zl:unspecial does not remove the
    property.  If the zl:unspecial declaration undoes the effect of a
    special declaration, then why is special still out on the plist?

$%&#$@%#$@!%^#&!!!

Due to a typo in the Symbolics sources, ZL:UNSPECIAL has been reduced to a
no-op in release 7.  Specifically the following definition:

(defun (:property unspecial proclaim) (names compile-time)
  (mapc (if compile-time #'compiler:unspecial-2 #'si:unspecial-1)
	names)
  nil)

-Should- read:

(defun (:property zl:unspecial proclaim) (names compile-time)
  (mapc (if compile-time #'compiler:unspecial-2 #'si:unspecial-1)
	names)
  nil)

OK?  Now the nice people at Symbolics will fix that problem, and then my
problem with Thinking Machines will remain:

    I dont actually need to check the definition, as I wrote it.  It doesnt
    have to make allowance for symbolics -changing- the implementation of
    proclaim.  Since you read the code, you noticed the last line of *lisp
    proclaim calls the origional symbolics proclaim.  Symbolics can do
    anything they want with proclaim.

Except add new kinds of proclamations without telling you.  The places that
call the Symbolics PROCLAIM are not reached unless the original
proclamation was -recognized- by your replacement PROCLAIM.

    Just do a (remprop 'gcd 'special).

Gee thanks.

I hope that the point has been made that TMC is better off keeping their
fingers out of places like this.  Don't think that just because we found
that a bug from Symbolics was involved you're off the hook.  Placing your
code -between- me and their bug is not a good idea.  Perhaps I wouldn't
even have noticed your code if it really had been transparent and bug-free,
but it wasn't, and so it compounded the problem.

31-Aug-87 10:07:53-EDT,18790;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 31 Aug 87 10:07-EDT
Received: from SINATRA.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 55072; Mon 31-Aug-87 10:06:36 EDT
Date: Mon, 31 Aug 87 10:06 EDT
From: Howard B. Reubenstein <HBR@OZ.AI.MIT.EDU>
Subject: SCT directory file naming
To: bug-lispm@OZ.AI.MIT.EDU
cc: hbr@OZ.AI.MIT.EDU
Message-ID: <870831100627.1.HBR@SINATRA.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (:BUFFER :DEFS NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (3 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTCB, CPTFONTI


     Date: Sun, 30 Aug 87 14:01 EDT
     From: John Watkins <jwatkins@STONY-BROOK.SCRC.Symbolics.COM>
     Subject: SCT directory and file naming
     To: HBR@OZ.AI.MIT.EDU
     cc: BUG-LISPM@OZ.AI.MIT.EDU
     In-Reply-To: <870722142331.1.HBR@CROSBY.AI.MIT.EDU>
     Message-ID: <870830140159.7.JWATKINS@LETHE.SCRC.Symbolics.COM>
     Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
     Fonts: CPTFONT, CPTFONTCB

         Date: Wed, 22 Jul 87 14:23 EDT
         From: Howard B. Reubenstein <HBR@OZ.AI.MIT.EDU>
 
         I am trying to make a version of system HBR (patchable nil) on PIG.
         The system tools do not seem to understand the file and directory
         naming restrictions on pig when they write and read the associated 
         journal files.

         I also receive an error message that the system directory has changed
         name from ...system-directory to ...spd but this can be proceeded from
         with Resume (no action). 

        In this case the only viable proceed option would be to provide a different
        name, but I do not know how this new name could be found when I tried to 
        load in the system at a later date

        1    Error: "HBR-14" is an invalid name component for PYGMALION (a VMS host).
        0    While in the function (FLAVOR:METHOD :VALIDATE-COMPONENT PATHNAME)  (FLAVOR:METHOD :VALIDATE PATHNAME) 
               (FLAVOR:METHOD :GET-PATHNAME FS:PATHNAME-HASH-TABLE-MIXIN)

     If this is still a problem could you send the SCT definitions for the
     system please? 

------------

;;; -*- Syntax: Common-lisp; Mode: LISP; Package: USER -*-

(Defsystem 1HBR
0    (:Default-Pathname "Raap: Hbr;"
     :Journal-Directory "Raap: Hbr;"
     :Patchable Nil)
  (:Serial
    "CAKE*: Env; Zweini"
    "CAKE*: Env; Style"
    "CAKE*: Env; Dribload"
    ))

When you make the system with ":Patchable nil" it numbers the component
directory files. The problem is that PYGMALION cannot accept dashes
in the filename.

(See about half way down for another error with naming the journal files:
 2Error: The system directory file of Hbr has been changed.
 0 2      It should be RAAP:HBR;HBR.SYSTEM-DIR.44, but is currently PIG:USRD$:[HBR]HBR.SPD;440)

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Color Demo 316.2, Color 331.9,
Color Support 11.8, Images 310.20, Color Editor 313.0,
Experimental X-Window-System 17.4, S-Paint 17.52, Tablet 3.4,
Bsfonts 2.3, S-Render 21.14, S-Geometry 10.25, Live Window 315.18,
S-Dynamics 9.43, Experimental Hbr 19, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 5230, LCMW-RELEASE-4-0, on Lisp Machine Bing Crosby:


2Error: "HBR-19" is an invalid name component for PYGMALION (a VMS host).
0While in the function (FLAVOR:METHOD :VALIDATE-COMPONENT PATHNAME)  (FLAVOR:METHOD :VALIDATE PATHNAME)  (FLAVOR:METHOD :GET-PATHNAME FS:PATHNAME-HASH-TABLE-MIXIN)

The condition signalled was FS:INVALID-PATHNAME-COMPONENT

2(FLAVOR:METHOD :VALIDATE-COMPONENT PATHNAME)0:  (P.C. = 41)  3(from SYS:PATCH;SYSTEM-349-212)
0   Arg 0 (SELF): #P"PIG:SYS$DISK:[HBR]FOO.CPD;0"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220020142>
   Arg 2 (FLAVOR::.GENERIC.): :VALIDATE-COMPONENT
   Arg 3 (FS:TEST-ARG): "HBR-19"
   Arg 4 (FS:TEST-ARG-LOC): #<DTP-LOCATIVE 314231774>
   Arg 5 (FS:VALID-MSG): :RAW-NAME
   Arg 6 (FS:TEST-MSG): :VALID-NAME-P
   Arg 7 (FS:CASE-MSG): :CASE-NAME
   Arg 8 (FS:UNCASE-MSG): :UNCASE-NAME
   Arg 9 (FS:COMPONENT): :NAME
   Arg 10 (FS:PRETTY-NAME): "name component"

2(FLAVOR:METHOD :VALIDATE PATHNAME)0:  (P.C. = 45)
   Arg 0 (SELF): #P"PIG:SYS$DISK:[HBR]FOO.CPD;0"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220020142>
   Arg 2 (FLAVOR::.GENERIC.): :VALIDATE

2(FLAVOR:METHOD :GET-PATHNAME FS:PATHNAME-HASH-TABLE-MIXIN)0:  (P.C. = 62)  3(from SYS:PATCH;SYSTEM-349-24)
0   Arg 0 (SELF): #<CASE-INSENSITIVE-PATHNAME-HASH-TABLE PYGMALION>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:PATHNAME-HASH-TABLE-MIXIN 250374440>
   Arg 2 (FLAVOR::.GENERIC.): :GET-PATHNAME
   Arg 3 (FS:DEV): "SYS$DISK"
   Arg 4 (FS:DIR): ("HBR")
   Arg 5 (FS:NAM): "HBR-19"
   Arg 6 (FS:TYP): "CPD"
   Arg 7 (FS:VRS): :NEWEST
   Arg 8 (FS:OTHERS): NIL
   Arg 9 (FS:KEY): ("SYS$DISK" ("HBR") "HBR-19" "CPD" :NEWEST)

2(FLAVOR:METHOD :GET-PATHNAME NET:PATHNAME-HOST-MIXIN)0:  (P.C. = 27)
   Arg 0 (SELF): #<VMS-HOST PYGMALION 1104125>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor NET:PATHNAME-HOST-MIXIN 250255514>
   Arg 2 (FLAVOR::.GENERIC.): :GET-PATHNAME
   Arg 3 (NETI:DEV): "SYS$DISK"
   Arg 4 (NETI:DIR): ("HBR")
   Arg 5 (NETI:NAM): "HBR-19"
   Arg 6 (NETI:TYP): "CPD"
   Arg 7 (NETI:VRS): :NEWEST
   Arg 8 (NETI:OTHERS): NIL

2FS:MAKE-PATHNAME-10:  (P.C. = 604)  3(from SYS:PATCH;SYSTEM-349-109)
0   Arg 0 (FS:ACTOR): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Rest arg (FS:OPTIONS): (:DEFAULT-HOST #<VMS-HOST PYGMALION 1104125> :DEFAULT-DEVICE "SYS$DISK" :DEFAULT-DIRECTORY ("HBR") :DEFAULT-NAME :WILD :DEFAULT-TYPE :WILD ...)

2(FLAVOR:METHOD :NEW-PATHNAME PATHNAME)0:  (P.C. = 22)
   Arg 0 (SELF): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220020142>
   Arg 2 (FLAVOR::.GENERIC.): :NEW-PATHNAME
   Rest arg (FS:OPTIONS): (:DEVICE "SYS$DISK" :DIRECTORY ("HBR") :NAME "HBR-19" :TYPE "CPD" :VERSION :NEWEST)

2(FLAVOR:COMBINED :NEW-PATHNAME PATHNAME)0:  (P.C. = 67)
   Arg 0 (SELF): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220020142>
   Arg 2 (FLAVOR::.GENERIC.): :NEW-PATHNAME
   Rest arg (FLAVOR::.DAEMON-CALLER-ARGS.): (:DEVICE "SYS$DISK" :DIRECTORY ("HBR") :NAME "HBR-19" :TYPE "CPD" :VERSION :NEWEST)

2(FLAVOR:METHOD :TRANSLATE-WILD-PATHNAME PATHNAME)0:  (P.C. = 76)
   Arg 0 (SELF): #P"RAAP:HBR;*.*.*"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220111517>
   Arg 2 (FLAVOR::.GENERIC.): :TRANSLATE-WILD-PATHNAME
   Arg 3 (FS:WILD-PATHNAME): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Arg 4 (FS:SOURCE-PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"

2(FLAVOR:METHOD :TRANSLATE-WILD-PATHNAME-REVERSIBLE PATHNAME)0:  (P.C. = 11)
   Arg 0 (SELF): #P"RAAP:HBR;*.*.*"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PATHNAME 220111517>
   Arg 2 (FLAVOR::.GENERIC.): :TRANSLATE-WILD-PATHNAME-REVERSIBLE
   Arg 3 (FS:WILD-PATHNAME): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Arg 4 (FS:SOURCE-PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"

2(:PROPERTY :TRANSLATE-WILD FS:TRANSLATION-FUNCTION)0:  (P.C. = 6)
   Arg 0 (IGNORE): NIL
   Arg 1 (PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"
   Arg 2 (FS:FROM): #P"RAAP:HBR;*.*.*"
   Arg 3 (FS:TO): #P"PIG:SYS$DISK:[HBR]*.*;*"

2(FLAVOR:METHOD :INVOKE-TRANSLATION FS:LOGICAL-HOST)0:  (P.C. = 36)
   Arg 0 (SELF): #<LOGICAL-HOST RAAP>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:LOGICAL-HOST 250414052>
   Arg 2 (FLAVOR::.GENERIC.): :INVOKE-TRANSLATION
   Arg 3 (PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"
   Arg 4 (FS:FROM-PATHNAME): #P"RAAP:HBR;*.*.*"
   Arg 5 (FS:TO-PATHNAME): #P"PIG:SYS$DISK:[HBR]*.*;*"
   Arg 6 (FS:TRANSLATION): (NIL NIL NIL :TRANSLATE-WILD NIL)

2(FLAVOR:METHOD :TRANSLATE FS:LOGICAL-HOST)0:  (P.C. = 504)
   Arg 0 (SELF): #<LOGICAL-HOST RAAP>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:LOGICAL-HOST 250414052>
   Arg 2 (FLAVOR::.GENERIC.): :TRANSLATE
   Arg 3 (PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"

2(FLAVOR:METHOD :TRANSLATED-PATHNAME FS:LOGICAL-PATHNAME)0:  (P.C. = 67)
   Arg 0 (SELF): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor FS:LOGICAL-PATHNAME 220111466>
   Arg 2 (FLAVOR::.GENERIC.): :TRANSLATED-PATHNAME

2FS:LOGICAL-PATHNAME-PASS-ON0:  (P.C. = 5)
   Arg 0 (SELF): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"
   Arg 1 (IGNORE): #<Map to flavor FS:LOGICAL-PATHNAME 220111466>
   Arg 2 (FS:MESSAGE): #<GENERIC-FUNCTION FS:PATHNAME-FILE-ACCESS-PATH 6716115>
   Rest arg (FS:REST): (:OPEN)

2OPEN0:  (P.C. = 520)
   Arg 0 (PATHNAME): #P"RAAP:HBR;HBR-19.COMPONENT-DIR.NEWEST"
   Rest arg (FS:ALL-ARGUMENTS): (:DIRECTION :PROBE :IF-DOES-NOT-EXIST :ERROR)

2SCT:READ-COMPONENT-DIRECTORY0:  (P.C. = 47)
   Arg 0 (SCT:SYSTEM): #<SYSTEM HBR 63431177>
   Arg 1 (SCT:MAJOR-VERSION): 19
   Arg 2 (SCT:NO-ERROR-P): T

2SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY-10:  (P.C. = 6)
   Arg 0 (SCT:SYSTEM): #<SYSTEM HBR 63431177>
   Arg 1 (SCT:VERSION-NUMBER): 19
   Arg 2 (SCT:COMPONENT-VERSIONS): ((19 (:|3600| (:COMPONENT-DIRECTORY #))) (18 (:|3600| (:COMPONENT-DIRECTORY #))) (17 (:|3600| (:COMPONENT-DIRECTORY #))) (16 (:|3600| (:COMPONENT-DIRECTORY #))) (15 (:|3600| (:COMPONENT-DIRECTORY #))) (14 (:|3600| (:COMPONENT-DIRECTORY #))) (13 (:|3600| (:COMPONENT-DIRECTORY #))) (12 (:|3600| (:COMPONENT-DIRECTORY #))) (11 (:|3600| (:COMPONENT-DIRECTORY #))) (10 (:|3600| (:COMPONENT-DIRECTORY #))) ...)
   Rest arg (SCT:KEYS): (:NO-LOAD NIL :NEVER-LOAD NIL :NO-COMPILE NIL)

2SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY0:  (P.C. = 134)
   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM HBR 63431177>
   Arg 1 (SCT:VERSION-DESIGNATOR): :LATEST
   Local 1 (SCT:VERSION-DESIGNATOR): 19
   Arg 2 (SCT:REAL-VERSION): NIL
   Rest arg: (:NO-LOAD NIL :NEVER-LOAD NIL :NO-COMPILE NIL)

2COMPILE-SYSTEM0:  (P.C. = 712)  3(from SYS:PATCH;SYSTEM-349-277)
0   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM HBR 63431177>
   Rest arg (SCT:KEYS): (:RECOMPILE NIL :RELOAD NIL :NO-LOAD NIL :NEVER-LOAD NIL :QUERY T ...)

2SI:COM-COMPILE-SYSTEM0:  (P.C. = 637)  3(from SYS:PATCH;SYSTEM-349-260)
0   Arg 0 (SI:SYSTEM-SPEC): #<SYSTEM HBR 63431177>
   Rest arg: (:NEW-MAJOR-VERSION NIL :QUERY :EVERYTHING :INCLUDE-COMPONENTS NIL)

2CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SI:COM-COMPILE-SYSTEM (QUOTE #<SYSTEM HBR 63431177>) (QUOTE :NEW-MAJOR-VERSION) (QUOTE NIL) (QUOTE :QUERY) (QUOTE :EVERYTHING) (QUOTE :INCLUDE-COMPONENTS) (QUOTE NIL))

2(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600160>
   Rest arg: NIL

2TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600123>

2(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600066>
   Rest arg: NIL

2SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

2SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

2SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

2SI:LISP-TOP-LEVEL-WARM0:  (P.C. = 10)

----------------------------------------------------------------------

In Symbolics 3640 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.21, MAC 12.2, Color Demo 316.2, Color 331.9,
Color Support 11.8, Images 310.20, Color Editor 313.0,
Experimental X-Window-System 17.4, S-Paint 17.52, Tablet 3.4,
Bsfonts 2.3, S-Render 21.14, S-Geometry 10.25, Live Window 315.18,
S-Dynamics 9.43, Experimental Hbr 19, microcode 3640-MIC 396, FEP 127,
FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55),
Machine serial number 5230, LCMW-RELEASE-4-0, on Lisp Machine Bing Crosby:

2Error: The system directory file of Hbr has been changed.
       It should be RAAP:HBR;HBR.SYSTEM-DIR.44, but is currently PIG:USRD$:[HBR]HBR.SPD;44
0While in the function SCT:WRITE-SYSTEM-DIRECTORY  SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY  COMPILE-SYSTEM

The condition signalled was DBG:PROCEEDABLE-FERROR

---------------------------------------------------

This error can be resumed from, but it is annoying since SCT should know
that it was forced to rename the system directory on this host.


2SCT:WRITE-SYSTEM-DIRECTORY0:  (P.C. = 76)
   Arg 0 (SCT:SYSTEM): #<SYSTEM HBR 304045665>
   Arg 1 (SCT:OLD-FILE): #P"RAAP:HBR;HBR.SYSTEM-DIR.44"
   Arg 2 (SCT:ATTRIBUTES): ("HBR" :LATEST 19)
   Arg 3 (SCT:COMPONENTS): ((19 (:|3600| (:COMPONENT-DIRECTORY #))) (18 (:|3600| (:COMPONENT-DIRECTORY #))) (17 (:|3600| (:COMPONENT-DIRECTORY #))) (16 (:|3600| (:COMPONENT-DIRECTORY #))) (15 (:|3600| (:COMPONENT-DIRECTORY #))) (14 (:|3600| (:COMPONENT-DIRECTORY #))) (13 (:|3600| (:COMPONENT-DIRECTORY #))) (12 (:|3600| (:COMPONENT-DIRECTORY #))) (11 (:|3600| (:COMPONENT-DIRECTORY #))) (10 (:|3600| (:COMPONENT-DIRECTORY #))) ...)
   Local 4: ("Retry writing system directory for ~A" #<SYSTEM HBR 304045665>)
   Local 5 (SCT:SYSTEM): #<SYSTEM HBR 304045665>
   Local 6 (SCT:SYS-DIR): #P"RAAP:HBR;HBR.SYSTEM-DIR.NEWEST"
   Local 7 (SCT:OFILE): #P"PIG:USRD$:[HBR]HBR.SPD;44"
   Local 8 (SCT:TRUENAME): NIL
   Local 9 (SCT:FILE-INFO): NIL
   Local 10: "Retry writing system directory for ~A"
   Local 11: #<SYSTEM HBR 304045665>
   Local 12: #<ERROR-RESTART-HANDLER 120032457>
   Local 13: #<DTP-LOCATIVE 3300734>
   Local 14: #<DTP-LOCATIVE 600541>
   Local 15: (#<ERROR-RESTART-HANDLER 120032457> #<DTP-LOCATIVE 3300734> #<DTP-LOCATIVE 600541>)
   Local 16: #<DTP-CLOSURE 600551>
   Local 17: (#<DTP-CLOSURE 600176>)
   Local 18 (SI:.NEW-RESTART-HANDLERS.): (#<DTP-CLOSURE 600551> #<DTP-CLOSURE 600176>)
   Local 19: #<DTP-LOCATIVE 600555>
   Local 20: #<DTP-EVEN-PC 145721345>
   Local 21: #<DTP-LOCATIVE 500120>
   Local 22: #<DTP-LOCATIVE 600463>
   Local 23: "The system directory file of ~A has been changed.~@
		    It should be ~A, but is currently ~A"
   Local 24: #<SYSTEM HBR 304045665>
   Local 25: #P"RAAP:HBR;HBR.SYSTEM-DIR.44"
   Special DBG:*RESTART-HANDLERS*: (#<DTP-CLOSURE 600551> #<DTP-CLOSURE 600176>)

2SCT:ADD-LOADED-SYSTEM-TO-DIRECTORY0:  (P.C. = 147)
   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM HBR 304045665>
   Arg 1 (SCT:VERSION-DESIGNATOR): :LATEST
   Local 1 (SCT:VERSION-DESIGNATOR): 19
   Arg 2 (SCT:REAL-VERSION): NIL
   Rest arg: (:NO-LOAD NIL :NEVER-LOAD NIL :NO-COMPILE NIL)

2COMPILE-SYSTEM0:  (P.C. = 712)  3(from SYS:PATCH;SYSTEM-349-277)
0   Arg 0 (SCT:SYSTEM-NAME): #<SYSTEM HBR 304045665>
   Rest arg (SCT:KEYS): (:RECOMPILE NIL :RELOAD NIL :NO-LOAD NIL :NEVER-LOAD NIL :QUERY T ...)

2SI:COM-COMPILE-SYSTEM0:  (P.C. = 637)  3(from SYS:PATCH;SYSTEM-349-260)
0   Arg 0 (SI:SYSTEM-SPEC): #<SYSTEM HBR 304045665>
   Rest arg: (:NEW-MAJOR-VERSION NIL :QUERY :EVERYTHING :INCLUDE-COMPONENTS NIL)

2CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SI:COM-COMPILE-SYSTEM (QUOTE #<SYSTEM HBR 304045665>) (QUOTE :NEW-MAJOR-VERSION) (QUOTE NIL) (QUOTE :QUERY) (QUOTE :EVERYTHING) (QUOTE :INCLUDE-COMPONENTS) (QUOTE NIL))

2(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600160>
   Rest arg: NIL

2TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600123>

2(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600066>
   Rest arg: NIL

2SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

2SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

2SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

2SI:LISP-TOP-LEVEL-WARM0:  (P.C. = 10)

   Special DBG:.RESTART.DESCRIPTION.: "unbound"
   Special SCT:*SYSTEM-DIRECTORY-BINDINGS*: ((ZL:BASE 10) (ZL:IBASE 10)
                                             (ZL:PACKAGE SI:PKG-USER-PACKAGE)
                                             (ZL:READTABLE SI:STANDARD-READTABLE))
31-Aug-87 10:11:20-EDT,10240;000000000000
Received: from REAGAN.AI.MIT.EDU by OZ.AI.MIT.EDU via Chaosnet; 31 Aug 87 10:11-EDT
Received: from WORKER-4.AI.MIT.EDU by REAGAN.AI.MIT.EDU via CHAOS with CHAOS-MAIL id 55074; Mon 31-Aug-87 10:10:04 EDT
Date: Mon, 31 Aug 87 10:09 EDT
From: Peter de Jong <DEJONG@OZ.AI.MIT.EDU>
Subject: Trying to use the CommonLib
To: Bug-LispM@OZ.AI.MIT.EDU
Message-ID: <870831100950.1.DEJONG@WORKER-4.AI.MIT.EDU>
Character-Type-Mappings: (1 0 (NIL 0) (NIL :BOLD NIL) "CPTFONTCB")
                         (2 0 (NIL 0) (NIL :ITALIC NIL) "CPTFONTI")
Fonts: CPTFONT, CPTFONTCB, CPTFONTI

In Symbolics 3600 Genera 7.1, Hacks 3.0, IP-TCP 52.16, ILA-NFS 4.8,
7-1-Patches 1.22, MAC 12.2, Conversion Tools 12.4, Pascal 25.10,
Experimental X-Window-System 17.4, Experimental Illustrate 11.4, TeX 1.0,
LaTeX 1.0, SliTeX 1.0, YTeX 1.0, Project Tanglewood 6.0,
Apiary: The Actor Computing System 14.6,
Acore: An Actor Core Language 10.5, The Common Library 8.0,
InterAct: The Meta-Circular Acore Interpreter 1.0,
Traveler: The Apiary Observatory 12.5, microcode 3600-IFU-MIC 396,
FEP 127, FEP0:>v127-lisp.flod(55), FEP0:>v127-loaders.flod(55),
FEP0:>v127-debug.flod(34), FEP0:>v127-info.flod(55), LCMW-RELEASE-4-0,
Patches for conversion tool. (from SYS:CONVERSION-TOOLS;PATCHES.LISP.29),
CM-CONFIGURATION, UTILITIES-F0404, FINGER-F0403, DEFS-F0403,
PARIS-SIMULATOR-F0403, STARLISP-F0404, STARLISP-COMMON-F0404,
STARLISP-COMPILER-F0404, Apiary World: 17 August 1987, on Lisp Machine Worker 4:



1Trap: The first argument given to the RPLACA instruction, #<DTP-COMPILED-FUNCTION NIL 262216135>, was not a locative, or a list.
0While in the function AC:INSTALL-EXPANDER  AC::INSTALL-TOP-LEVEL-EXPANDER

The condition signalled was DBG:WRONG-TYPE-ARGUMENT-TRAP

1AC:INSTALL-EXPANDER0:  (P.C. = 52)  2(from APIARY-FILESERVER:ACORE;EXPANSION)
0   Arg 0 (AC::IDENTIFIER): DEFEXPANDER
   Arg 1 (AC::EXPANDER-FUNCTION): #<DTP-COMPILED-FUNCTION NIL 262767156>
   Arg 2 (AC::ENV): ((:APPLICATION-EXPANDER . #<DTP-COMPILED-FUNCTION NIL 262215347>) (:IDENTIFIER-EXPANDER . #<DTP-COMPILED-FUNCTION NIL 262215356>) (TRAVELER:RECORD . #<DTP-COMPILED-FUNCTION NIL 262742732>) (TRAVELER::MAKE-REPLACE-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731770>) (TRAVELER::MAKE-UPDATE-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731715>) (TRAVELER::MAKE-COMPLAINT-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731640>) (TRAVELER::MAKE-REPLY-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731563>) (TRAVELER::MAKE-LISP-REQUEST-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731505>) (TRAVELER::MAKE-SYSTEM-REQUEST-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731427>) (TRAVELER::MAKE-REQUEST-RECORD . #<DTP-COMPILED-FUNCTION NIL 262731351>) ...)
   Arg 3 (AC:MACRO-ARGS): (AC::EXPANDER-NAME AC::ARGS &REST AC::BODY)
   Local 4: #<DTP-LOCATIVE 601117>
   Local 5: #<DTP-COMPILED-FUNCTION (:INTERNAL AC:INSTALL-EXPANDER 1) 262766414>
   Local 6 (AC::NEXT-FRAME-POSITION-MINUS-2): NIL
   Local 7 (AC::PREVIOUS-DEFINITION-POSITION): 90
   Local 8 (AC::ENTRY): (DEFEXPANDER . #<DTP-COMPILED-FUNCTION NIL 262216135>)

1AC::INSTALL-TOP-LEVEL-EXPANDER0:  (P.C. = 7)  2(from APIARY-FILESERVER:ACORE;EXPANSION)
0   Arg 0 (AC::IDENTIFIER): DEFEXPANDER
   Arg 1 (AC::EXPANDER-FUNCTION): #<DTP-COMPILED-FUNCTION NIL 262767156>
   Arg 2 (AC:MACRO-ARGS): (AC::EXPANDER-NAME AC::ARGS &REST AC::BODY)

1SI:LOAD-BIN-OP-FORM0:  (P.C. = 5)
   Arg 0 (SI:STREAM): #<NFILE-INPUT-WIDE-BINARY-STREAM "APIARY-FILESERVER:ACORE;EXPANSION.BIN.9" 27221273>

1SI:BIN-LOAD-NEXT-COMMAND0:  (P.C. = 41)
   Arg 0 (SI:STREAM): #<NFILE-INPUT-WIDE-BINARY-STREAM "APIARY-FILESERVER:ACORE;EXPANSION.BIN.9" 27221273>

1SI:BIN-LOAD-TOP-LEVEL0:  (P.C. = 6)
   Arg 0 (SI:STREAM): #<NFILE-INPUT-WIDE-BINARY-STREAM "APIARY-FILESERVER:ACORE;EXPANSION.BIN.9" 27221273>

1(FLAVOR:METHOD :LOAD-BINARY-FILE ZWEI:MAJOR-MODE :DEFAULT)0:  (P.C. = 4)
   Arg 0 (SELF): #<LISP-MODE 120551227>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor ZWEI:MAJOR-MODE 250454064>
   Arg 2 (FLAVOR::.GENERIC.): :LOAD-BINARY-FILE
   Arg 3 (IGNORE): #<DTP-LOCATIVE 354222460>
   Arg 4 (ZWEI:STREAM): #<NFILE-INPUT-WIDE-BINARY-STREAM "APIARY-FILESERVER:ACORE;EXPANSION.BIN.9" 27221273>

1SI:BIN-LOAD-FILE-INTERNAL0:  (P.C. = 165)  2(from SYS:PATCH;SYSTEM-349-231)
0   Arg 0 (SI:STREAM): #<NFILE-INPUT-WIDE-BINARY-STREAM "APIARY-FILESERVER:ACORE;EXPANSION.BIN.9" 27221273>
   Arg 1 (SI:INTO-PACKAGE): NIL
   Arg 2 (SI:NO-MSG-P): T

1SI:BIN-LOAD-FILE0:  (P.C. = 22)
   Arg 0 (SI:FILE): #P"APIARY-FILESERVER:ACORE;EXPANSION.BIN.9"
   Arg 1 (SI:INTO-PACKAGE): NIL
   Arg 2 (SI:NO-MSG-P): T

1(:INTERNAL (FLAVOR:METHOD :LOAD SCT:BIN-LOAD-MODULE) 0)0:  (P.C. = 17)
   Arg 0 (SCT:BIN): #P"APIARY-FILESERVER:ACORE;EXPANSION.BIN.9"
   Arg 1 (IGNORE): NIL
   Arg 2 (SCT:MODULE): #<LISP-MODULE EXPANSION 27166027>
   Rest arg (IGNORE): (:QUERY :NO-CONFIRM :SILENT T :BATCH NIL :NO-WARN NIL :RELOAD NIL ...)

1SCT:MAP-OVER-INPUTS-AND-OUTPUTS0:  (P.C. = 46)
   Arg 0 (FUNCTION): #<DTP-COMPILED-FUNCTION (:INTERNAL (FLAVOR:METHOD :LOAD SCT:BIN-LOAD-MODULE) 0) 145707144>
   Arg 1 (SCT:INPUTS): (#P"APIARY-FILESERVER:ACORE;EXPANSION.BIN.9")
   Arg 2 (SCT:OUTPUTS): NIL
   Arg 3 (SCT:MODULE): #<LISP-MODULE EXPANSION 27166027>
   Arg 4 (SCT:INCREMENTAL): T
   Rest arg (SCT:KEYS): (:QUERY :NO-CONFIRM :SILENT T :BATCH NIL :NO-WARN NIL :RELOAD NIL ...)

1(FLAVOR:METHOD SCT:EXECUTE-PLAN SCT:PLAN)0:  (P.C. = 113)
   Arg 0 (SELF): #<PLAN 27200204>
   Arg 1 (SYS:SELF-MAPPING-TABLE): #<Map to flavor SCT:PLAN 250163416>
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SCT:EXECUTE-PLAN 6723125>
   Arg 3 (FUNCTION): NIL
   Arg 4 (SCT:PLAN-STRING): "loading APIARY-FILESERVER:ACORE;EXPANSION.BIN.9"
   Arg 5 (SCT:INCREMENTAL): T
   Arg 6 (SCT:KEYS): (:QUERY :NO-CONFIRM :SILENT T :BATCH NIL :NO-WARN NIL :RELOAD NIL ...)

1SCT:CONSTRUCT-SYSTEM-INTERNAL0:  (P.C. = 464)  2(from SYS:PATCH;SYSTEM-349-187)
0   Arg 0 (SCT:SYSTEM-OP): :LOAD
   Rest arg (SCT:KEYS): (:ORIGINAL-SYSTEM-OP :LOAD :QUERY :NO-CONFIRM :SILENT T :BATCH NIL :NO-WARN NIL ...)
   Local 1 (SCT:KEYS): (:QUERY :NO-CONFIRM :SILENT T :BATCH NIL :NO-WARN NIL :RELOAD NIL ...)

1LOAD-SYSTEM0:  (P.C. = 456)  2(from SYS:PATCH;SYSTEM-349-277)
0   Arg 0 (SCT:SYSTEM-NAME): "Acore"
   Rest arg (SCT:KEYS): (:RELOAD NIL :QUERY :NO-CONFIRM :NO-WARN NIL :SILENT T :LOAD-PATCHES T ...)

1SI:COM-LOAD-SYSTEM0:  (P.C. = 450)  2(from SYS:PATCH;SYSTEM-349-260)
0   Arg 0 (SI:SYSTEM-SPEC): #<SYSTEM ACORE 321772136>
   Local 0 (SI:SYSTEM-SPEC): "Acore"
   Rest arg: (:SILENT T)

1CP::COMMAND-LOOP-EVAL-FUNCTION0:  (P.C. = 25)
   Arg 0 (CP::FORM): (SI:COM-LOAD-SYSTEM (QUOTE #<SYSTEM ACORE 321772136>) (QUOTE :SILENT) (QUOTE T))

1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 43)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 6704641>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY) 600160>
   Rest arg: NIL

1TV:WITH-NOTIFICATION-MODE-INTERNAL0:  (P.C. = 15)
   Arg 0 (TV:NEW-MODE): :BLAST
   Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
   Arg 2 (TV:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 600123>

1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL SI:PROCESS)0:  (P.C. = 40)
   Arg 0 (SELF): #<PROCESS Dynamic Lisp Listener 1 14711077>
   Arg 1 (SYS:SELF-MAPPING-TABLE): SI:PROCESS
   Arg 2 (FLAVOR::.GENERIC.): #<GENERIC-FUNCTION SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 6704631>
   Arg 3 (SI:CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 600066>
   Rest arg: NIL

1SI:LISP-COMMAND-LOOP-INTERNAL0:  (P.C. = 27)
   Arg 0 (SI:NAME): "Lisp Top Level"
   Arg 1 (SI:ABORT-FUNCTION): NIL
   Arg 2 (SI:READ-FUNCTION): NIL
   Arg 3 (SI:EVAL-FUNCTION): NIL
   Arg 4 (SI:PRINT-FUNCTION): NIL
   Arg 5 (SI:INITIAL-FORM): NIL
   Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)

1SI:LISP-COMMAND-LOOP0:  (P.C. = 120)
   Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>
   Rest arg: (:NAME "Lisp Top Level" :STANDARD-VALUE-BINDINGS (NIL))

1SI:LISP-TOP-LEVEL10:  (P.C. = 27)
   Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 1517331 exposed>

1SI:LISP-TOP-LEVEL-WARM0:  (P.C. = 10)

   Special AC::*TOP-LEVEL-MACRO-ENVIRONMENT*: ((:APPLICATION-EXPANDER
                                                . #<DTP-COMPILED-FUNCTION NIL 262215347>)
                                               (:IDENTIFIER-EXPANDER
                                                . #<DTP-COMPILED-FUNCTION NIL 262215356>)
                                               (TRAVELER:RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262742732>)
                                               (TRAVELER::MAKE-REPLACE-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731770>)
                                               (TRAVELER::MAKE-UPDATE-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731715>)
                                               (TRAVELER::MAKE-COMPLAINT-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731640>)
                                               (TRAVELER::MAKE-REPLY-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731563>)
                                               (TRAVELER::MAKE-LISP-REQUEST-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731505>)
                                               (TRAVELER::MAKE-SYSTEM-REQUEST-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731427>)
                                               (TRAVELER::MAKE-REQUEST-RECORD
                                                . #<DTP-COMPILED-FUNCTION NIL 262731351>) ...)
