From 0e07bf1df5b5ac43f0fd00a1cbfd633d63e25e92 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 27 Jul 2011 23:34:38 +0200 Subject: [PATCH] New auxiliary value LOC-IMMEDIATE-VALUE --- src/cmp/cmploc.lsp | 3 +++ 1 file changed, 3 insertions(+) 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)))