From: Stas Boukarev <stassats@gmail.com>
Date: Tue, 21 May 2013 11:05:19 +0000 (+0400)
Subject: Fix foreign-symbol-address transform on +sb-dynamic-core.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d142a53608173b7de85dd13032315fbdd07198dc;p=sbcl.git

Fix foreign-symbol-address transform on +sb-dynamic-core.

Badly placed ` was resulting in a wrong result.
---

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)