I know it is late coming but here is one of the promised patches.
This adds support for Lispworks to cffi-grovel.
More to follow.
Cheers,
Sean.
--- /share/lisp/asdf-install/site/cffi-net-R8/cffi-grovel.lisp 2007-04-17 16:27:15.000000000 +0100
+++ cffi-grovel.lisp 2006-06-07 05:00:09.000000000 +0100
@@ -70,14 +70,6 @@ (defun invoke (command &rest args)
args
message))))
-#+lispworks
-(defun invoke (command &rest args)
- (let ((exit-code (system:call-system-showing-output (format nil "~A ~{~A~^ ~}" command args))))
- (unless (zerop exit-code)
- (error "External process exited with code ~S.~@
- Command was: ~S~{ ~S~}"
- exit-code command args))))
-
(defun name-designator-c (designator)
(etypecase designator
(list (nth 0 designator))
_______________________________________________
iolib-devel mailing list
[email protected]
http://common-lisp.net/cgi-bin/mailman/listinfo/iolib-devel
