[Openmcl-cvs-notifications] r10888 - /trunk/source/lisp-kernel/plbt.c

[gb at clozure.com]

Author: gb
Date: Fri Sep 26 09:57:47 2008
New Revision: 10888

Log:
Try to use new format-string constants.

Don't check for lisp_nil =3D 0, which is leftover from the MacsBug DCMD
days.

Modified:
    trunk/source/lisp-kernel/plbt.c

Modified: trunk/source/lisp-kernel/plbt.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/plbt.c (original)
+++ trunk/source/lisp-kernel/plbt.c Fri Sep 26 09:57:47 2008
@@ -295,9 +295,7 @@
 {
   area *cs_area;
   =

-  if (lisp_nil =3D=3D (LispObj) NULL) {
-    fprintf(stderr, "can't find lisp NIL; lisp process not active process =
?\n");
-  } else {
+{
     TCR *tcr =3D (TCR *)get_tcr(true);
     char *ilevel =3D interrupt_level_description(tcr);
     cs_area =3D tcr->cs_area;
@@ -309,7 +307,7 @@
       walk_stack_frames((lisp_frame *) ptr_from_lispobj(currentSP), (lisp_=
frame *) (cs_area->high));
       walk_other_areas();
     }
-  }
+  } =

 }
 =

   =