[rucksack-cvs] CVS rucksack

[CVS User alemmens]

Update of /project/rucksack/cvsroot/rucksack
In directory common-lisp.net:/tmp/cvs-serv17138

Modified Files:
	rucksack.asd serialize.lisp 
Log Message:
Don't assume that non-simple strings always have fill-pointers when  serializing. Thanks to pixel at kepibu.org.

--- /project/rucksack/cvsroot/rucksack/rucksack.asd	2009/05/27 14:26:25	1.21
+++ /project/rucksack/cvsroot/rucksack/rucksack.asd	2011/06/20 17:22:14	1.22
@@ -1,9 +1,9 @@
-;;; $Id: rucksack.asd,v 1.21 2009/05/27 14:26:25 alemmens Exp $
+;;; $Id: rucksack.asd,v 1.22 2011/06/20 17:22:14 alemmens Exp $
 
 (in-package :cl-user)
 
 (asdf:defsystem :rucksack
-  :version "0.1.20"
+  :version "0.1.21"
   :serial t
   :components ((:file "queue")
                (:file "package")
--- /project/rucksack/cvsroot/rucksack/serialize.lisp	2007/01/22 10:23:14	1.10
+++ /project/rucksack/cvsroot/rucksack/serialize.lisp	2011/06/20 17:22:15	1.11
@@ -1,4 +1,4 @@
-;; $Id: serialize.lisp,v 1.10 2007/01/22 10:23:14 alemmens Exp $
+;; $Id: serialize.lisp,v 1.11 2011/06/20 17:22:15 alemmens Exp $
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Serialize
@@ -905,7 +905,9 @@
                               type)))))
         (serialize-marker type-marker stream))
       (unless simple-p
-        (serialize (fill-pointer string) stream)
+        (serialize (and (array-has-fill-pointer-p string)
+                        (fill-pointer string))
+                   stream)
         (serialize (adjustable-array-p string) stream))
       (serialize (length string) stream)
       (loop for char across string