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@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