Changeset 8839


Ignore:
Timestamp:
Mar 21, 2008, 5:39:43 AM (11 years ago)
Author:
gb
Message:

Minor conditionalization for windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/win64/level-1/l1-lisp-threads.lisp

    r8579 r8839  
    3030
    3131(defloadvar *ticks-per-second*
     32    #+windows-target 1000
     33    #-windows-target
    3234    (#_sysconf #$_SC_CLK_TCK))
    3335
     
    3537    (floor 1000000000 *ticks-per-second*))
    3638
     39#-windows-target
    3740(defun %nanosleep (seconds nanoseconds)
    3841  (rlet ((a :timespec)
     
    422425        (setf (lisp-thread.tcr thread) nil
    423426              (lisp-thread.state thread) :exit)
     427        #+windows-target
     428        (#_TerminateThread pthread #$EXIT_FAILURE)
     429        #-windows-target
    424430        (#_pthread_kill pthread #$SIGQUIT)))))
    425431
Note: See TracChangeset for help on using the changeset viewer.