X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.impure.lisp;h=bc56053bdbae5e501123d4e115eb92e61431b6e3;hb=e663f81f7297ab9f53b38d5f0975152de3557e69;hp=d3cc1623074e2476ae317f9d30601d35a2112a93;hpb=c580293e8550414004697173f7e2c2b6bdf81070;p=sbcl.git

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index d3cc162..bc56053 100644
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -470,37 +470,12 @@
 
 (format t "~&creation test done~%")
 
-;; watch out for *current-thread* being the parent thread after exit
-(let* (sap
-       (thread (sb-thread:make-thread
-                (lambda ()
-                  (setq sap (thread-sap-for-id
-                             (thread-os-thread *current-thread*)))))))
-  (wait-for-threads (list thread))
-  (assert (null (symbol-value-in-thread 'sb-thread:*current-thread*
-                                        sap))))
-
 ;; interrupt handlers are per-thread with pthreads, make sure the
 ;; handler installed in one thread is global
 (sb-thread:make-thread
  (lambda ()
    (sb-ext:run-program "sleep" '("1") :search t :wait nil)))
 
-(with-test (:name (:thread-start :dynamic-values-and-gc))
-  (let ((gc-thread (sb-thread:make-thread (lambda ()
-                                            (loop (sleep (random 0.2))
-                                                  (sb-ext:gc :full t))))))
-    (wait-for-threads
-     (loop for i below 3000
-           when (zerop (mod i 30))
-           do (princ ".")
-           collect
-           (let ((*x* (lambda ())))
-             (declare (special *x*))
-             (sb-thread:make-thread (lambda () (functionp *x*))))))
-    (sb-thread:terminate-thread gc-thread)
-    (terpri)))
-
 #|  ;; a cll post from eric marsden
 | (defun crash ()
 |   (setq *debugger-hook*