Mercurial > emacs

diff src/bytecode.c @ 485:8c615e453683

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 13 Jan 1992 21:48:08 +0000
parents db84d8d9a1d9
children eca8812e61cd
line wrap: on
line diff
--- a/src/bytecode.c	Mon Jan 13 21:48:03 1992 +0000
+++ b/src/bytecode.c	Mon Jan 13 21:48:08 1992 +0000
@@ -450,7 +450,7 @@
 
 	case Bgotoifnil:
 	  op = FETCH2;
-	  if (NULL (POP))
+	  if (NILP (POP))
 	    {
 	      QUIT;
 	      pc = XSTRING (string_saved)->data + op;
@@ -459,7 +459,7 @@
 
 	case Bgotoifnonnil:
 	  op = FETCH2;
-	  if (!NULL (POP))
+	  if (!NILP (POP))
 	    {
 	      QUIT;
 	      pc = XSTRING (string_saved)->data + op;
@@ -468,7 +468,7 @@
 
 	case Bgotoifnilelsepop:
 	  op = FETCH2;
-	  if (NULL (TOP))
+	  if (NILP (TOP))
 	    {
 	      QUIT;
 	      pc = XSTRING (string_saved)->data + op;
@@ -478,7 +478,7 @@
 
 	case Bgotoifnonnilelsepop:
 	  op = FETCH2;
-	  if (!NULL (TOP))
+	  if (!NILP (TOP))
 	    {
 	      QUIT;
 	      pc = XSTRING (string_saved)->data + op;
@@ -492,7 +492,7 @@
 	  break;
 
 	case BRgotoifnil:
-	  if (NULL (POP))
+	  if (NILP (POP))
 	    {
 	      QUIT;
 	      pc += *pc - 128;
@@ -501,7 +501,7 @@
 	  break;
 
 	case BRgotoifnonnil:
-	  if (!NULL (POP))
+	  if (!NILP (POP))
 	    {
 	      QUIT;
 	      pc += *pc - 128;
@@ -511,7 +511,7 @@
 
 	case BRgotoifnilelsepop:
 	  op = *pc++;
-	  if (NULL (TOP))
+	  if (NILP (TOP))
 	    {
 	      QUIT;
 	      pc += op - 128;
@@ -521,7 +521,7 @@
 
 	case BRgotoifnonnilelsepop:
 	  op = *pc++;
-	  if (!NULL (TOP))
+	  if (!NILP (TOP))
 	    {
 	      QUIT;
 	      pc += op - 128;
@@ -598,7 +598,7 @@
 	    {
 	      if (CONSP (v1))
 		v1 = XCONS (v1)->cdr;
-	      else if (!NULL (v1))
+	      else if (!NILP (v1))
 		{
 		  immediate_quit = 0;
 		  v1 = wrong_type_argument (Qlistp, v1);
@@ -622,7 +622,7 @@
 	  break;
 
 	case Blistp:
-	  TOP = CONSP (TOP) || NULL (TOP) ? Qt : Qnil;
+	  TOP = CONSP (TOP) || NILP (TOP) ? Qt : Qnil;
 	  break;
 
 	case Beq:
@@ -636,21 +636,21 @@
 	  break;
 
 	case Bnot:
-	  TOP = NULL (TOP) ? Qt : Qnil;
+	  TOP = NILP (TOP) ? Qt : Qnil;
 	  break;
 
 	case Bcar:
 	  v1 = TOP;
 	docar:
 	  if (CONSP (v1)) TOP = XCONS (v1)->car;
-	  else if (NULL (v1)) TOP = Qnil;
+	  else if (NILP (v1)) TOP = Qnil;
 	  else Fcar (wrong_type_argument (Qlistp, v1));
 	  break;
 
 	case Bcdr:
 	  v1 = TOP;
 	  if (CONSP (v1)) TOP = XCONS (v1)->cdr;
-	  else if (NULL (v1)) TOP = Qnil;
+	  else if (NILP (v1)) TOP = Qnil;
 	  else Fcdr (wrong_type_argument (Qlistp, v1));
 	  break;