changeset 56358:97e94a98c666

(Fclear_string): Signal an error if STRING is not a string.
author John Paul Wallington <jpw@pobox.com>
date Tue, 06 Jul 2004 05:07:20 +0000
parents ca58dab79be1
children a6ce6b01d52d
files src/fns.c
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Tue Jul 06 01:38:58 2004 +0000
+++ b/src/fns.c	Tue Jul 06 05:07:20 2004 +0000
@@ -2370,6 +2370,7 @@
      (string)
      Lisp_Object string;
 {
+  CHECK_STRING (string);
   int len = SBYTES (string);
   bzero (SDATA (string), len);
   STRING_SET_CHARS (string, len);