make-process for SBCL

*** clocc/src/port/proc.lisp.orig       2008-07-30 12:18:50.000000000 -0700
--- clocc/src/port/proc.lisp    2008-07-30 12:34:06.000000000 -0700
***************
*** 77,84 ****
        LispWorks
        (and Lucid multitasking)
        MCL
!       scl)
!
  (eval-when (compile load eval)
    (pushnew :threads *features*))

--- 77,84 ----
        LispWorks
        (and Lucid multitasking)
        MCL
!       scl
!       (and sbcl sb-thread))
  (eval-when (compile load eval)
    (pushnew :threads *features*))

***************
*** 111,116 ****
--- 111,118 ----
                        (apply function args))))))
            (ccl:process-run-function name #'process-wrapper))
    #+scl (thread:thread-create (lambda () (apply function args)) :name name)
+   #+(and sbcl sb-thread)
+     (sb-thread:make-thread (lambda () (apply function args)) :name name)
    #-threads
    (error 'not-implemented :proc (list 'make-process name function args)))


-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/