Changeset 11151


Ignore:
Timestamp:
Oct 18, 2008, 6:38:58 AM (11 years ago)
Author:
gb
Message:

Use %KILL-TCR in KILL-LISP-THREAD.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-lisp-threads.lisp

    r10895 r11151  
    423423(defun kill-lisp-thread (thread)
    424424  (unless (eq thread *initial-lisp-thread*)
    425     (let* ((pthread (lisp-thread-os-thread thread)))
    426       (when pthread
     425    (let* ((tcr (lisp-thread.tcr thread)))
     426      (when tcr
    427427        (setf (lisp-thread.tcr thread) nil
    428428              (lisp-thread.state thread) :exit)
    429         #+windows-target
    430         (#_TerminateThread pthread #$EXIT_FAILURE)
    431         #-windows-target
    432         (#_pthread_kill pthread #$SIGQUIT)))))
     429        (%kill-tcr tcr)))))
    433430
    434431;;; This returns the underlying pthread, whatever that is.
Note: See TracChangeset for help on using the changeset viewer.