 
 (defn stoptime ^DateTime [loaded-record]
   (:stoptime loaded-record))
+
+(defprotocol Serializable (serialize [this ^OutputStream output-stream]))
 
 (defprotocol Disposable (dispose [this]))
 

     :usertype (id->user-type (get-user-type unsafe address))
     }))



             @ret
             (recur (inc i) (+ offset object-size) ret)))))))

(defn serialize-bytes [^OutputStream ostream ^Unsafe unsafe address num-bytes]
  (let [ostream (DataOutputStream. ostream)]
    (.writeLong ostream num-bytes)
    (dotimes [i num-bytes]
      (.write ostream (.getByte unsafe (+ address i))))))


;; deftype - implement Indexed,Counted,
(deftype RecordCollection [^Unsafe unsafe address num-records]

