Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 8240)
+++ /trunk/source/level-1/linux-files.lisp	(revision 8241)
@@ -808,4 +808,18 @@
 
 
+(defmacro wtermsig (status)
+  `(ldb (byte 7 0) ,status))
+
+(defmacro wexitstatus (status)
+  `(ldb (byte 8 8) (the fixnum ,status)))
+
+(defmacro wstopsig (status)
+  `(wexitstatus ,status))
+
+(defmacro wifexited (status)
+  `(eql (wtermsig ,status) 0))
+
+(defmacro wifstopped (status)
+  `(eql #x7f (ldb (byte 7 0) (the fixnum ,status))))
 
 (defun monitor-external-process (p)
@@ -964,18 +978,5 @@
 
 
-(defmacro wtermsig (status)
-  `(ldb (byte 7 0) ,status))
-
-(defmacro wexitstatus (status)
-  `(ldb (byte 8 8) (the fixnum ,status)))
-
-(defmacro wstopsig (status)
-  `(wexitstatus ,status))
-
-(defmacro wifexited (status)
-  `(eql (wtermsig ,status) 0))
-
-(defmacro wifstopped (status)
-  `(eql #x7f (ldb (byte 7 0) (the fixnum ,status))))
+
 
 (defmacro wifsignaled (status)