* src/lread.c (init_lread): Fix int/Lisp_Object mixup.

Please use --enable-check-lisp-object-type.

diff --git a/src/ChangeLog b/src/ChangeLog
index bc3d3ba6f250aea1ada62a468111a7741aecb22e..e9454a783e995cbb33c786bf1db02a8bd382138e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2013-11-23  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * lread.c (init_lread): Fix int/Lisp_Object mixup.
+       Please use --enable-check-lisp-object-type.
+
 2013-11-23  Glenn Morris  <rgm@gnu.org>
 
        * process.c (get_process): Explicit error for dead buffers.

diff --git a/src/lread.c b/src/lread.c
index 17ca02d36c71a7fd7d245bf305f32c8ecf5c8939..eaf1f818c43998d2e811808c6224ee9bb1a2b9c5 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -4341,7 +4341,7 @@ init_lread (void)
       load_path_check (Vload_path);
 
       /* Replace any nil elements from the environment with the default.  */
-      if (Fmemq (Qnil, Vload_path))
+      if (!NILP (Fmemq (Qnil, Vload_path)))
         {
           Lisp_Object lpath = Vload_path;
           Lisp_Object elem, default_lpath = load_path_default (1);