From b1d65255d021886369e544caa1864aac6eec64cc Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Sun, 26 May 2013 09:37:59 -0700
Subject: [PATCH] Use BYTE-BASH-COPY in COPY-SEQ on strings.

Forgot to do this when we added BYTE-BASH-COPY for REPLACE.
---
 src/compiler/generic/vm-tran.lisp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/compiler/generic/vm-tran.lisp b/src/compiler/generic/vm-tran.lisp
index f8ecf243b..38947d24d 100644
--- a/src/compiler/generic/vm-tran.lisp
+++ b/src/compiler/generic/vm-tran.lisp
@@ -231,11 +231,11 @@
   '(let* ((len (length seq))
 	  (res (make-string len)))
      (declare (optimize (safety 0)))
-     (bit-bash-copy seq
-		    vector-data-byte-offset
-		    res
-		    vector-data-byte-offset
-		    (the vm::offset (* len vm:char-bytes)))
+     (byte-bash-copy seq
+		     vector-data-byte-offset
+		     res
+		     vector-data-byte-offset
+		     (the vm::offset (* len vm:char-bytes)))
      res))
 
 (deftransform replace ((string1 string2 &key (start1 0) (start2 0)
-- 
GitLab