Reverse *options* when filling the hash-table to take into account the latest define-option.

Pascal J. Bourguignon [2014-06-27 01:54]
Reverse *options* when filling the hash-table to take into account the latest define-option.
Filename
common-lisp/unix/option.lisp
diff --git a/common-lisp/unix/option.lisp b/common-lisp/unix/option.lisp
index 28791ab..e65e8bd 100644
--- a/common-lisp/unix/option.lisp
+++ b/common-lisp/unix/option.lisp
@@ -409,7 +409,7 @@ BUG: when the optionals or keys have a present indicator,

 (defun fill-option-map (table)
   (loop
-    :for option :in *options*
+    :for option :in (reverse *options*)
     :do (loop :for key :in (option-keys option)
               :do (setf (gethash key table) option)))
   table)
ViewGit