X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fconstantp.lisp;h=97e27a9325437dc7284d602ec6e681a90b20dd1a;hb=a02f19f746ef4808147de0d3d72700eb06b2253c;hp=721e5943f630afb1968c899bd36b43a175fb98fc;hpb=6769a6cdb368694f39f9c0e2b6790f45cf308b91;p=sbcl.git

diff --git a/src/compiler/constantp.lisp b/src/compiler/constantp.lisp
index 721e594..97e27a9 100644
--- a/src/compiler/constantp.lisp
+++ b/src/compiler/constantp.lisp
@@ -195,7 +195,7 @@ constantness of the FORM in ENVIRONMENT."
 
  (defconstantp multiple-value-prog1 (first-form &body forms)
    :test (every #'constantp* (cons first-form forms))
-   :test (constant-form-value* first-form))
+   :eval (constant-form-value* first-form))
 
  (defconstantp progv (symbols values &body forms)
    :test (and (constantp* symbols)