arm32v5 (armel) did not work with test-testfd

Author: k-okada

test/test-foreign.l

@@ -121,6 +121,7 @@ test-testd = 1.23456
             206 207)))
   (assert (= 123456 ret))
   ;;
+  (when (not (eq (read (unix::piped-fork "gcc -dumpmachine") nil 'arm-linux-gnueabi) 'arm-linux-gnueabi))
   (check-func 'test-testfd)
   (setq f (piped-fork (format nil "eusg ~A/test/test-foreign.module_l '(progn (test-testfd 100 101 102 103 104 105 1000.000000 1010.000000 1020.000000 1030.000000 1040.000000 1050.000000 1060.000000 1070.000000 2080.000000 2090.000000  2100.000000 2110.000000 206 207)(exit 0))'" *eusdir*)))
   (assert-read-line-string= f "100 101 102")
@@ -130,6 +131,7 @@ test-testd = 1.23456
   (assert-read-line-string= f "2080.000000 2090.000000 2100.000000 2110.000000")
   (assert-read-line-string= f "206 207")
   )
+  )
 
 (deftest test-int-test
   (format t "~%~%int-test~%")