Changeset 8241

Timestamp:

Jan 22, 2008, 10:08:49 PM (17 years ago)

Author:

Gary Byers

Message:

Move some macros to before the code that uses them.

File:

• trunk/source/level-1/linux-files.lisp (modified) (2 diffs)

trunk/source/level-1/linux-files.lisp

@@ -808 +808 @@
 
 
+(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 +978 @@
 
 
-(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)