diff --git a/src/cmp/cmploc.lsp b/src/cmp/cmploc.lsp
index 87e6232fd..3db2761fe 100644
--- a/src/cmp/cmploc.lsp
+++ b/src/cmp/cmploc.lsp
@@ -119,6 +119,9 @@
         (t
          (values nil nil))))
 
+(defun loc-immediate-value (loc)
+  (nth-value 1 (loc-immediate-value-p loc)))
+
 (defun unknown-location (where loc)
   (baboon :format-control "Unknown location found in ~A~%~S"
           :format-arguments (list where loc)))