From d142a53608173b7de85dd13032315fbdd07198dc Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Tue, 21 May 2013 15:05:19 +0400 Subject: [PATCH] Fix foreign-symbol-address transform on +sb-dynamic-core. Badly placed ` was resulting in a wrong result. --- src/compiler/saptran.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/saptran.lisp b/src/compiler/saptran.lisp index 8161ce7..80b5e58 100644 --- a/src/compiler/saptran.lisp +++ b/src/compiler/saptran.lisp @@ -19,8 +19,8 @@ (if (and (constant-lvar-p symbol) (constant-lvar-p datap) #!+sb-dynamic-core (not (lvar-value datap))) - (values `(sap-int (foreign-symbol-sap symbol datap)) - (or #!+sb-dynamic-core t)) + `(values (sap-int (foreign-symbol-sap symbol datap)) + (or #!+sb-dynamic-core t)) (give-up-ir1-transform))) (deftransform foreign-symbol-sap ((symbol &optional datap) -- 1.7.10.4