Use the new feature in ASDF to ensure that the output-files of a prebuilt-system remain untranslated.

This commit is contained in:
Juan Jose Garcia Ripoll 2010-03-16 23:33:52 +01:00
parent 1c703c5442
commit 19d758cfb1

View file

@ -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)