Greetings! Just committed a quick fix to get this working again in the new dlopen access to external libs mechanism. More discussion later if desired.
Warning: at present there is no limit to the number of forks -- this is forthcoming. Take care, >(in-package 'si) #<"SYSTEM" package> SYSTEM>(defun fib (x) (cond ((= x 1) 1) ((= x 2) 1) ((+ (fib (1- x)) (fib (- x 2)))))) FIB SYSTEM>(defun fib1 (x) (si::p-let ((w (fib (1- x)))(z (fib (- x 2)))) (+ w z))) FIB1 SYSTEM>(compile 'fib) ;; Compiling /tmp/gazonk_20137_0.lsp. ;; End of Pass 1. ;; End of Pass 2. ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, (Debug quality ignored) ;; Finished compiling /tmp/gazonk_20137_0.o. ;; Loading /tmp/gazonk_20137_0.o ;; start address -T 0x84f170 ;; Finished loading /tmp/gazonk_20137_0.o #<compiled-function FIB> NIL NIL SYSTEM>(compile 'fib1) ;; Compiling /tmp/gazonk_20137_0.lsp. ;; End of Pass 1. ;; End of Pass 2. ;; OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3, (Debug quality ignored) ;; Finished compiling /tmp/gazonk_20137_0.o. ;; Loading /tmp/gazonk_20137_0.o ;; start address -T 0x86cbc0 ;; Finished loading /tmp/gazonk_20137_0.o #<compiled-function FIB1> NIL NIL SYSTEM>(time (fib 30)) real time : 0.020 secs run-gbc time : 0.020 secs child run time : 0.000 secs gbc time : 0.000 secs 832040 SYSTEM>(time (fib 40)) real time : 2.550 secs run-gbc time : 2.550 secs child run time : 0.000 secs gbc time : 0.000 secs 102334155 SYSTEM>(time (fib1 40)) real time : 1.590 secs run-gbc time : 0.000 secs child run time : 2.540 secs gbc time : 0.000 secs 102334155 SYSTEM> -- Camm Maguire [EMAIL PROTECTED] ========================================================================== "The earth is but one country, and mankind its citizens." -- Baha'u'llah _______________________________________________ Gcl-devel mailing list Gcl-devel@gnu.org http://lists.gnu.org/mailman/listinfo/gcl-devel
