RTfXGaGeqSeItbMUgpFlekUs

diff -Naur pcc-091107/config.h.in pcc-dux/config.h.in
--- pcc-091107/config.h.in	2009-05-16 03:25:55.000000000 -0400
+++ pcc-dux/config.h.in	2009-11-07 00:03:34.104097411 -0500
@@ -1,5 +1,8 @@
 /* config.h.in.  Generated from configure.ac by autoheader.  */
 
+/* Define if building universal (internal helper macro) */
+#undef AC_APPLE_UNIVERSAL_BUILD
+
 /* Using a.out ABI */

RTfXGaGeqSeItbMUgpFlekUs

diff -Naur binutils-2.20/bfd/config.bfd binutils-dux/bfd/config.bfd
--- binutils-2.20/bfd/config.bfd	2009-08-06 13:38:00.000000000 -0400
+++ binutils-dux/bfd/config.bfd	2009-11-07 00:46:44.203858221 -0500
@@ -603,6 +603,10 @@
     targ_selvecs="i386linux_vec i386pei_vec"
     targ64_selvecs="bfd_elf64_x86_64_vec bfd_elf64_l1om_vec"
     ;;
+  i[3-7]86-*-dux*)
+	targ_defvec=bfd_elf32_i386_vec
+	targ_selvecs=i386coff_vec

RTfXGaGeqSeItbMUgpFlekUs

diff -Naur binutils-2.20/bfd/config.bfd binutils-synapse/bfd/config.bfd
--- binutils-2.20/bfd/config.bfd	2009-08-06 13:38:00.000000000 -0400
+++ binutils-synapse/bfd/config.bfd	2009-11-07 00:46:44.203858221 -0500
@@ -603,6 +603,10 @@
     targ_selvecs="i386linux_vec i386pei_vec"
     targ64_selvecs="bfd_elf64_x86_64_vec bfd_elf64_l1om_vec"
     ;;
+  i[3-7]86-*-synapse*)
+	targ_defvec=bfd_elf32_i386_vec
+	targ_selvecs=i386coff_vec

RTfXGaGeqSeItbMUgpFlekUs

diff -Naur pcc-091107/config.h.in pcc-synapse/config.h.in
--- pcc-091107/config.h.in	2009-05-16 03:25:55.000000000 -0400
+++ pcc-synapse/config.h.in	2009-11-07 00:03:34.104097411 -0500
@@ -1,5 +1,8 @@
 /* config.h.in.  Generated from configure.ac by autoheader.  */
 
+/* Define if building universal (internal helper macro) */
+#undef AC_APPLE_UNIVERSAL_BUILD
+
 /* Using a.out ABI */

RTfXGaGeqSeItbMUgpFlekUs

diff -Naur ./pcc-100407/config.h.in ./pcc-100407-dux/config.h.in
--- ./pcc-100407/config.h.in	2009-05-16 03:25:55.000000000 -0400
+++ ./pcc-100407-dux/config.h.in	2010-04-06 18:21:11.000000000 -0400
@@ -1,5 +1,8 @@
 /* config.h.in.  Generated from configure.ac by autoheader.  */
 
+/* Define if building universal (internal helper macro) */
+#undef AC_APPLE_UNIVERSAL_BUILD
+
 /* Using a.out ABI */

RTfXGaGeqSeItbMUgpFlekUs

(defun collatz (n)
  (labels ((internal (n lst)
                     (cond
                       ((= n 1) (cons n lst))
                       ((evenp n) (internal (/ n 2) (cons n lst)))
                       ((oddp n)
                        (internal (+ (* 3 n) 1) (cons n lst))))))
    (internal n '())))

(defun list-to-gv (lst)

RTfXGaGeqSeItbMUgpFlekUs

(defun fact (n)
  (labels ((internal (n total)
                     (if (= n 0) total
                       (internal (- n 1) (* total n)))))
    (internal n 1)))

(defun fact-notail (n)
  (if (= n 0) 1
    (* n (fact-notail (- n 1)))))

RTfXGaGeqSeItbMUgpFlekUs

? (time (fact-notail 10000))
(FACT-NOTAIL 10000) took 244,746 microseconds (0.244746 seconds) to run 
                    with 2 available CPU cores.
During that period, 214,475 microseconds (0.214475 seconds) were spent in user mode
                    29,142 microseconds (0.029142 seconds) were spent in system mode
134,673 microseconds (0.134673 seconds) was spent in GC.
 69,765,424 bytes of memory allocated.
 167 minor page faults, 0 major page faults, 0 swaps.

? (time (fact 10000))

RTfXGaGeqSeItbMUgpFlekUs

Welcome to Clozure Common Lisp Version 1.5-r13651  (DarwinX8664)!
? (load "/Users/martin/Desktop/Untitled.lisp")
#P"/Users/martin/Desktop/Untitled.lisp"
? (fact 10)
3628800
? (fact 0)
1
? (fact-gen nil)
#<COMPILED-LEXICAL-CLOSURE (:INTERNAL FACT-GEN) #x302000F7BB5F>
? (funcall (fact-gen nil) 0)

RTfXGaGeqSeItbMUgpFlekUs

Test SB-POSIX-TESTS::FCNTL.FLOCK.1 failed
Form: (LOCALLY
       (DECLARE (MUFFLE-CONDITIONS COMPILER-NOTE))
       (LET ((SB-POSIX-TESTS::FLOCK
              (MAKE-INSTANCE 'SB-POSIX:FLOCK :TYPE SB-POSIX:F-WRLCK :WHENCE
                             SB-POSIX:SEEK-SET :START 0 :LEN 10))
             (PATHNAME "fcntl.flock.1")
             SB-POSIX-TESTS::KID-STATUS)
         (CATCH 'SB-POSIX-TESTS::TEST
           (WITH-OPEN-FILE (SB-POSIX-TESTS::F PATHNAME :DIRECTION :OUTPUT)