[ sisc-Bugs-1353781 ] annotations not serialised in java ser

Bugs item #1353781, was opened at 2005-11-11 09:09
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1353781&group_id=23735

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Matthias Radestock (mradestock)
Assigned to: Nobody/Anonymous (nobody)
Summary: annotations not serialised in java ser

Initial Comment:
Java serialisation of sisc values sometimes fails to
serialise annotations. Here is an example:

(let ()
  (import* file-manipulation file-delete!)
  (import procedure-properties)
  (import s2j)
  (define-java-classes
    <java.io.file-output-stream>
    <java.io.object-output-stream>
    <java.io.file-input-stream>
    <java.io.object-input-stream>)
  (define-generic-java-methods
    write-object
    read-object
    flush
    close)
  (define ser-file "test.ser")
  (define (proc) #t)
  (set-procedure-property! proc 'foo 'bar)
  (dynamic-wind
   (lambda ()
     (let ([p (java-new <java.io.object-output-stream>
                        (java-new
<java.io.file-output-stream>
                                  (->jstring ser-file)))])
       (write-object p (java-wrap proc))
       (flush p)
       (close p)))
   (lambda ()
     (let ([p (java-new <java.io.object-input-stream>
                        (java-new
<java.io.file-input-stream>
                                  (->jstring ser-file)))])
       (define proc1 (java-unwrap (read-object p)))
       (close p)
       (eq? (procedure-property proc1 'foo) 'bar)))
   (lambda ()
     (file-delete! ser-file)))))


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=379534&aid=1353781&group_id=23735


-------------------------------------------------------
SF.Net email is sponsored by:
Tame your development challenges with Apache's Geronimo App Server. Download
it for free - -and be entered to win a 42" plasma tv or your very own
Sony(tm)PSP.  Click here to play: http://sourceforge.net/geronimo.php