X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fsetf-funs.lisp;h=741fb61dff3d5e4888f0d744e10dce75fbc022fe;hb=f41b718f89090d00e2625f103e29281061800729;hp=5899a243cbd85b5fa6239ae4ef33b415307df49a;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/setf-funs.lisp b/src/code/setf-funs.lisp
index 5899a24..741fb61 100644
--- a/src/code/setf-funs.lisp
+++ b/src/code/setf-funs.lisp
@@ -42,11 +42,16 @@
                    (or (info :setf :inverse sym)
                        (info :setf :expander sym))
                    (not (member sym ignore)))
-          (let ((type (type-specifier (info :function :type sym))))
-            (aver (consp type))
-            #!-sb-fluid (res `(declaim (inline (setf ,sym))))
-            (res (compute-one-setter sym type))))))
-    `(progn ,@(res))))
+          (res sym))))
+    `(progn
+      ,@(mapcan
+         (lambda (sym)
+           (let ((type (type-specifier (info :function :type sym))))
+             (aver (consp type))
+             (list
+              #!-sb-fluid `(declaim (inline (setf ,sym)))
+              (compute-one-setter sym type))))
+         (sort (res) #'string<)))))
 
 ) ; EVAL-WHEN