From 625e2912419d6989e376f100fcfb6defb33459b3 Mon Sep 17 00:00:00 2001 Message-Id: <625e2912419d6989e376f100fcfb6defb33459b3.1714690997.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 15 Feb 2006 09:59:26 +0000 Subject: [PATCH] Porting to CLISP Organization: Straylight/Edgeware From: espen --- tools/config.lisp | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/tools/config.lisp b/tools/config.lisp index ffe8cfa..acf9943 100644 --- a/tools/config.lisp +++ b/tools/config.lisp @@ -42,6 +42,7 @@ (defun read-string (&optional (stream *standard-input*) ((error 'end-of-file :stream stream))))) +#+(or sbcl cmu) (defun run-pkg-config (package error &rest options) (let ((process (run-program @@ -59,6 +60,12 @@ (defun run-pkg-config (package error &rest options) (process-close process) (values output exit-code))))) +#+clisp +;; I haven't figured out how to do error checking with CLISP's run-program +(defun run-pkg-config (package error &rest options) + (declare (ignore error)) + (let ((stream (ext:run-program *pkg-config* :arguments (cons package options) :output :stream))) + (read-lines stream))) (defun pkg-cflags (package) (split-string (first (run-pkg-config package t "--cflags")))) -- [mdw]