[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Unable to deliver letter

Unable to deliver letter to the following recipient:
  CommonLoops.pa@Xerox.COM: After trying (without success) for 3 days to
contact
    the relevant domain servers needed to resolve the name Xerox.COM,
    the Mailer has concluded there is no such host.

----- Text of letter follows -----
Received: from SABIE.SW.MCC.COM by HAL.CAD.MCC.COM via CHAOS with
CHAOS-MAIL id 45129; Fri 24-Apr-87 18:21:28 CDT
Date: Fri, 24 Apr 87 18:20 CDT
From: Robert C. Pettengill <RCP@MCC.COM>
Subject: PCL 4/21 on Symbolics Genera 7
To: CommonLoops.pa@Xerox.COM
Message-ID: <870424182059.1.RCP@SABIE.SW.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 3650 Compiler in Genera 7.0G1, IP-TCP 52.0,
MCC Genera 7.0 Patches 4.11, MCC-Base 2.2, Experimental Rcp 18,
Experimental STP Deli CLOS Shell 2, Experimental Portable Common Loops
3,
Experimental X-Window-System 1.0, microcode 3650-MIC 394, 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 30301,
TCP-FTP Binary Loader Fix (from RCP:SYS;TCP-BINARY-LOADER-FIX.LISP.4),
on Sabielocks:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
I have found a couple of problems with the new defclass under genera 7.
When I
compile a file with defclass and defmethod forms (as opposed to
incrementally
compiling in the editor) - it seems that the class definitions are not
"seen"
in the compile time environment and I get errors like this one.  

Another Problem I have found is that while EXCL is happy with either
(:accessor-prefix nil) or (:accessor-prefix ||), Genera 7 will only
generate
accessors given the latter.  It takes (:accessor-prefix nil) happily but
then
doesn't generate accessors or setf methods for the slots.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

1Error: No class named: 2D-PLACEMENT.
0While in the function CLASS-NAMED  (PCL::METHOD
PCL::PARSE-TYPE-SPECIFIER (PCL::GENERIC-FUNCTION PCL::BASIC-METHOD)) 
(:INTERNAL (:INTERNAL #:G18344 0) 0)
While processing 
(DEFMETHOD TRANSLATION
           ((SELF 2D-PLACEMENT) &OPTIONAL OFFSET Y-OFFSET)
           "Return/Set the translation of the object with respect to its
parent's
   coordinate system.  
   Translation = Position-in-parent - Position-in-child
   ARGUMENTS:
   SELF is the object
   OFFSET is the new horzontal offset of the object's coordinate system
          or (TUPLE X-OFFSET Y-OFFSET)
   Y-OFFSET is the new vertical offset of the canvas coordinate system
   RETURNS:
   the translation as an object
   SIDE-EFFECTS:
   The coordinate transformation may be changed
  "
           (COND ((NULL OFFSET) (TUPLE # #))
                 ((TUPLE-P OFFSET)
                  (SETF # #
                        # #))
                 (T (SETF # OFFSET
                          # Y-OFFSET))))

The condition signalled was ZL:FERROR

1CLASS-NAMED0:  (P.C. = 15)  2(from PCL:SOURCE;MACROS)
0   Arg 0 (PCL::NAME): 2D-PLACEMENT
   Arg 1 (PCL::NO-ERROR-P): NIL

1(PCL::METHOD PCL::PARSE-TYPE-SPECIFIER (PCL::GENERIC-FUNCTION
PCL::BASIC-METHOD))0:  (P.C. = 14)
   Arg 0 (PCL::PROTO-GENERIC-FUNCTION): #<Standard-Generic-Function NIL
(:DAEMON) 124504440>
   Arg 1 (PCL::PROTO-METHOD): #<Method NIL () 63076551>
   Arg 2 (PCL::TYPE-SPECIFIER): 2D-PLACEMENT

1(:INTERNAL (:INTERNAL #:G18344 0) 0)0:  (P.C. = 256)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.):
(#<Standard-Generic-Function NIL (:DAEMON) 124506250>
#<DTP-COMPILED-FUNCTION (PCL::METHOD PCL::PARSE-TYPE-SPECIFIER
(PCL::GENERIC-FUNCTION PCL::BASIC-METHOD)) 244164654> NIL
#<Funcallable-Standard-Class PCL::GENERIC-FUNCTION 131316375> #<Class
PCL::BASIC-METHOD 131321050> NIL NIL NIL NIL NIL ...)
   Arg 1 (PCL::|Discriminating Function Arg 0|):
#<Standard-Generic-Function NIL (:DAEMON) 124504440>
   Arg 2 (PCL::|Discriminating Function Arg 1|): #<Method NIL ()
63076551>
   Arg 3 (PCL::|Discriminating Function Arg 2|): 2D-PLACEMENT

1(PCL::METHOD PCL::PARSE-TYPE-SPECIFIERS (PCL::GENERIC-FUNCTION
PCL::BASIC-METHOD))0:  (P.C. = 13)
   Arg 0 (PCL::PROTO-GENERIC-FUNCTION): #<Standard-Generic-Function NIL
(:DAEMON) 124504440>
   Arg 1 (PCL::PROTO-METHOD): #<Method NIL () 63076551>
   Arg 2 (PCL::TYPE-SPECIFIERS): (2D-PLACEMENT)

1(:INTERNAL (:INTERNAL #:G18344 0) 0)0:  (P.C. = 256)
   Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.):
(#<Standard-Generic-Function NIL (:DAEMON) 124506225>
#<DTP-COMPILED-FUNCTION (PCL::METHOD PCL::PARSE-TYPE-SPECIFIERS
(PCL::GENERIC-FUNCTION PCL::BASIC-METHOD)) 244164613> NIL
#<Funcallable-Standard-Class PCL::GENERIC-FUNCTION 131316375> #<Class
PCL::BASIC-METHOD 131321050> NIL NIL NIL NIL NIL ...)
   Arg 1 (PCL::|Discriminating Function Arg 0|):
#<Standard-Generic-Function NIL (:DAEMON) 124504440>
   Arg 2 (PCL::|Discriminating Function Arg 1|): #<Method NIL ()
63076551>
   Arg 3 (PCL::|Discriminating Function Arg 2|): (2D-PLACEMENT)

1PCL::REAL-COMPILE-METHOD-10:  (P.C. = 16)  2(from
PCL:SOURCE;METHODS)
0   Arg 0 (PCL::GENERIC-FUNCTION-NAME): TRANSLATION
   Arg 1 (PCL::METHOD-TYPE-SPECIFIERS): (2D-PLACEMENT)
   Arg 2 (PCL:METHOD-ARGLIST): (SELF &OPTIONAL OFFSET Y-OFFSET)
   Arg 3 (PCL::OPTIONS): NIL
   Arg 4 (DOCUMENTATION): (QUOTE "Return/Set the translation of the
object with respect to its parent's
   coordinate system.  
   Translation = Position-in-parent - Position-in-child
   ARGUMENTS:
   SELF is the object
   OFFSET is the new horzontal offset of the object's coordinate system
          or (TUPLE X-OFFSET Y-OFFSET)
   Y-OFFSET is the new vertical offset of the canvas coordinate system
   RETURNS:
   the translation as an object
   SIDE-EFFECTS:
   The coordinate transformation may be changed
  ")

1PCL::EXPAND-DEFMETHOD0:  (P.C. = 66)  2(from PCL:SOURCE;BOOT)
0   Arg 0 (PCL::NAME): TRANSLATION
   Arg 1 (PCL::QUALIFIERS): NIL
   Arg 2 (SCL:ARGLIST): ((SELF 2D-PLACEMENT) &OPTIONAL OFFSET Y-OFFSET)
   Arg 3 (PCL::BODY): ("Return/Set the translation of the object with
respect to its parent's
   coordinate system.  
   Translation = Position-in-parent - Position-in-child
   ARGUMENTS:
   SELF is the object
   OFFSET is the new horzontal offset of the object's coordinate system
          or (TUPLE X-OFFSET Y-OFFSET)
   Y-OFFSET is the new vertical offset of the canvas coordinate system
   RETURNS:
   the translation as an object
   SIDE-EFFECTS:
   The coordinate transformation may be changed
  " (COND ((NULL OFFSET) (TUPLE # #)) ((TUPLE-P OFFSET) (SETF # # # #))
(T (SETF # OFFSET # Y-OFFSET))))

1DEFMETHOD0:  (P.C. = 12)  2(from PCL:SOURCE;BOOT)
0   Arg 0 (SI:.FORM.): (DEFMETHOD TRANSLATION ((SELF 2D-PLACEMENT)
&OPTIONAL OFFSET Y-OFFSET) "Return/Set the translation of the object
with respect to its parent's
   coordinate system.  
   Translation = Position-in-parent - Position-in-child
   ARGUMENTS:
   SELF is the object
   OFFSET is the new horzontal offset of the object's coordinate system
          or (TUPLE X-OFFSET Y-OFFSET)
   Y-OFFSET is the new vertical offset of the canvas coordinate system
   RETURNS:
   the translation as an object
   SIDE-EFFECTS:
   The coordinate transformation may be changed
  " (COND ((NULL OFFSET) (TUPLE # #)) ((TUPLE-P OFFSET) (SETF # # # #))
(T (SETF # OFFSET # Y-OFFSET))))
   Arg 1 (SI:.ENV.): NIL

   Special PCL::*CLASS-NAME-HASH-TABLE*:
#<EQ-BLOCK-ARRAY-PROCESS-LOCKING-DUMMY-GC-LOCKING-ASSOCIATION-MUTATING-TABLE
131315332>

2Rest of stack:
1FUNCALL0:  (P.C. = 5)
1SI:MACROEXPAND-1-INTERNAL0:  (P.C. = 201)
1MACROEXPAND0:  (P.C. = 11)
1(:INTERNAL COMPILER:COMPILE-PROCESS-DEFAULT 1 (:MACRO-EXPAND))0:
(P.C. = 3)
1COMPILER:COMPILE-PROCESS-DEFAULT0:  (P.C. = 30)
1COMPILER:COMPILE-TO-FILE0:  (P.C. = 121)
1COMPILER:COMPILE-FROM-STREAM-10:  (P.C. = 53)
1COMPILER:PROCESS-FORMS-FROM-STREAM0:  (P.C. = 115)
1COMPILER:COMPILE-FROM-STREAM0:  (P.C. = 231)
1COMPILER:COMPILE-FILE0:  (P.C. = 233)
1ZWEI:COM-COMPILE-FILE0:  (P.C. = 57)
1ZWEI:COM-EXTENDED-COMMAND0:  (P.C. = 17)
1(:INTERNAL ZWEI:COMMAND-EXECUTE 0
SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY)0:  (P.C. = 17)
1(FLAVOR:METHOD SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL
SI:PROCESS)0:  (P.C. = 43)
1ZWEI:COMMAND-EXECUTE0:  (P.C. = 57)
1ZWEI:PROCESS-COMMAND-CHAR0:  (P.C. = 14)
1(FLAVOR:METHOD :EDIT ZWEI:EDITOR)0:  (P.C. = 316)
1(:INTERNAL (FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR) 1)0:
(P.C. = 20)
1(:INTERNAL (FLAVOR:WHOPPER :EDIT ZWEI:EDITOR) 0
SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)0:  (P.C. = 7)
1(FLAVOR:METHOD SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL
SI:PROCESS)0:  (P.C. = 40)
1(FLAVOR:WHOPPER :EDIT ZWEI:EDITOR)0:  (P.C. = 20)
1(FLAVOR:COMBINED :EDIT ZWEI:ZMACS-TOP-LEVEL-EDITOR)0:  (P.C. = 317)
1ZWEI:ZMACS-WINDOW-TOP-LEVEL0:  (P.C. = 55)2  (from
SYS:PATCH;SYSTEM-349-88)
1SI:PROCESS-TOP-LEVEL0:  (P.C. = 45)