[Gcl-devel] GCL Fork based parallelism

[Camm Maguire]

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                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah