Skip to content
Snippets Groups Projects
Commit b7718bac authored by wlott's avatar wlott
Browse files

Added debug_print, which prints a string in a terse manner.

%initial-function uses this.
parent b1bb63cb
No related branches found
No related tags found
No related merge requests found
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/test.c,v 1.3 1990/03/19 14:21:02 wlott Exp $ */
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/test.c,v 1.4 1990/05/24 17:46:28 wlott Exp $ */
/* Extra random routines for testing stuff. */
#include <signal.h>
......@@ -81,6 +81,7 @@ test_init()
install_handler(SIGINT, signal_handler);
install_handler(SIGQUIT, throw_to_top);
install_handler(SIGTRAP, signal_handler);
install_handler(SIGFPE, signal_handler);
}
......@@ -90,9 +91,10 @@ cacheflush()
}
lispobj print_three_nums(num1, num2, num3)
long num1, num2, num3;
lispobj debug_print(string)
lispobj string;
{
printf("%d\t%d\t%d\n", num1>>2, num2>>2, num3>>2);
printf("%s\n", ((struct vector *)PTR(string))->data);
return NIL;
}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment