X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fcoerce.lisp;h=dc97323ab36962f26599e52283462f9327690ab7;hb=bee53328c93be3433477821131ab805557476c8b;hp=7b8a2fcc1b725001e9e43865e4dd46129668d758;hpb=2c6b90e36a7c0377cd79625eb6c94d580f98cb93;p=sbcl.git

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index 7b8a2fc..dc97323 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
@@ -128,6 +128,10 @@
   (etypecase object
     (list (list-to-bit-vector* object))
     (vector (vector-to-bit-vector* object))))
+(defun coerce-to-simple-vector (x)
+  (if (simple-vector-p x)
+      x
+      (replace (make-array (length x)) x)))
 (defun coerce-to-vector (object output-type-spec)
   (etypecase object
     (list (list-to-vector* object output-type-spec))