Add compiler macro utils CONSTANT-FORM-P and CONSTANT-FORM-VALUE

src/utils.lisp

@@ -82,3 +82,28 @@ set twos-complement bit."
                                        (the fixnum (1+ (the fixnum stop)))
                                        stop))
                    while stop)))
+
+(defun quoted-form-p (form)
+  (and (listp form)
+       (= 2 (length form))
+       (eql 'quote (car form))))
+
+(defun constant-form-p (form &optional env)
+  (let ((form (if (symbolp form)
+                  (macroexpand form env)
+                  form)))
+    (or (quoted-form-p form)
+        (constantp form env))))
+
+(defun constant-form-value (form &optional env)
+  (declare (ignorable env))
+  (cond
+    ((quoted-form-p form)
+     (second form))
+    (t
+     #+clozure
+     (ccl::eval-constant form)
+     #+sbcl
+     (sb-int:constant-form-value form env)
+     #-(or clozure sbcl)
+     (eval form))))