From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 18 Nov 1994 04:49:51 +0000 (+0000)
Subject: (Fvconcat, concat): Use Lisp_Vectorlike.
X-Git-Tag: emacs-19.34~5849
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e7383ebfa1b3b068b52ccd1b73e6872317d1c40;p=emacs.git

(Fvconcat, concat): Use Lisp_Vectorlike.
---

diff --git a/src/fns.c b/src/fns.c
index 7df032086a8..0ef7ed3c9e7 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -242,7 +242,7 @@ Each argument may be a list, vector or string.")
      int nargs;
      Lisp_Object *args;
 {
-  return concat (nargs, args, Lisp_Vector, 0);
+  return concat (nargs, args, Lisp_Vectorlike, 0);
 }
 
 DEFUN ("copy-sequence", Fcopy_sequence, Scopy_sequence, 1, 1, 0,
@@ -308,7 +308,7 @@ concat (nargs, args, target_type, last_special)
 
   if (target_type == Lisp_Cons)
     val = Fmake_list (len, Qnil);
-  else if (target_type == Lisp_Vector)
+  else if (target_type == Lisp_Vectorlike)
     val = Fmake_vector (len, Qnil);
   else
     val = Fmake_string (len, len);