I hope this project is still running because I really liked it. If it is not active anymore, I could (maybe in a month) enhance and try to do at least what is in the file "todo" and create a way to serialize functions...
<br><br>I use SBCL under Gentoo Linux. Well, I use the gentoo specific version of SBCL, so, when you call <span style="font-family: courier new,monospace;">(lisp-implementation-version)</span>, it returns <span style="font-family: courier new,monospace;">
"1.0.9-gentoo"</span>. Inside the file <span style="font-family: courier new,monospace;">cl-store/sbcl/custom.lisp</span>, there is this piece of code:<br><br><pre>;; From <a href="http://0.9.6.25">0.9.6.25</a> sb-kernel::%defstruct
<br>;; takes a source location as a third argument.<br>(eval-when (:compile-toplevel)<br>  (labels ((make-version (string)<br>             (map-into (make-list 4 :initial-element 0)<br>                       #'parse-integer
<br>                       (asdf::split string nil '(#\.))))<br>           (version>= (v1 v2)<br>             (loop for x in (make-version v1)<br>                   for y in (make-version v2)<br>                   when (> x y) :do (return t)
<br>                   when (> y x) :do (return nil)<br>                   finally (return t))))<br>    (when (version>= (lisp-implementation-version)<br>                     "<a href="http://0.9.6.25">0.9.6.25
</a>")<br>      (pushnew :defstruct-has-source-location *features*))))</pre>So, the parse-integer signals an error (because of the "-gentoo" text inside the version). Well, I don't know if you like it but this solves the problem:
<br><br><pre>;; From <a href="http://0.9.6.25">0.9.6.25</a> sb-kernel::%defstruct<br>;; takes a source location as a third argument.<br>(eval-when (:compile-toplevel)<br>  (labels ((make-version (string)<br>             (map-into (make-list 4 :initial-element 0)
<br>                       #'(lambda (str)<br>                           (parse-integer str :junk-allowed t))<br>                       (asdf::split string nil '(#\.))))<br>           (version>= (v1 v2)<br>             (loop for x in (make-version v1)
<br>                   for y in (make-version v2)<br>                   when (> x y) :do (return t)<br>                   when (> y x) :do (return nil)<br>                   finally (return t))))<br>    (when (version>= (lisp-implementation-version)
<br>                     "<a href="http://0.9.6.25">0.9.6.25</a>")<br>      (pushnew :defstruct-has-source-location *features*))))<span style="font-family: arial,sans-serif;"><br><br></span></pre>