[clisp-list] Re: new-clx builds bad encoding name

[Sam S. <sd...@gn...>]

> * Pascal J.Bourguignon <cwo@vasbezngvzntb.pbz> [2004-01-28 20:27:15 +0100]:
>
> Sam Steingold writes:
>> > * Pascal J.Bourguignon <cwo@vasbezngvzntb.pbz> [2004-01-23 22:04:02 +0100]:
>> >
>> > *** - SLOT-VALUE: The class #<BUILT-IN-CLASS T> has no slot named XLIB::FONT-INFO
>> >
>> > <13> #<GENERIC-FUNCTION SLOT-MISSING>
>> > <14> #<SYSTEM-FUNCTION SLOT-VALUE>
>> > <15> #<ADD-ON-SYSTEM-FUNCTION XLIB:TEXT-WIDTH>
>> 
>> please try the appended patch.
>
> With it, it goes further and stumble on a similar problem.
good.

> *** - SETF: The class #<BUILT-IN-CLASS CONS> has no slot named XLIB::PLIST
> <13> #<GENERIC-FUNCTION SLOT-MISSING>
> <14> #<SYSTEM-FUNCTION CLOS::SET-SLOT-VALUE>
> <15> #<ADD-ON-SYSTEM-FUNCTION XLIB::SET-WINDOW-PLIST>

please try the appended patch

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.honestreporting.com>
PI seconds is a nanocentury

--- clx.f.~2.13.~	2004-01-25 12:49:13.280040600 -0500
+++ clx.f	2004-01-29 09:51:00.008332200 -0500
@@ -1584,7 +1584,7 @@
 { /* the XLIB object and the new value are already on the stack */
   if (isa_instance_of_p (type, STACK_1)) {
     pushSTACK(`XLIB::PLIST`);                   /* the slot */
-    pushSTACK(STACK_1);                         /* new value */
+    pushSTACK(STACK_(1+1));                     /* new value */
     funcall (L(set_slot_value), 3);
     skipSTACK(1);
   } else my_type_error(type,STACK_0);