[Chicken-users] Patch for tagged pointers

[Jonah Beckford]

The new C_TAGGED_POINTER_TYPE does not have a representation as a
TinyCLOS metaobject.  Thanks Felix for adding that into CVS.

A patch follows ...
Jonah.

Index: tinyclos.scm
===================================================================
RCS file: /cvsroot/chicken/chicken/tinyclos.scm,v
retrieving revision 1.5
diff -c -r1.5 tinyclos.scm
*** tinyclos.scm        9 Oct 2002 20:07:14 -0000       1.5
--- tinyclos.scm        13 Feb 2003 05:17:24 -0000
***************
*** 518,523 ****
--- 518,525 ----
               <output-port>) )
          ((and (##core#inline "C_blockp" x) (##core#inline "C_pointerp"
x))
           <pointer>)
+         ((and (##core#inline "C_blockp" x) (##core#inline
"C_taggedpointerp" x
))
+          <tagged-pointer>)
          ((and (##core#inline "C_blockp" x) (##core#inline
"C_locativep" x))
           <locative>)
          ((##sys#bytevector? x) <byte-vector>)
***************
*** 1238,1243 ****
--- 1240,1246 ----
  (define <f32vector> (make-primitive-class "f32vector" <byte-vector>))
  (define <f64vector> (make-primitive-class "f64vector" <byte-vector>))
  (define <pointer> (make-primitive-class "pointer"))
+ (define <tagged-pointer> (make-primitive-class "tagged-pointer"))
  (define <locative> (make-primitive-class "locative"))
  
  (set! method-caching-enabled #t)