[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
PCL 4/21 on Symbolics Genera 7
- To: CommonLoops.pa@Xerox.COM
- Subject: PCL 4/21 on Symbolics Genera 7
- From: Rob Pettengill <rcp@MCC.COM>
- Date: Tue, 28 Apr 87 07:53:46 CDT
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)