From 19d758cfb1572eb578a186dbc77c80bde3515438 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 16 Mar 2010 23:33:52 +0100 Subject: [PATCH] Use the new feature in ASDF to ensure that the output-files of a prebuilt-system remain untranslated. --- contrib/asdf/asdf-ecl.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/contrib/asdf/asdf-ecl.lisp b/contrib/asdf/asdf-ecl.lisp index 38f6e86b1..b77be5b5e 100755 --- a/contrib/asdf/asdf-ecl.lisp +++ b/contrib/asdf/asdf-ecl.lisp @@ -277,10 +277,14 @@ ((static-library :accessor prebuilt-system-static-library :initarg :lib))) (defmethod output-files ((o lib-op) (c prebuilt-system)) - (list (compile-file-pathname (prebuilt-system-static-library c) :type :lib))) + (values (list (compile-file-pathname (prebuilt-system-static-library c) :type :lib)) + ;; Do not translate pathnames + t)) (defmethod perform ((o lib-op) (c prebuilt-system)) - (car (output-files o c))) + (values (car (output-files o c)) + ;; Do not translate pathnames + t)) (defmethod component-depends-on ((o lib-op) (c prebuilt-system)) nil)