From a34555fc75c2ea2780668e287096b8eee8321c3a 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..7ce004d 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 (=== ,(convert object) undefined) (throw "Impossible to set object property.")))) (butlast keys)) (var (tmp -- 1.7.10.4