<short summary of the patch>

TODO: Put a short summary on the line above and replace this paragraph
with a longer explanation of this change. Complete the meta-information
with other relevant fields (see below for details). To make it easier, the
information below has been extracted from the changelog. Adjust it or drop
it.

gcl (2.6.14-12) unstable; urgency=medium

  * Version_2_6_15pre11

Gbp-Pq: Name Version_2_6_15pre11

diff --git a/git.tag b/git.tag
index c6520047c7dbd8f4cfa3405e9cc464dc4328f8ed..ae57803d20ada797a9e31c54cfa9ab94395f808b 100644 (file)
--- a/git.tag
+++ b/git.tag
@@ -1 +1 @@
-"Version_2_6_15pre10"
+"Version_2_6_15pre11"

diff --git a/lsp/gcl_sharp.lsp b/lsp/gcl_sharp.lsp
index a6a2115f8ff4451300d1e50e265e5ae10a8e7ce3..1df4742de833a3dcf14b00142500dfe27d83cf94 100644 (file)
--- a/lsp/gcl_sharp.lsp
+++ b/lsp/gcl_sharp.lsp
@@ -51,7 +51,7 @@
       (aset1 x i (patch-sharp (row-major-aref x i)))))
    (structure
     (let ((d (structure-def x))) 
-      (dotimes (i (structure-length x) x)
+      (dotimes (i (structure-length d) x)
        (declare (fixnum i))
        (structure-set x d i (patch-sharp (structure-ref x d i))))))
    (spice (let* ((y (gethash1 x (context-spice *sharp-eq-context*)))