From 9dc31e07ac9162ee094f34db7357c2a729d29874 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sat, 26 Jan 2008 13:07:04 +0100 Subject: Automatically build libffi when loading the system. darcs-hash:4052b064360c7f3fea44f8360edc845540307ac3 --- objective-cl.asd | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'objective-cl.asd') diff --git a/objective-cl.asd b/objective-cl.asd index f399aa9..859c10f 100644 --- a/objective-cl.asd +++ b/objective-cl.asd @@ -93,7 +93,8 @@ (mapcan #'(lambda (x) (directory (merge-pathnames x source-dir))) '(#p"**/*.m" #p"**/*.h" #p"**/GNUmakefile.*" - #p"**/*.make" #p"**/GNUmakefile")))) + #p"**/*.make" #p"**/GNUmakefile" + #p"libffi/**/*" #p"libffi/**/*.*")))) (output-dir (merge-pathnames #p"../../" (directory-namestring (first (output-files o c)))))) @@ -104,15 +105,17 @@ (unless (and (probe-file output-file) (= (file-write-date source-file) (file-write-date output-file))) - (with-open-file (in source-file - :element-type '(unsigned-byte 8)) - (with-open-file (out output-file - :direction :output - :if-exists :supersede - :element-type '(unsigned-byte 8)) - (loop for byte = (read-byte in nil nil) - while byte - do (write-byte byte out)))))))))) + (ignore-errors ;; FIXME: We need to skip directories, so + ;; that IGNORE-ERRORS can go away. + (with-open-file (in source-file + :element-type '(unsigned-byte 8)) + (with-open-file (out output-file + :direction :output + :if-exists :supersede + :element-type '(unsigned-byte 8)) + (loop for byte = (read-byte in nil nil) + while byte + do (write-byte byte out))))))))))) (defmethod perform ((o compile-op) (c objc-source-file)) (unless (or (operation-done-p o c) -- cgit v1.2.3