From 95984c591c75b8085adde1d478b224c2ed29eaa5 Mon Sep 17 00:00:00 2001 From: Olof-Joachim Frahm Date: Tue, 15 Oct 2013 22:41:56 +0200 Subject: [PATCH] Fix (SETF OGET). --- src/compiler/compiler.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4