X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-posix%2Fsb-posix.asd;h=325d8f4526ecaf7b5e71c1186fd835e86706c161;hb=5bf941f419b6cd275feb3ee44ca264596fbd9e8e;hp=3fe72a07442d352b03c6fe1089b6c1cd210b61aa;hpb=10cdee0326e9e8a5bbfe1d8312a73d58f023fb5f;p=sbcl.git diff --git a/contrib/sb-posix/sb-posix.asd b/contrib/sb-posix/sb-posix.asd index 3fe72a0..325d8f4 100644 --- a/contrib/sb-posix/sb-posix.asd +++ b/contrib/sb-posix/sb-posix.asd @@ -7,14 +7,15 @@ (defsystem sb-posix :depends-on (sb-grovel) #+sb-building-contrib :pathname - #+sb-building-contrib "SYS:CONTRIB;SB-POSIX;" + #+sb-building-contrib #p"SYS:CONTRIB;SB-POSIX;" :components ((:file "defpackage") - (:file "designator" :depends-on ("defpackage")) - (:file "macros" :depends-on ("designator")) - (sb-grovel:grovel-constants-file - "constants" - :package :sb-posix :depends-on ("defpackage")) - (:file "interface" :depends-on ("constants" "macros" "designator")))) + (:file "designator" :depends-on ("defpackage")) + (:file "macros" :depends-on ("designator")) + (sb-grovel:grovel-constants-file + "constants" + :do-not-grovel #.(progn #-sb-building-contrib t) + :package :sb-posix :depends-on ("defpackage")) + (:file "interface" :depends-on ("constants" "macros" "designator")))) (defsystem sb-posix-tests :depends-on (sb-rt) @@ -30,12 +31,12 @@ (defmethod perform ((o test-op) (c (eql (find-system :sb-posix-tests)))) (funcall (intern "DO-TESTS" (find-package "SB-RT"))) (let ((failures (funcall (intern "PENDING-TESTS" "SB-RT"))) - (ignored-failures (loop for sym being the symbols of :sb-posix-tests - if (search ".ERROR" (symbol-name sym)) - collect sym))) + (ignored-failures (loop for sym being the symbols of :sb-posix-tests + if (search ".ERROR" (symbol-name sym)) + collect sym))) (cond ((null failures) - t) + t) ((null (set-difference failures ignored-failures)) (warn "~@