Skip to content
Snippets Groups Projects
Commit 41ad564b authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Try to fix bitrotted prebuilt-system, based on initial MKCL support.

prebuilt-system isn't currently tested, and will bitrot again if it is kept this way.
parent 5db533b0
No related branches found
No related tags found
No related merge requests found
...@@ -185,6 +185,7 @@ ...@@ -185,6 +185,7 @@
*** have a function verify-strict-asd that can verify a asd is pure lp#541562 *** have a function verify-strict-asd that can verify a asd is pure lp#541562
Then if it passes, use load-strict-asd. Then if it passes, use load-strict-asd.
If not, optionally issue a warning. Start migrating people toward that. If not, optionally issue a warning. Start migrating people toward that.
*** Include tests for prebuilt-system in test-bundle and in test-program.
* Learn to use cl-grid-test * Learn to use cl-grid-test
** So we can easily make sure ASDF changes don't break stuff, ** So we can easily make sure ASDF changes don't break stuff,
......
...@@ -353,22 +353,24 @@ itself.")) ;; operation on a system and its dependencies ...@@ -353,22 +353,24 @@ itself.")) ;; operation on a system and its dependencies
(defmethod trivial-system-p ((s prebuilt-system)) (defmethod trivial-system-p ((s prebuilt-system))
t) t)
(defmethod perform ((o lib-op) (c prebuilt-system)) (defmethod perform ((o link-op) (c prebuilt-system))
nil) nil)
(defmethod component-depends-on ((o lib-op) (c prebuilt-system)) (defmethod perform ((o basic-fasl-op) (c prebuilt-system))
nil) nil))
(defmethod component-depends-on ((o monolithic-lib-op) (c prebuilt-system)) (defmethod perform ((o lib-op) (c prebuilt-system))
nil) nil)
#+mkcl (defmethod perform ((o dll-op) (c prebuilt-system))
(defmethod perform ((o fasl-op) (c prebuilt-system)) nil))
(defmethod component-depends-on ((o gather-op) (c prebuilt-system))
nil) nil)
#+mkcl
(defmethod output-files ((o lib-op) (c prebuilt-system)) (defmethod output-files ((o lib-op) (c prebuilt-system))
(list (prebuilt-system-static-library c)))) (values (list (prebuilt-system-static-library c)) t))
;;; ;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment