Re: FW: [Gcl-devel] pcl/pcl_braid does not load after compilation on mingw32

[Camm Maguire]

Great Mike, this looks like progress!  Please rerun with this change
to pcl_braid.lisp:

=============================================================================
orig
=============================================================================
  (let* ((built-in-class (find-class 'built-in-class))
         (built-in-class-wrapper (class-wrapper built-in-class)))
    (dolist (e *built-in-classes*)
      (let ((class (allocate-standard-instance built-in-class-wrapper)))
        (setf (find-class (car e)) class))))
=============================================================================
new
=============================================================================
  (let* ((built-in-class (find-class 'built-in-class))
         (built-in-class-wrapper (class-wrapper built-in-class)))
        (format t "built-in-class ~S~%" built-in-class)
        (format t "built-in-class-wrapper ~S~%" built-in-class-wrapper)
        (format t "*built-in-classes ~S~%" *built-in-classes*)
    (dolist (e *built-in-classes*)
        (format t "e ~S~%" e)
      (let ((class (allocate-standard-instance built-in-class-wrapper)))
        (format t "class ~S~%" class)
        (format t "find-class ~S~%" (find-class (car e)))
        (setf (find-class (car e)) class)
        (format t "setf succeeds~%"))))
=============================================================================

Take care,

"Mike Thomas" <address@hidden> writes:

> I am forwarding this message as mentioned in:
> 
>   Re: [Gcl-devel] ANSI on Windows build failure.
> 
> Cheers
> 
> Mike Thomas.
> 
> ----- Original Message -----
> From: "Hans Oesterholt-Dijkema" 
> To: "'Mike Thomas'" 
> Sent: Wednesday, March 12, 2003 8:13 AM
> Subject: RE: [Gcl-devel] pcl/pcl_braid does not load after compilation on
> mingw32
> 
> 
> > Dear Mike,
> >
> > I've investigated into the 'braid' problem. But it's indeed very hard.
> > I've patched to C code of '%%allocate-instance--class', to printout
> > some info about allocating resources. It uses si:make-structure to do
> > this?
> >
> > After that, I patched the pcl_braid.lisp code to printout what it's
> > doing.
> > It seems to go wrong in the second stage of
> > 'bootstrap-built-in-classes'.
> > I don't understand the code. How should one compose the wrapper for
> > 'allocate-standard-instance'?
> >
> > I've patched in some code to see what happens if I get into the
> > Bootstrap process, but I don't get any further. This is new code for me
> > and it's not my primary language. I'm now stuck at the class-wrapper
> > defgeneric. It references pcl-class; and I can't find that one.
> >
> > I'm sending you some results and the patched files.
> >
> > RESULTS:
> > ***********************************
> >
> > Loading binary of PCL_PKG...
> > Loading binary of PCL_WALK...
> > Loading binary of PCL_ITERATE...
> > Loading binary of PCL_MACROS...
> > Loading binary of PCL_LOW...
> > Loading binary of PCL_GCL_LOW...
> > Loading binary of PCL_FIN...
> > Loading binary of PCL_DEFCLASS...
> > Loading binary of PCL_DEFS...
> > Loading binary of PCL_FNGEN...
> > Loading binary of PCL_CACHE...
> > Loading binary of PCL_DLISP...
> > Loading binary of PCL_DLISP2...
> > Loading binary of PCL_BOOT...
> > Loading binary of PCL_VECTOR...
> > Loading binary of PCL_SLOTS_BOOT...
> > Loading binary of PCL_COMBIN...
> > Loading binary of PCL_DFUN...
> > Loading binary of PCL_FAST_INIT...
> > Loading binary of PCL_BRAID...
> > make structure called for 1 time(s)
> > make structure called for 2 time(s)
> > make structure called for 3 time(s)
> > make structure called for 4 time(s)
> > make structure called for 5 time(s)
> > make structure called for 6 time(s)
> > make structure called for 7 time(s)
> > make structure called for 8 time(s)
> > make structure called for 9 time(s)
> > make structure called for 10 time(s)
> > make structure called for 11 time(s)
> > make structure called for 12 time(s)
> > (...)
> > make structure called for 497 time(s)
> > make structure called for 498 time(s)
> > make structure called for 499 time(s)
> > make structure called for 500 time(s)
> > make structure called for 501 time(s)
> > make structure called for 502 time(s)
> > Metabraid ok
> > Accessor definitions ok
> > Class predicates ok
> > Accessor definitions ok
> > Class predicates ok
> > (NUMBER (T) (COMPLEX FLOAT RATIONAL) (T))
> > (COMPLEX (NUMBER) NIL (NUMBER T) #C(1 1))
> > (FLOAT (NUMBER) NIL (NUMBER T) 1.0)
> > (RATIONAL (NUMBER) (INTEGER RATIO) (NUMBER T))
> > (INTEGER (RATIONAL) NIL (RATIONAL NUMBER T) 1)
> > (RATIO (RATIONAL) NIL (RATIONAL NUMBER T) 1/2)
> > (SEQUENCE (T) (LIST VECTOR) (T))
> > (LIST (SEQUENCE) (CONS NULL) (SEQUENCE T))
> > (CONS (LIST) NIL (LIST SEQUENCE T) (NIL))
> > (ARRAY (T) (VECTOR) (T) #2A((NIL)))
> > (VECTOR (ARRAY SEQUENCE) (STRING BIT-VECTOR) (ARRAY SEQUENCE T) #())
> > (STRING (VECTOR) NIL (VECTOR ARRAY SEQUENCE T) )
> > (BIT-VECTOR (VECTOR) NIL (VECTOR ARRAY SEQUENCE T) #*1)
> > (CHARACTER (T) NIL (T) c)
> > (SYMBOL (T) (NULL) (T) SYMBOL)
> > (NULL (SYMBOL LIST) NIL (SYMBOL LIST SEQUENCE T) NIL)
> > First stage of built in classes ok
> > bic: #<STANDARD-CLASS BUILT-IN-CLASS 2006570440>
> > bic: #<STANDARD-CLASS BUILT-IN-CLASS 2006570440> (copy of
> > built-in-class)
> > bic: #(101501981 108788885 26734317 97757861 40785213 111389237
> >        94262029 36937541 T
> >        (TYPE SOURCE PLIST NAME CLASS-EQ-SPECIALIZER DIRECT-SUPERCLASSES
> >              DIRECT-SUBCLASSES DIRECT-METHODS PREDICATE-NAME
> >              CLASS-PRECEDENCE-LIST CAN-PRECEDE-LIST
> >              INCOMPATIBLE-SUPERCLASS-LIST WRAPPER PROTOTYPE)
> >        NIL
> >        #<STANDARD-CLASS BUILT-IN-CLASS 2006570440> 14)
> >
> > Error: Caught fatal error [memory may be damaged]
> > Fast links are on: do (si::use-fast-links nil) for debugging
> > Error signalled by LOAD.
> > Broken at BOOTSTRAP-BUILT-IN-CLASSES.  Type :H for Help.
> > PCL>>patch -p0 <pcl_methods.patch
> > can't find file to patch at input line 3
> > Perhaps you used the wrong -p or --strip option?
> > The text leading up to this was:
> > --------------------------
> > |--- pcl_methods.c      Tue Feb 25 12:06:29 2003
> > |+++ pcl_methods.c.new  Wed Feb 26 13:07:22 2003
> > --------------------------
> > File to patch: make[1]: *** [pcl_boot.c] Interrupt
> > make: *** [unixport/saved_pcl_gcl] Interrupt
> >
> >
> >
> > -----Oorspronkelijk bericht-----
> > Van: Mike Thomas [mailto:address@hidden
> > Verzonden: zondag 9 maart 2003 12:05
> > Aan: address@hidden; address@hidden
> > Onderwerp: [Gcl-devel] pcl/pcl_braid does not load after compilation on
> > mingw32
> >
> > Hi there.
> >
> > Thanks for trying GCL.  The problem with "braid.lsp" is a known bug with
> > the
> > ANSI build of GCL.  The latest CVS source actually will build as the C,
> > H
> > and DATA files now exist in CVS.  The resulting build is sufficiently
> > workable to build Maxima, but crashes during the ANSI tests.
> >
> > I have been bashing my head on this bug on-and-off for months so any
> > help
> > will be appreciated.
> >
> > Cheers
> >
> > Mike Thomas.
> >
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah