diff src/lread.c @ 673:6217fa6e2cab

*** empty log message ***

--- a/src/lread.c	Tue Jun 02 04:15:32 1992 +0000
+++ b/src/lread.c	Tue Jun 02 05:18:06 1992 +0000
@@ -513,21 +513,21 @@
   int count = specpdl_ptr - specpdl;
   Lisp_Object tem, buf;
 
-  if (NIL_P (bufname))
+  if (NILP (bufname))
     buf = Fcurrent_buffer ();
   else
     buf = Fget_buffer (bufname);
-  if (NIL_P (buf))
+  if (NILP (buf))
     error ("No such buffer.");
 
-  if (NIL_P (printflag))
+  if (NILP (printflag))
     tem = Qsymbolp;
   else
     tem = printflag;
   specbind (Qstandard_output, tem);
   record_unwind_protect (save_excursion_restore, save_excursion_save ());
   BUF_SET_PT (XBUFFER (buf), BUF_BEGV (XBUFFER (buf)));
-  readevalloop (buf, 0, Feval, !NIL_P (printflag));
+  readevalloop (buf, 0, Feval, !NILP (printflag));
   unbind_to (count);
 
   return Qnil;