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
pgp41KQxkrxPM.pgp
Description: PGP signature
_______________________________________________ elephant-devel site list elephant-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/elephant-devel
