# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1089090440 0
# Node ID 97e94a98c666c30c0dc563105c70af2c71443e24
# Parent  ca58dab79be1f1b9aa4c4df23f26e3861f29acea
(Fclear_string): Signal an error if STRING is not a string.

diff -r ca58dab79be1 -r 97e94a98c666 src/fns.c
--- 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);