X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fhost-alieneval.lisp;h=4f018d641425858630607f5e9e4fdd1cf8d12971;hb=48ec282d877900caf5ea4ab42e9d87e566ce6b43;hp=bfe0b428834f7407b367bcd5502c4cc6d4d1c941;hpb=2fee5f3b57ab89c92c9d2a627a8e5bc2095e6f44;p=sbcl.git

diff --git a/src/code/host-alieneval.lisp b/src/code/host-alieneval.lisp
index bfe0b42..4f018d6 100644
--- a/src/code/host-alieneval.lisp
+++ b/src/code/host-alieneval.lisp
@@ -656,7 +656,7 @@
         (unless (and max (> max val)) (setq max val))
         (unless (and min (< min val)) (setq min val))
         (when (rassoc val from-alist)
-          (warn "The element value ~S is used more than once." val))
+          (style-warn "The element value ~S is used more than once." val))
         (when (assoc sym from-alist :test #'eq)
           (error "The enumeration element ~S is used more than once." sym))
         (push (cons sym val) from-alist)))