[elephant-devel] another patch for bdb-controller

Robert L. Read read at robertlread.net
Tue Jul 18 16:46:18 UTC 2006


Thanks!  

I'm completely busy until after this week (I have to prepare three
lectures (and not in 
my native language)) for a convention this weekend.

I'll review these and add them next week, if Ian doesn't do it first.



On Tue, 2006-07-18 at 19:29 +0300, Aycan iRiCAN wrote:

> SBCL complained about invalid feature expression. So I fixed it.
> 
> $ cvs diff -u src/db-bdb/bdb-controller.lisp
> Index: src/db-bdb/bdb-controller.lisp
> ===================================================================
> RCS file: /project/elephant/cvsroot/elephant/src/db-bdb/bdb-controller.lisp,v
> retrieving revision 1.9
> diff -u -r1.9 bdb-controller.lisp
> --- src/db-bdb/bdb-controller.lisp      19 Jun 2006 00:47:24 -0000      1.9
> +++ src/db-bdb/bdb-controller.lisp      18 Jul 2006 16:14:55 -0000
> @@ -193,7 +193,8 @@
> 
>  (defmethod shell-kill (pid)
>    #+allegro (sys:reap-os-subprocess :pid pid :wait t)
> -  #+(port (not allegro)) (port:run-prog "kill" :wait t :args (list "-9" (format nil "~A" pid)))
> +  #+(and (not allegro) port) (port:run-prog "kill" :wait t :args (list "-9" (format nil "~A" pid)))
> +  #+(and sbcl linux) (sb-ext:process-kill "/bin/kill" (list "-9" (format nil "~A" pid)))
>    )
> 
>  ;;
> 
> Best Regards
> 
> _______________________________________________
> elephant-devel site list
> elephant-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/elephant-devel
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20060718/38e88718/attachment.html>


More information about the elephant-devel mailing list