From 00313a26cdcd13eb1f3f1160cc8aaecf89a41a50 Mon Sep 17 00:00:00 2001
From: Bart Botta <00003b@gmail.com>
Date: Thu, 18 Dec 2008 08:58:59 -0600
Subject: [PATCH] let slot-value work on dynamic properties

---
 lib/cl.lisp    | 2 +-
 test/test.lisp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/cl.lisp b/lib/cl.lisp
index 637d0c2..3cb0078 100644
--- a/lib/cl.lisp
+++ b/lib/cl.lisp
@@ -149,7 +149,7 @@
                          (second slot)
                          slot)))
       `(%asm (:@ ,object)
-             (:get-property , (find-swf-property slot-name)))))
+             (:get-property , (or (find-swf-property slot-name) slot-name)))))
 
 
   (swf-defmacro prog1 (value-form &body body)
diff --git a/test/test.lisp b/test/test.lisp
index cb96c9f..d438a3d 100644
--- a/test/test.lisp
+++ b/test/test.lisp
@@ -286,7 +286,7 @@
          (%flash.display:end-fill ,gfx)))
 
     (swf-defmemfun frame (evt)
-      (let* ((canvas (%get-property this :canvas))
+      (let* ((canvas (slot-value this :canvas))
              (gfx (slot-value canvas '%flash.display:graphics))
              (matrix (%new %flash.geom:Matrix 0)))
 
-- 
2.11.4.GIT