X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fpolicy.lisp;h=bef5b88cc17cc01ebef50745518b1d9f0e59fe2e;hb=5563d2712045491695f68c018dbdd1233faca4e5;hp=d3bfe865c1684cc29a8dc76f81c76fd4e23bc7b1;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/compiler/policy.lisp b/src/compiler/policy.lisp
index d3bfe86..bef5b88 100644
--- a/src/compiler/policy.lisp
+++ b/src/compiler/policy.lisp
@@ -125,5 +125,6 @@
                   :values-documentation ',documentation)))
        (if acons
            (setf (cdr acons) item)
-           (push `(,',name . ,item) *policy-dependent-qualities*)))
+           (setf *policy-dependent-qualities*
+                 (nconc *policy-dependent-qualities* (list `(,',name . ,item))))))
      ',name))