From: David Vázquez <davazp@gmail.com>
Date: Fri, 18 Oct 2013 00:12:05 +0000 (-0700)
Subject: Merge pull request #148 from Ferada/small-fixes
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=77d006f9689ab87c4ecd7357efe19b3c5f03ca88;hp=08f50f40ca51ee15efe8c2a4be1445b5ba6d4a86;p=jscl.git

Merge pull request #148 from Ferada/small-fixes

Fix (SETF OGET).
---

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index 4427cdd..644ac6a 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -1241,7 +1241,7 @@
         ,@(mapcar (lambda (key)
                     `(progn
                        (= obj (property obj (call |xstring| ,(convert key))))
-                       (if (=== object undefined)
+                       (if (=== obj undefined)
                            (throw "Impossible to set object property."))))
                   (butlast keys))
         (var (tmp