X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefcombin.lisp;h=711696fbb27b9c6af1ac26aef368d4f6d2535c6d;hb=444d2072bc52e60a41af62ee22e343e76109212f;hp=4edc8bd2f45808885b7a92e621fb449a0109b408;hpb=4e0ff6bb79908436adea8375d4eea46d10079cec;p=sbcl.git

diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp
index 4edc8bd..711696f 100644
--- a/src/pcl/defcombin.lisp
+++ b/src/pcl/defcombin.lisp
@@ -343,7 +343,8 @@
                           :format-arguments (list ',name))))
                     required-checks))
             (loop (unless (and (constantp order)
-                               (neq order (setq order (eval order))))
+                               (neq order (setq order
+                                                (constant-form-value order))))
                     (return t)))
             (push (cond ((eq order :most-specific-first)
                          `(setq ,name (nreverse ,name)))