diff --git a/ldb/test.c b/ldb/test.c index e9c0381189a576e6e21a7790dfd10abeb116f574..4edb0590c541ef312e46008a701a40f2f43d389e 100644 --- a/ldb/test.c +++ b/ldb/test.c @@ -1,4 +1,4 @@ -/* $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; }