[movitz-cvs] CVS movitz/losp/muerte

[ffjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv839

Modified Files:
	sequences.lisp 
Log Message:
Fix dynamic-extent bug in concatenate.


--- /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp	2008/03/15 20:58:17	1.38
+++ /project/movitz/cvsroot/movitz/losp/muerte/sequences.lisp	2008/03/21 22:17:06	1.39
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Tue Sep 11 14:19:23 2001
 ;;;;                
-;;;; $Id: sequences.lisp,v 1.38 2008/03/15 20:58:17 ffjeld Exp $
+;;;; $Id: sequences.lisp,v 1.39 2008/03/21 22:17:06 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1799,7 +1799,9 @@
 	(replace r s :start1 i)
 	(incf i (length s)))
       r))
-   (t (error "Can't concatenate ~S yet: ~:S" result-type sequences))))
+   (t (error "Can't concatenate ~S yet: ~:S"
+	     result-type
+	     (copy-list sequences))))) ; no more dynamic-extent.
 
 
 (defun substitute (newitem olditem sequence