Get ordering and dependencies right: reverse forms.

Document manual test.

diff --git a/asdf-finalizers-test.lisp b/asdf-finalizers-test.lisp
index afc6983..d802130 100644 (file)
--- a/asdf-finalizers-test.lisp
+++ b/asdf-finalizers-test.lisp
@@ -31,3 +31,7 @@
   (typep '(1 2 3) '(list-of symbol)))
 
 (final-forms)
+
+#| Manual test: in a fresh Lisp,
+(require "asdf")(asdf:load-system :asdf-finalizers :force t)(trace asdf-finalizers:eval-at-toplevel asdf-finalizers:register-final-form)(setf asdf-finalizers::*debug-finalizers* t)(asdf:load-system :asdf-finalizers-test :force '(:asdf-finalizers-test))
+|#

diff --git a/finalizers.lisp b/finalizers.lisp
index 8f6a4c3..9d828de 100644 (file)
--- a/finalizers.lisp
+++ b/finalizers.lisp
@@ -31,7 +31,9 @@ off when your application is done compiled and you're at runtime.")
 
 (defmacro final-forms ()
   "Evaluate registered finalization thunks."
-  (let ((forms (loop :while *finalizers* :collect (funcall (pop *finalizers*)))))
+  (let ((forms (reverse
+               (loop :while *finalizers*
+                     :collect (funcall (pop *finalizers*))))))
     (when *debug-finalizers*
       (with-standard-io-syntax
        (let ((*package* (find-package :cl))