[elephant-devel] another patch for bdb-controller

Aycan iRiCAN aycan.irican at core.gen.tr
Tue Jul 18 16:29:45 UTC 2006


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

-- 
Aycan iRiCAN
C0R3 Computer Security Group
http://www.core.gen.tr
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/pgp-signature
Size: 190 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/elephant-devel/attachments/20060718/4c1fecfe/attachment.sig>


More information about the elephant-devel mailing list