0.9.10.15:

[sbcl.git] / src / compiler / constantp.lisp

diff --git a/src/compiler/constantp.lisp b/src/compiler/constantp.lisp
index 721e594..97e27a9 100644 (file)
--- 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)