[GitHub issue #5] Coerce the result of APPLY-PATCH to the type of the…

… input sequence.
agrostis · May 3, 2021 · c15ffab · c15ffab
1 parent c9cb073
commit c15ffab
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/patch.lisp b/patch.lisp
@@ -448,5 +448,6 @@
               (collect applicable :into applied)
               (finally
                 (return
-                  (values (narrow seq* pad-length (- pad-length))
+                  (values (coerce (narrow seq* pad-length (- pad-length))
+                                  (seq-type seq))
                           applied)))))))