Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv32607/tests
Modified Files:
Tag: resistance-is-futex
threads.impure.lisp
Log Message:
0.8.5.37.resistance-is-futex.2
Random documentation/commentary fixes
Index: threads.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/threads.impure.lisp,v
retrieving revision 1.7.2.1
retrieving revision 1.7.2.2
diff -u -d -r1.7.2.1 -r1.7.2.2
--- threads.impure.lisp 23 Nov 2003 19:41:49 -0000 1.7.2.1
+++ threads.impure.lisp 23 Nov 2003 22:13:52 -0000 1.7.2.2
@@ -172,6 +172,19 @@
(sleep 1)))
(format t "~&gc test done~%")
+#| ;; a cll post from eric marsden
+| (defun crash ()
+| (setq *debugger-hook*
+| (lambda (condition old-debugger-hook)
+| (debug:backtrace 10)
+| (unix:unix-exit 2)))
+| #+live-dangerously
+| (mp::start-sigalrm-yield)
+| (flet ((roomy () (loop (with-output-to-string (*standard-output*)
(room)))))
+| (mp:make-process #'roomy)
+| (mp:make-process #'roomy)))
+|#
+
;; give the other thread time to die before we leave, otherwise the
;; overall exit status is 0, not 104
(sleep 2)
-------------------------------------------------------
This SF.net email is sponsored by: SF.net Giveback Program.
Does SourceForge.net help you be more productive? Does it
help you create better code? SHARE THE LOVE, and help us help
YOU! Click Here: http://sourceforge.net/donate/
|
