# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1054490580 0
# Node ID 0254c3b1ede8f5d2165a2c39b061301094b4bf7e
# Parent  f61b3dac769bbda23807f2e83f937a24708eb508
(openp): Make sure STR is a string.

diff -r f61b3dac769b -r 0254c3b1ede8 src/lread.c
--- a/src/lread.c	Sun Jun 01 17:36:41 2003 +0000
+++ b/src/lread.c	Sun Jun 01 18:03:00 2003 +0000
@@ -1054,6 +1054,8 @@
   Lisp_Object string, tail, encoded_fn;
   int max_suffix_len = 0;
 
+  CHECK_STRING (str);
+
   for (tail = suffixes; CONSP (tail); tail = XCDR (tail))
     {
       CHECK_STRING_CAR (tail);