[Sbcl-commits] CVS: sbcl/tests threads.impure.lisp,1.7.2.1,1.7.2.2

[Daniel B. <da...@us...>]

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)