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

From: Pascal Bourguignon <[email-masked]>
Date: Tue Jan 13 09:38:01 2004

On Sunday, Jan 4, 2004, at 03:37 Europe/Madrid, Sam Steingold wrote:

> did you try the patch in
> <http://article.gmane.org/gmane.lisp.clisp.general:7820>?

I applied it but could not test it because I had other, unrelated, 
compiling problems (and the CVS was not available then).  Now I'm 
having difficulties with my Internet connection so I'm distracted from 
it.  I'll come back to you when I'll have it tested.

Thanks for your concern.
-- 
__Pascal Bourguignon__
http://www.informatimago.com/

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Thu Jan 22 18:50:16 2004

On Sunday, Jan 4, 2004, at 03:37 Europe/Madrid, Sam Steingold wrote:
> > * Pascal J.Bourguignon <[email-masked]> [2003-12-14 18:47:59 +0100]:
> >
> > *** - EXT:MAKE-ENCODING: illegal :CHARSET argument "ISO8859-1"
> > Indeeed, the exported symbol is ISO-8859-1.
>
> did you try the patch in

I've tried with 2.32, and it seems to work.

(Of course, now garnet stumbles  against other problems, but this step
is overcome).

Thanks,
-- 
__Pascal_Bourguignon__                     http://www.informatimago.com/
There is no worse tyranny than to force a man to pay for what he doesn't
want merely because you think it would be good for him.--Robert Heinlein
http://www.theadvocates.org/

---

From: Sam Steingold <[email-masked]>
Date: Fri Jan 23 06:37:02 2004

> * Pascal J.Bourguignon <[email-masked]> [2004-01-23 03:46:48 +0100]:
>
specifically?

> want merely because you think it would be good for him.--Robert Heinlein

Heinlein lived in a greenhouse.
killing him is a much worse tyranny.

-- 
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>
Someone has changed your life.  Save? (y/n)

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Tue Jan 27 18:21:26 2004

> > (Of course, now garnet stumbles against other problems, but this step

I think it's garnet specific:

[1]> (load "rundemos.lisp")
...
;;    Loading file /local/share/lisp/packages/net/sourceforge/garnet/debug/inspector.lisp ...
==> Garnet-Debug: hit F2 key for INSPECTOR on object under mouse
==> Garnet-Debug: hit CONTROL-F2 for INSPECTOR on next Interactor
==> Garnet-Debug: hit SHIFT-F2 to list obj under mouse

Object DEBUG-EDIT
Object PS-POP-AGG

*** - SLOT-VALUE: The class #<BUILT-IN-CLASS T> has no slot named XLIB::FONT-INFO

Same with:
[1]> (load "build.lisp")
...
;;    Loading file /local/share/lisp/packages/net/sourceforge/garnet/debug/inspector.lisp ...
==> Garnet-Debug: hit F2 key for INSPECTOR on object under mouse
==> Garnet-Debug: hit CONTROL-F2 for INSPECTOR on next Interactor
==> Garnet-Debug: hit SHIFT-F2 to list obj under mouse

Object DEBUG-EDIT
Object PS-POP-AGG

*** - SLOT-VALUE: The class #<BUILT-IN-CLASS T> has no slot named XLIB::FONT-INFO
Break 1 GD[2]> :bt

<1> #<SYSTEM-FUNCTION EXT:SHOW-STACK>
<2> #<COMPILED-CLOSURE SYSTEM::DEBUG-BACKTRACE>
<3> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT>
<4> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP-2-1>
<5> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS>
<6> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP-2>
<7> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<8> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP>
<9> #<SYSTEM-FUNCTION INVOKE-DEBUGGER>
<10> #<SYSTEM-FUNCTION SYSTEM::ERROR-OF-TYPE> 3
<11> #<COMPILED-CLOSURE #:|(DEFGENERIC SLOT-MISSING (CLASS INSTANCE SLOT-NAME ...) ...)-163-1-1|>
<12> #<GENERIC-FUNCTION SLOT-MISSING>
<13> #<GENERIC-FUNCTION SLOT-MISSING>
<14> #<SYSTEM-FUNCTION SLOT-VALUE>
<15> #<ADD-ON-SYSTEM-FUNCTION XLIB:TEXT-WIDTH>
APPLY frame for call (GEM::X-TEXT-WIDTH '#k<GEM::*ROOT-WINDOW*> '#k<DEFAULT-FONT> '"X")
EVAL frame for form (FUNCALL (AREF (KR::VALUE-FN GEM::ROOT-WINDOW :METHODS) 61) GEM::ROOT-WINDOW GEM::OPAL-FONT STRING)
<16> 
#<CLOSURE GEM::X-TEXT-WIDTH (GEM::ROOT-WINDOW GEM::OPAL-FONT STRING)
  (DECLARE (SYSTEM::IN-DEFUN GEM::X-TEXT-WIDTH) (IGNORE GEM::ROOT-WINDOW))
  (BLOCK GEM::X-TEXT-WIDTH (XLIB:TEXT-WIDTH (G-VALUE GEM::OPAL-FONT :XFONT) STRING))> 3
<17> #<SYSTEM-FUNCTION FUNCALL> 3
APPLY frame for call (GEM:TEXT-WIDTH '#k<GEM::*ROOT-WINDOW*> '#k<DEFAULT-FONT> '"X")
EVAL frame for form (GEM:TEXT-WIDTH (KR::GV-VALUE-FN OPAL::DEVICE-INFO :CURRENT-ROOT) KR::*SCHEMA-SELF* "X")
<18> 
#<CLOSURE GEM:TEXT-WIDTH (GEM::ROOT-WINDOW GEM::OPAL-FONT STRING)
  (DECLARE (SYSTEM::IN-DEFUN GEM:TEXT-WIDTH))
  (BLOCK GEM:TEXT-WIDTH
   (FUNCALL (AREF (G-VALUE GEM::ROOT-WINDOW :METHODS) 61) GEM::ROOT-WINDOW GEM::OPAL-FONT STRING))> 3
<19> #<SPECIAL-OPERATOR IF>
EVAL frame for form 
(IF (EQ (KR::GV-VALUE-FN KR::*SCHEMA-SELF* :FAMILY) :FIXED)
 (GEM:TEXT-WIDTH (KR::GV-VALUE-FN OPAL::DEVICE-INFO :CURRENT-ROOT) KR::*SCHEMA-SELF* "X"))
APPLY frame for call (:LAMBDA)
EVAL frame for form (FUNCALL (COERCE (KR::A-FORMULA-FUNCTION KR::*CURRENT-FORMULA*) 'FUNCTION))
...

It  happens while  getting  the :width  attribute  of the  dot-dot-dot
instance in gadgets/scrolling-input-string.lisp line 290:

Break 1 GD[2]> (create-instance 'small-font opal:font (:size :small)(:family :serif))

Object SMALL-FONT
#k<SMALL-FONT>
Break 1 GD[2]> (create-instance 'dot-dot-dot opal:text
  (:constant '(:font :string))
  (:font small-font)
  (:string "..."))

Object DOT-DOT-DOT
Warning - create-schema is destroying the old #k<DOT-DOT-DOT>.
#k<DOT-DOT-DOT>
Break 1 GD[2]> (defparameter dot-dot-width (g-value dot-dot-dot :width))

*** - SLOT-VALUE: The class #<BUILT-IN-CLASS T> has no slot named XLIB::FONT-INFO
Break 2 GD[4]> 

> killing him is a much worse tyranny.
Indeed.

---

From: Sam Steingold <[email-masked]>
Date: Wed Jan 28 14:51:32 2004

> * Pascal J.Bourguignon <[email-masked]> [2004-01-23 22:04:02 +0100]:
>

please try the appended patch.
thanks!

-- 
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>
I don't want to be young again, I just don't want to get any older.

--- clx.f.~2.13.~	2004-01-25 12:49:13.280040600 -0500
+++ clx.f	2004-01-28 09:57:32.452489800 -0500
@@ -996,7 +996,7 @@
 
   pushSTACK(obj);               /* save */
 
-  pushSTACK(STACK_1); pushSTACK(`XLIB::FONT-INFO`);
+  pushSTACK(obj); pushSTACK(`XLIB::FONT-INFO`);
   funcall(L(slot_value),2); /* (slot-value obj 'font-info) */
   value1 = check_fpointer(value1,false);
   info = TheFpointer(value1)->fp_pointer;

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Wed Jan 28 16:16:14 2004

> please try the appended patch.

With it, it goes further and stumble on a similar problem. (Tell me if
you need more details).

Loading #P"/local/share/lisp/packages/net/sourceforge/garnet/c32/c32-lapidary"
;;    Loading file /local/share/lisp/packages/net/sourceforge/garnet/c32/c32-lapidary.lisp ...
WARNING:
DEFUN/DEFMACRO: redefining function GET-REFERENCE-FOR in /usr/local/share/lisp/packages/net/sourceforge/garnet/c32/c32-lapidary.lisp, was defined in /usr/local/share/lisp/packages/net/sourceforge/garnet/c32/c32formula.lisp
Object DIRECT-REF-QUERY-GADGET

*** - SETF: The class #<BUILT-IN-CLASS CONS> has no slot named XLIB::PLIST
Break 1 C32[2]> :bt

<1> #<SYSTEM-FUNCTION EXT:SHOW-STACK>
<2> #<COMPILED-CLOSURE SYSTEM::DEBUG-BACKTRACE>
<3> #<SYSTEM-FUNCTION SYSTEM::READ-EVAL-PRINT>
<4> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP-2-1>
<5> #<SYSTEM-FUNCTION SYSTEM::SAME-ENV-AS>
<6> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP-2>
<7> #<SYSTEM-FUNCTION SYSTEM::DRIVER>
<8> #<COMPILED-CLOSURE SYSTEM::BREAK-LOOP>
<9> #<SYSTEM-FUNCTION INVOKE-DEBUGGER>
<10> #<SYSTEM-FUNCTION SYSTEM::ERROR-OF-TYPE> 3
<11> 
#<COMPILED-CLOSURE
  #:|(DEFGENERIC SLOT-MISSING (CLASS INSTANCE SLOT-NAME ...) ...)-163-1-1|>
<12> #<GENERIC-FUNCTION SLOT-MISSING>
<13> #<GENERIC-FUNCTION SLOT-MISSING>
<14> #<SYSTEM-FUNCTION CLOS::SET-SLOT-VALUE>
<15> #<ADD-ON-SYSTEM-FUNCTION XLIB::SET-WINDOW-PLIST>
<16> #<COMPILED-CLOSURE GEM::X-SET-DRAWABLE-TO-WINDOW>
<17> #<COMPILED-CLOSURE GEM:SET-DRAWABLE-TO-WINDOW>
<18> #<COMPILED-CLOSURE OPAL::CREATE-X-DRAWABLE>
<19> #<COMPILED-CLOSURE OPAL::INSTALL-DRAWABLE>
<20> #<COMPILED-CLOSURE OPAL::UPDATE-METHOD-WINDOW>
<21> #<COMPILED-CLOSURE INTERACTORS::UPDATE-METHOD-INTERACTOR-WINDOW>
<22> #<SYSTEM-FUNCTION FUNCALL> 1
EVAL frame for form 
(LET
 ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
  (KR::*KR-SEND-PARENT* NIL))
 (FUNCALL #:G59728 OPAL::THE-SCHEMA))
<23> #<SPECIAL-OPERATOR LET>
<24> #<SPECIAL-OPERATOR IF>
EVAL frame for form 
(IF #:G59728
 (LET
  ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
   (KR::*KR-SEND-PARENT* NIL))
  (FUNCALL #:G59728 OPAL::THE-SCHEMA)))
EVAL frame for form 
(LET* ((#:G59727 OPAL::THE-SCHEMA) (#:G59728 (KR::VALUE-FN #:G59727 :UPDATE)))
 (IF #:G59728
  (LET
   ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
    (KR::*KR-SEND-PARENT* NIL))
   (FUNCALL #:G59728 OPAL::THE-SCHEMA))))
<25> #<SPECIAL-OPERATOR LET*>
EVAL frame for form 
(LET ((OPAL::THE-SCHEMA GARNET-GADGETS::WINDOW))
 (LET* ((#:G59727 OPAL::THE-SCHEMA) (#:G59728 (KR::VALUE-FN #:G59727 :UPDATE)))
  (IF #:G59728
   (LET
    ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
     (KR::*KR-SEND-PARENT* NIL))
    (FUNCALL #:G59728 OPAL::THE-SCHEMA)))))
<26> #<SPECIAL-OPERATOR LET>
EVAL frame for form 
(LET
 ((GARNET-GADGETS::WINDOW
   (KR::DO-SCHEMA-BODY (KR::MAKE-A-NEW-SCHEMA NIL) INTERACTORS:INTERACTOR-WINDOW
    T T NIL NIL '(:VISIBLE)
    (CONS :PARENT (KR::VALUE-FN GARNET-GADGETS:ERROR-GADGET :PARENT-WINDOW))))
  (GARNET-GADGETS::AGGREGATE
   (KR::DO-SCHEMA-BODY (KR::MAKE-A-NEW-SCHEMA NIL) OPAL:AGGREGATE T T NIL NIL)))
 (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :AGGREGATE GARNET-GADGETS::AGGREGATE)
 (LET ((OPAL::THE-SCHEMA GARNET-GADGETS::WINDOW))
  (LET* ((#:G59727 OPAL::THE-SCHEMA) (#:G59728 (KR::VALUE-FN #:G59727 :UPDATE)))
   (IF #:G59728
    (LET
     ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
      (KR::*KR-SEND-PARENT* NIL))
     (FUNCALL #:G59728 OPAL::THE-SCHEMA)))))
 (LET ((OPAL::THE-SCHEMA GARNET-GADGETS::AGGREGATE))
  (LET*
   ((#:G59729 OPAL::THE-SCHEMA)
    (#:G59730 (KR::VALUE-FN #:G59729 :ADD-COMPONENT)))
   (IF #:G59730
    (LET
     ((KR::*KR-SEND-SELF* #:G59729) (KR::*KR-SEND-SLOT* :ADD-COMPONENT)
      (KR::*KR-SEND-PARENT* NIL))
     (FUNCALL #:G59730 OPAL::THE-SCHEMA GARNET-GADGETS:ERROR-GADGET)))))
 (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :ERROR-GADGET
  GARNET-GADGETS:ERROR-GADGET)
 (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :MODAL-P
  (KR::O-FORMULA-FN
   #'(LAMBDA NIL
      (DECLARE
       (SYSTEM::SOURCE
        (NIL (DECLARE (OPTIMIZE (SAFETY 1) (SPACE 0) (SPEED 3)))
         (GVL :ERROR-GADGET :MODAL-P))))
      (DECLARE (OPTIMIZE (SAFETY 1) (SPACE 0) (SPEED 3)))
      (KR::GV-CHAIN KR::*SCHEMA-SELF* '(:ERROR-GADGET :MODAL-P)))
   '(GVL :ERROR-GADGET :MODAL-P) NIL NIL)))
<27> #<SPECIAL-OPERATOR LET>
EVAL frame for form 
(PROGN
 (LOCALLY (DECLARE (OPTIMIZE (SPEED 3) (SPACE 0)))
  (LET
   ((KR::FIRST-C-P-M
     (AND (NULL KR::*KR-SEND-PARENT*)
      (LET
       ((#:G59726
         (VALUES
          (GETHASH KR::*KR-SEND-SLOT* (KR::SCHEMA-BINS KR::*KR-SEND-SELF*)))))
       (OR (NULL #:G59726) (LOGBITP 10 (KR::SL-BITS #:G59726)))))))
   (MULTIPLE-VALUE-BIND (METHOD KR::NEW-PARENT)
    (KR::FIND-PARENT KR::*KR-SEND-SELF* KR::*KR-SEND-SLOT*)
    (WHEN METHOD
     (IF KR::FIRST-C-P-M
      (MULTIPLE-VALUE-SETQ (METHOD KR::*KR-SEND-PARENT*)
       (KR::FIND-PARENT KR::NEW-PARENT KR::*KR-SEND-SLOT*))
      (SETQ KR::*KR-SEND-PARENT* KR::NEW-PARENT))
     (IF METHOD
      (LET ((KR::*KR-SEND-SELF* KR::*KR-SEND-PARENT*))
       (FUNCALL METHOD GARNET-GADGETS:ERROR-GADGET)))))))
 (LET
  ((GARNET-GADGETS::WINDOW
    (KR::DO-SCHEMA-BODY (KR::MAKE-A-NEW-SCHEMA NIL)
     INTERACTORS:INTERACTOR-WINDOW T T NIL NIL '(:VISIBLE)
     (CONS :PARENT (KR::VALUE-FN GARNET-GADGETS:ERROR-GADGET :PARENT-WINDOW))))
   (GARNET-GADGETS::AGGREGATE
    (KR::DO-SCHEMA-BODY (KR::MAKE-A-NEW-SCHEMA NIL) OPAL:AGGREGATE T T NIL
     NIL)))
  (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :AGGREGATE GARNET-GADGETS::AGGREGATE)
  (LET ((OPAL::THE-SCHEMA GARNET-GADGETS::WINDOW))
   (LET*
    ((#:G59727 OPAL::THE-SCHEMA) (#:G59728 (KR::VALUE-FN #:G59727 :UPDATE)))
    (IF #:G59728
     (LET
      ((KR::*KR-SEND-SELF* #:G59727) (KR::*KR-SEND-SLOT* :UPDATE)
       (KR::*KR-SEND-PARENT* NIL))
      (FUNCALL #:G59728 OPAL::THE-SCHEMA)))))
  (LET ((OPAL::THE-SCHEMA GARNET-GADGETS::AGGREGATE))
   (LET*
    ((#:G59729 OPAL::THE-SCHEMA)
     (#:G59730 (KR::VALUE-FN #:G59729 :ADD-COMPONENT)))
    (IF #:G59730
     (LET
      ((KR::*KR-SEND-SELF* #:G59729) (KR::*KR-SEND-SLOT* :ADD-COMPONENT)
       (KR::*KR-SEND-PARENT* NIL))
      (FUNCALL #:G59730 OPAL::THE-SCHEMA GARNET-GADGETS:ERROR-GADGET)))))
  (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :ERROR-GADGET
   GARNET-GADGETS:ERROR-GADGET)
  (KR::S-VALUE-FN GARNET-GADGETS::WINDOW :MODAL-P
   (KR::O-FORMULA-FN
    #'(LAMBDA NIL
       (DECLARE
        (SYSTEM::SOURCE
         (NIL (DECLARE (OPTIMIZE (SAFETY 1) (SPACE 0) (SPEED 3)))
          (GVL :ERROR-GADGET :MODAL-P))))
       (DECLARE (OPTIMIZE (SAFETY 1) (SPACE 0) (SPEED 3)))
       (KR::GV-CHAIN KR::*SCHEMA-SELF* '(:ERROR-GADGET :MODAL-P)))
    '(GVL :ERROR-GADGET :MODAL-P) NIL NIL))))
<28> #<SPECIAL-OPERATOR PROGN>
APPLY frame for call (GARNET-GADGETS::INITIALIZE-METHOD-ERROR-GADGET '#k<DIRECT-REF-QUERY-GADGET>)
EVAL frame for form 
(KR::DO-SCHEMA-BODY (KR::MAKE-A-NEW-SCHEMA 'DIRECT-REF-QUERY-GADGET)
 GARNET-GADGETS:QUERY-GADGET T T NIL NIL (CONS :BUTTON-NAMES '("YES" "NO"))
 (CONS :MODAL-P T))
<29> 
#<CLOSURE GARNET-GADGETS::INITIALIZE-METHOD-ERROR-GADGET
  (GARNET-GADGETS:ERROR-GADGET)
  (DECLARE (SYSTEM::IN-DEFUN GARNET-GADGETS::INITIALIZE-METHOD-ERROR-GADGET))
  (BLOCK GARNET-GADGETS::INITIALIZE-METHOD-ERROR-GADGET
   (CALL-PROTOTYPE-METHOD GARNET-GADGETS:ERROR-GADGET)
   (LET
    ((GARNET-GADGETS::WINDOW
      (CREATE-INSTANCE NIL INTERACTORS:INTERACTOR-WINDOW
       (:PARENT (G-VALUE GARNET-GADGETS:ERROR-GADGET :PARENT-WINDOW))
       (:VISIBLE NIL)))
     (GARNET-GADGETS::AGGREGATE (CREATE-INSTANCE NIL OPAL:AGGREGATE)))
    (S-VALUE GARNET-GADGETS::WINDOW :AGGREGATE GARNET-GADGETS::AGGREGATE)
    (OPAL:UPDATE GARNET-GADGETS::WINDOW)
    (OPAL:ADD-COMPONENT GARNET-GADGETS::AGGREGATE GARNET-GADGETS:ERROR-GADGET)
    (S-VALUE GARNET-GADGETS::WINDOW :ERROR-GADGET GARNET-GADGETS:ERROR-GADGET)
    (S-VALUE GARNET-GADGETS::WINDOW :MODAL-P
     (O-FORMULA (GVL :ERROR-GADGET :MODAL-P)))))> 1
<30> #<COMPILED-CLOSURE KR::KR-INIT-METHOD>
<31> #<COMPILED-CLOSURE KR::DO-SCHEMA-BODY>
EVAL frame for form 
(CREATE-SCHEMA 'DIRECT-REF-QUERY-GADGET :GENERATE-INSTANCE
 (:IS-A GARNET-GADGETS:QUERY-GADGET) (:MODAL-P T) (:BUTTON-NAMES '("YES" "NO")))
EVAL frame for form 
(CREATE-INSTANCE 'DIRECT-REF-QUERY-GADGET GARNET-GADGETS:QUERY-GADGET
 (:MODAL-P T) (:BUTTON-NAMES '("YES" "NO")))
EVAL frame for form (LOAD COMMON-LISP-USER::FINALNAME)
<32> #<SYSTEM-FUNCTION EVAL>
<33> #<COMPILED-CLOSURE LOAD>
EVAL frame for form 
(LET*
 ((COMMON-LISP-USER::HEAD
   (SUBSEQ COMMON-LISP-USER::FILENAME 0 COMMON-LISP-USER::POS))
  (COMMON-LISP-USER::TAIL
   (SUBSEQ COMMON-LISP-USER::FILENAME (1+ COMMON-LISP-USER::POS)))
  (COMMON-LISP-USER::PREFIX
   (OR
    (EVAL
     (CDR
      (ASSOC COMMON-LISP-USER::HEAD COMMON-LISP-USER::GARNET-LOAD-ALIST :TEST
       #'STRING=)))
    (ERROR "Bad prefix ~S~%" COMMON-LISP-USER::HEAD)))
  (COMMON-LISP-USER::FINALNAME
   (COMMON-LISP-USER::GARNET-PATHNAMES COMMON-LISP-USER::TAIL
    COMMON-LISP-USER::PREFIX)))
 (FORMAT T "Loading ~s~%" COMMON-LISP-USER::FINALNAME)
 (LOAD COMMON-LISP-USER::FINALNAME))
<34> #<SPECIAL-OPERATOR LET*>
<35> #<SPECIAL-OPERATOR IF>
EVAL frame for form 
(IF COMMON-LISP-USER::POS
 (LET*
  ((COMMON-LISP-USER::HEAD
    (SUBSEQ COMMON-LISP-USER::FILENAME 0 COMMON-LISP-USER::POS))
   (COMMON-LISP-USER::TAIL
    (SUBSEQ COMMON-LISP-USER::FILENAME (1+ COMMON-LISP-USER::POS)))
   (COMMON-LISP-USER::PREFIX
    (OR
     (EVAL
      (CDR
       (ASSOC COMMON-LISP-USER::HEAD COMMON-LISP-USER::GARNET-LOAD-ALIST :TEST
        #'STRING=)))
     (ERROR "Bad prefix ~S~%" COMMON-LISP-USER::HEAD)))
   (COMMON-LISP-USER::FINALNAME
    (COMMON-LISP-USER::GARNET-PATHNAMES COMMON-LISP-USER::TAIL
     COMMON-LISP-USER::PREFIX)))
  (FORMAT T "Loading ~s~%" COMMON-LISP-USER::FINALNAME)
  (LOAD COMMON-LISP-USER::FINALNAME))
 (PROGN (FORMAT T "NO COLON, Loading ~s~%" COMMON-LISP-USER::FILENAME)
  (LOAD COMMON-LISP-USER::FILENAME)))
EVAL frame for form 
(LET ((COMMON-LISP-USER::POS (POSITION #\: COMMON-LISP-USER::FILENAME)))
 (IF COMMON-LISP-USER::POS
  (LET*
   ((COMMON-LISP-USER::HEAD
     (SUBSEQ COMMON-LISP-USER::FILENAME 0 COMMON-LISP-USER::POS))
    (COMMON-LISP-USER::TAIL
     (SUBSEQ COMMON-LISP-USER::FILENAME (1+ COMMON-LISP-USER::POS)))
    (COMMON-LISP-USER::PREFIX
     (OR
      (EVAL
       (CDR
        (ASSOC COMMON-LISP-USER::HEAD COMMON-LISP-USER::GARNET-LOAD-ALIST :TEST
         #'STRING=)))
      (ERROR "Bad prefix ~S~%" COMMON-LISP-USER::HEAD)))
    (COMMON-LISP-USER::FINALNAME
     (COMMON-LISP-USER::GARNET-PATHNAMES COMMON-LISP-USER::TAIL
      COMMON-LISP-USER::PREFIX)))
   (FORMAT T "Loading ~s~%" COMMON-LISP-USER::FINALNAME)
   (LOAD COMMON-LISP-USER::FINALNAME))
  (PROGN (FORMAT T "NO COLON, Loading ~s~%" COMMON-LISP-USER::FILENAME)
   (LOAD COMMON-LISP-USER::FILENAME))))
<36> #<SPECIAL-OPERATOR LET>
APPLY frame for call (COMMON-LISP-USER::GARNET-LOAD '"c32:c32-lapidary")
EVAL frame for form 
(COMMON-LISP-USER::GARNET-LOAD
 (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
<37> 
#<CLOSURE COMMON-LISP-USER::GARNET-LOAD (COMMON-LISP-USER::FILENAME)
  (DECLARE (SYSTEM::IN-DEFUN COMMON-LISP-USER::GARNET-LOAD))
  (BLOCK COMMON-LISP-USER::GARNET-LOAD
   (LET ((COMMON-LISP-USER::POS (POSITION #\: COMMON-LISP-USER::FILENAME)))
    (IF COMMON-LISP-USER::POS
     (LET*
      ((COMMON-LISP-USER::HEAD
        (SUBSEQ COMMON-LISP-USER::FILENAME 0 COMMON-LISP-USER::POS))
       (COMMON-LISP-USER::TAIL
        (SUBSEQ COMMON-LISP-USER::FILENAME (1+ COMMON-LISP-USER::POS)))
       (COMMON-LISP-USER::PREFIX
        (OR
         (EVAL
          (CDR
           (ASSOC COMMON-LISP-USER::HEAD COMMON-LISP-USER::GARNET-LOAD-ALIST
            :TEST #'STRING=)))
         (ERROR "Bad prefix ~S~%" COMMON-LISP-USER::HEAD)))
       (COMMON-LISP-USER::FINALNAME
        (COMMON-LISP-USER::GARNET-PATHNAMES COMMON-LISP-USER::TAIL
         COMMON-LISP-USER::PREFIX)))
      (FORMAT T "Loading ~s~%" COMMON-LISP-USER::FINALNAME)
      (LOAD COMMON-LISP-USER::FINALNAME))
     (PROGN (FORMAT T "NO COLON, Loading ~s~%" COMMON-LISP-USER::FILENAME)
      (LOAD COMMON-LISP-USER::FILENAME)))))> 1
EVAL frame for form 
(TAGBODY #:G101312 (IF (ENDP #:G101311) (GO #:G101313))
 (SETQ COMMON-LISP-USER::FILE (CAR #:G101311))
 (COMMON-LISP-USER::GARNET-COMPILE
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
 (COMMON-LISP-USER::GARNET-LOAD
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
 (SETQ #:G101311 (CDR #:G101311)) (GO #:G101312) #:G101313
 (RETURN-FROM NIL (PROGN NIL)))
<38> #<SPECIAL-OPERATOR TAGBODY>
EVAL frame for form 
(LET* ((#:G101311 COMMON-LISP-USER::C32-FILES) (COMMON-LISP-USER::FILE NIL))
 (DECLARE (LIST #:G101311))
 (TAGBODY #:G101312 (IF (ENDP #:G101311) (GO #:G101313))
  (SETQ COMMON-LISP-USER::FILE (CAR #:G101311))
  (COMMON-LISP-USER::GARNET-COMPILE
   (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
  (COMMON-LISP-USER::GARNET-LOAD
   (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
  (SETQ #:G101311 (CDR #:G101311)) (GO #:G101312) #:G101313
  (RETURN-FROM NIL (PROGN NIL))))
<39> #<SPECIAL-OPERATOR LET*>
EVAL frame for form 
(BLOCK NIL
 (LET* ((#:G101311 COMMON-LISP-USER::C32-FILES) (COMMON-LISP-USER::FILE NIL))
  (DECLARE (LIST #:G101311))
  (TAGBODY #:G101312 (IF (ENDP #:G101311) (GO #:G101313))
   (SETQ COMMON-LISP-USER::FILE (CAR #:G101311))
   (COMMON-LISP-USER::GARNET-COMPILE
    (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
   (COMMON-LISP-USER::GARNET-LOAD
    (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
   (SETQ #:G101311 (CDR #:G101311)) (GO #:G101312) #:G101313
   (RETURN-FROM NIL (PROGN NIL)))))
<40> #<SPECIAL-OPERATOR BLOCK>
EVAL frame for form 
(DO*
 ((#:G101311 COMMON-LISP-USER::C32-FILES (CDR #:G101311))
  (COMMON-LISP-USER::FILE NIL))
 ((ENDP #:G101311) NIL) (DECLARE (LIST #:G101311))
 (SETQ COMMON-LISP-USER::FILE (CAR #:G101311))
 (COMMON-LISP-USER::GARNET-COMPILE
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
 (COMMON-LISP-USER::GARNET-LOAD
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE)))
EVAL frame for form 
(DOLIST (COMMON-LISP-USER::FILE COMMON-LISP-USER::C32-FILES)
 (COMMON-LISP-USER::GARNET-COMPILE
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE))
 (COMMON-LISP-USER::GARNET-LOAD
  (CONCATENATE 'STRING "c32:" COMMON-LISP-USER::FILE)))
EVAL frame for form (LOAD (MERGE-PATHNAMES "c32-compiler" COMMON-LISP-USER::GARNET-C32-SRC))
<41> #<SYSTEM-FUNCTION EVAL>
<42> #<COMPILED-CLOSURE LOAD>
EVAL frame for form 
(WHEN COMMON-LISP-USER::COMPILE-C32-P
 (FORMAT T "~%  %%%%%%%%%%%%%%  Compiling C32 %%%%%%%%%%%%%%% ~%")
 (LOAD (MERGE-PATHNAMES "c32-compiler" COMMON-LISP-USER::GARNET-C32-SRC)))
<43> #<SPECIAL-OPERATOR WHEN>
EVAL frame for form (LOAD "garnet-compiler.lisp")
<44> #<SYSTEM-FUNCTION EVAL>
<45> #<COMPILED-CLOSURE LOAD>
EVAL frame for form (LOAD "build.lisp")
<46> #<SYSTEM-FUNCTION EVAL>
<47> #<COMPILED-CLOSURE LOAD>
Printed 47 frames
Break 1 C32[2]>

---

From: Sam Steingold <[email-masked]>
Date: Fri Jan 30 19:30:50 2004

> * Pascal J.Bourguignon <[email-masked]> [2004-01-28 20:27:15 +0100]:
>
> Sam Steingold writes:
> With it, it goes further and stumble on a similar problem.
good.

> <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);

---

From: Sam Steingold <[email-masked]>
Date: Fri Jan 30 19:54:08 2004

> With it, it goes further and stumble on a similar problem. (Tell me if

I fixed the Garnet build (and demos) in the CVS.
Please check it out.
Thanks for reporting the bugs.

-- 
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>
Those who don't know lisp are destined to reinvent it, poorly.

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Sat Jan 31 21:57:03 2004

> +++ clx.f	2004-01-29 09:51:00.008332200 -0500

Now I get:

EVAL frame for form (LOAD "build")

$ diff --exclude CVS -NaurtBb orig/clisp-2.32/modules/clx/new-clx/clx.f clisp-2.32/modules/clx/new-clx/clx.f
--- orig/clisp-2.32/modules/clx/new-clx/clx.f	2003-11-01 00:52:04.000000000 +0100
+++ clisp-2.32/modules/clx/new-clx/clx.f	2004-01-31 09:13:18.000000000 +0100
@@ -1004,7 +1004,7 @@

 
   if (!(fpointerp (value1) && fp_validp (TheFpointer(value1)))) {
@@ -1065,12 +1065,16 @@
           status = XGetAtomNames (dpy, xatoms, 2, names); /* X11R6 */
 #        endif
           if (status) {
+            char* whole = alloca(strlen(names[0])+strlen(names[1])+3);
+            if (!strncasecmp(names[0],"iso",3) && names[0][3] != '-') {
+              strcpy(whole,"ISO-");
+              strcat(whole,names[0]+3);
+            } else strcpy(whole,names[0]);
+            strcat(whole,"-");
+            strcat(whole,names[1]);
             end_x_call();
-            pushSTACK(asciz_to_string (names[0], GLO(misc_encoding)));
-            pushSTACK(`"-"`);
-            pushSTACK(asciz_to_string (names[1], GLO(misc_encoding)));
-            value1 = string_concat(3);
-            pushSTACK(`:CHARSET`); pushSTACK(value1);
+            pushSTACK(`:CHARSET`);
+            pushSTACK(asciz_to_string(whole,GLO(misc_encoding)));
             pushSTACK(`:OUTPUT-ERROR-ACTION`);
             pushSTACK(fixnum(info->default_char));
             funcall(L(make_encoding), 4);
@@ -1078,8 +1082,8 @@
             pushSTACK(`XLIB::ENCODING`);
             pushSTACK(value1);
             funcall (L(set_slot_value), 3);
-          }
           begin_x_call();
+          }
           if (names[0])
             XFree (names[0]);
           if (names[1])
@@ -1592,7 +1596,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);

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Sat Jan 31 22:00:07 2004

> Thanks for reporting the bugs.

I've 'cvs update -A'ed  and I get this error with the syscalls modules
on Darwin:

calls.c:291: error: `BUFSIZ' undeclared (first use in this function)
calls.c:291: error: (Each undeclared identifier is reported only once
calls.c:291: error: for each function it appears in.)

On darwin, BUFSIZ is declared  in stdio.h, but it's included only when
DEBUG is defined. It should be included unconditionnally.

test -d syscalls || ./lndir ../modules/syscalls syscalls
if test -f syscalls/configure -a '!' -f syscalls/config.status ; then cd syscalls ; ./configure --cache-file=`echo syscalls/ | sed -e 's,[^/][^/]*//*,../,g'`config.cache ; fi
configure: loading cache ../config.cache
configure:  * System Calls (Tools)
checking for gcc... (cached) gcc
checking for C compiler default output file name... a.out
checking whether the C compiler works... yes
checking whether we are cross compiling... no
checking for suffix of executables... 
checking for suffix of object files... (cached) o
checking whether we are using the GNU C compiler... (cached) yes
checking whether gcc accepts -g... (cached) yes
checking for gcc option to accept ANSI C... (cached) none needed
checking how to run the C preprocessor... (cached) gcc -E
configure:  * System Calls (Headers)
checking for egrep... (cached) grep -E
checking for ANSI C header files... (cached) yes
checking whether time.h and sys/time.h may both be included... (cached) yes
checking for sys/types.h... (cached) yes
checking for sys/stat.h... (cached) yes
checking for stdlib.h... (cached) yes
checking for string.h... (cached) yes
checking for memory.h... (cached) yes
checking for strings.h... (cached) yes
checking for inttypes.h... (cached) yes
checking for stdint.h... (cached) yes
checking for unistd.h... (cached) yes
checking errno.h usability... yes
checking errno.h presence... yes
checking for errno.h... yes
checking fcntl.h usability... yes
checking fcntl.h presence... yes
checking for fcntl.h... yes
checking netdb.h usability... yes
checking netdb.h presence... yes
checking for netdb.h... yes
checking sys/resource.h usability... yes
checking sys/resource.h presence... yes
checking for sys/resource.h... yes
checking sys/utsname.h usability... yes
checking sys/utsname.h presence... yes
checking for sys/utsname.h... yes
checking pwd.h usability... yes
checking pwd.h presence... yes
checking for pwd.h... yes
checking for sys/stat.h... (cached) yes
checking sys/time.h usability... yes
checking sys/time.h presence... yes
checking for sys/time.h... yes
checking sys/unistd.h usability... yes
checking sys/unistd.h presence... yes
checking for sys/unistd.h... yes
checking time.h usability... yes
checking time.h presence... yes
checking for time.h... yes
checking for unistd.h... (cached) yes
checking shlobj.h usability... no
checking shlobj.h presence... no
checking for shlobj.h... no
checking sys/statvfs.h usability... no
checking sys/statvfs.h presence... no
checking for sys/statvfs.h... no
checking sys/statfs.h usability... no
checking sys/statfs.h presence... no
checking for sys/statfs.h... no
checking sys/vfs.h usability... no
checking sys/vfs.h presence... no
checking for sys/vfs.h... no
checking for sys/types.h... (cached) yes
configure:  * System Calls (Functions)
checking for clock... yes
checking for confstr... yes
checking for fcntl... yes
checking for gethostent... yes
checking for getrusage... yes
checking for getrlimit... yes
checking for sysconf... yes
checking for uname... yes
checking for getlogin... yes
checking for getpwent... yes
checking for getpwnam... yes
checking for getpwuid... yes
checking for getuid... yes
checking for fchmod... yes
checking for fchown... yes
checking for fstat... yes
checking for link... yes
checking for lstat... yes
checking for stat... yes
checking for symlink... yes
checking for utimes... yes
checking for erf... yes
checking for erfc... yes
checking for lgamma... yes
checking for lgamma_r... yes
checking for fstatvfs... no
checking for statvfs... no
checking whether signgam is declared... yes
configure:  * System Calls (output)
updating cache ../config.cache
configure: creating ./config.status
config.status: creating Makefile
config.status: creating link.sh
config.status: creating config.h
configure:  * System Calls (done)
CLISP="`pwd`/lisp.run -M `pwd`/lispinit.mem -B `pwd` -Efile UTF-8 -Eterminal UTF-8 -norc" ; cd syscalls ; dots=`echo syscalls/ | sed -e 's,[^/][^/]*//*,../,g'` ; make clisp-module CC="gcc" CFLAGS="-W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type  -Wno-sign-compare -O2 -DUNIX_BINARY_DISTRIB -DUNICODE -DNO_GETTEXT -DNO_SIGSEGV" INCLUDES="$dots" LISPBIBL_INCLUDES=" ${dots}lispbibl.c ${dots}fsubr.c ${dots}subr.c ${dots}pseudofun.c ${dots}constsym.c ${dots}constobj.c ${dots}unix.c ${dots}xthread.c ${dots}libcharset.h" CLFLAGS="-x none" LIBS="libcharset.a -lncurses   " RANLIB="ranlib" CLISP="$CLISP -q"
/usr/local/src/clisp/clisp-HEAD/src/lisp.run -M /usr/local/src/clisp/clisp-HEAD/src/lispinit.mem -B /usr/local/src/clisp/clisp-HEAD/src -Efile UTF-8 -Eterminal UTF-8 -norc -q ../modprep.fas calls.c
WARNING: locale: no encoding C, using UTF-8
;; MODPREP: "calls.c" --> #P"calls.m.c"
;; MODPREP: reading "calls.c": 51,959 bytes, 1,505 lines

;; MODPREP: 73 objects, 27 DEFUNs
;; packages: ("POSIX")
MODPREP: wrote #P"calls.m.c" (81,814 bytes)

Real time: 0.900096 sec.
Run time: 0.51 sec.
Space: 972668 Bytes
GC: 1, GC time: 0.04 sec.
gcc -W -Wswitch -Wcomment -Wpointer-arith -Wimplicit -Wreturn-type  -Wno-sign-compare -O2 -DUNIX_BINARY_DISTRIB -DUNICODE -DNO_GETTEXT -DNO_SIGSEGV -I../ -c calls.m.c -o calls.o
In file included from calls.c:49:
../clisp.h:101:1: warning: "PACKAGE_BUGREPORT" redefined
In file included from calls.c:7:
config.h:156:1: warning: this is the location of the previous definition
In file included from calls.c:49:
../clisp.h:102:1: warning: "PACKAGE_NAME" redefined
In file included from calls.c:7:
config.h:159:1: warning: this is the location of the previous definition
In file included from calls.c:49:
../clisp.h:103:1: warning: "PACKAGE_STRING" redefined
In file included from calls.c:7:
config.h:162:1: warning: this is the location of the previous definition
In file included from calls.c:49:
../clisp.h:104:1: warning: "PACKAGE_TARNAME" redefined
In file included from calls.c:7:
config.h:165:1: warning: this is the location of the previous definition
In file included from calls.c:49:
../clisp.h:105:1: warning: "PACKAGE_VERSION" redefined
In file included from calls.c:7:
config.h:168:1: warning: this is the location of the previous definition
calls.c: In function `C_subr_posix_lgamma':
calls.c:179: warning: implicit declaration of function `lgamma_r'
calls.c: In function `C_subr_posix_confstr':
calls.c:291: error: `BUFSIZ' undeclared (first use in this function)
calls.c:291: error: (Each undeclared identifier is reported only once
calls.c:291: error: for each function it appears in.)
make[1]: *** [calls.o] Error 1
make: *** [syscalls] Error 2

---

From: Pascal J.Bourguignon <[email-masked]>
Date: Sat Jan 31 23:50:03 2004

> Thanks for reporting the bugs.

When corrected the #include <stdio.h> to syscalls, cvs HEAD compiles
and runs correctly garnet on Darwin.

Thank you!