Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5167

Modified Files:
      Tag: lutex-branch
	target-thread.lisp 
Log Message:
0.9.10.46.lutex-branch.13
    * move {:mach,:carbon}-semaphores and :restore-tls-... into
      base-target-features.lisp-expr
    * conditional compilation fixes to avoid including things on
      -sb-thread builds that shouldn't be
    * whitespace fixes
    * added a fixme in thread.lisp


Index: target-thread.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-thread.lisp,v
retrieving revision 1.55.4.3
retrieving revision 1.55.4.4
diff -u -d -r1.55.4.3 -r1.55.4.4
--- target-thread.lisp	25 Mar 2006 22:27:10 -0000	1.55.4.3
+++ target-thread.lisp	26 Mar 2006 18:51:32 -0000	1.55.4.4
@@ -344,6 +344,9 @@
   #!+sb-thread
   (let ((me *current-thread*))
     #!+sb-lutex (declare (ignorable me))
+    ;; FIXME We can probably do away with the ignore by moving the let
+    ;; inside the #!-sb-lutex block!
+    ;;
     ;; no problem if >1 thread notifies during the comment in
     ;; condition-wait: as long as the value in queue-data isn't the
     ;; waiting thread's id, it matters not what it is