Mon Oct  2 00:45:15 EDT 2006  Travis Cross <tc@traviscross.com>
  * Fixed the *current-process* symbol-macro for LW.
Mon Oct  2 00:24:09 EDT 2006  Travis Cross <tc@traviscross.com>
  * Fixed the *current-process* symbol-macro for SBCL.
diff -rN -u old-tbnl/port-lw.lisp new-tbnl/port-lw.lisp
--- old-tbnl/port-lw.lisp	2006-10-02 00:46:09.000000000 -0400
+++ new-tbnl/port-lw.lisp	2006-10-02 00:46:09.000000000 -0400
@@ -83,7 +83,7 @@
   (mp:process-kill process))
 
 (define-symbol-macro *current-process*
-  'mp:*current-process*)
+  mp:*current-process*)
 
 (defun process-allow-scheduling ()
   (mp:process-allow-scheduling))
diff -rN -u old-tbnl/port-sbcl.lisp new-tbnl/port-sbcl.lisp
--- old-tbnl/port-sbcl.lisp	2006-10-02 00:46:09.000000000 -0400
+++ new-tbnl/port-sbcl.lisp	2006-10-02 00:46:09.000000000 -0400
@@ -61,7 +61,7 @@
   (sb-thread:terminate-thread process))
 
 (define-symbol-macro *current-process*
-  'sb-thread:*current-thread*)
+  sb-thread:*current-thread*)
 
 (defun process-allow-scheduling ()
   (sleep .1))

