From: Vladimir Sedach <vsedach@gmail.com>
Date: Tue, 31 Jul 2007 21:26:52 +0000 (+0000)
Subject: Changed slot-value so that (slot-value foo nil) is now "foo" instead of "foo.null"
X-Git-Tag: parenscript-20070828~67
X-Git-Url: https://git.hcoop.net/clinton/parenscript.git/commitdiff_plain/a2196375c986b567d567f60a4559e2c6e70ee8bf

Changed slot-value so that (slot-value foo nil) is now "foo" instead of "foo.null"
---

diff --git a/src/js-macrology.lisp b/src/js-macrology.lisp
index 6934fee..159627b 100644
--- a/src/js-macrology.lisp
+++ b/src/js-macrology.lisp
@@ -142,8 +142,10 @@
 
 
 (define-script-special-form slot-value (obj slot)
-  (make-instance 'js-slot-value :object (compile-to-expression obj)
-   		   :slot (compile-script-form slot)))
+  (if (ps::expand-script-form slot)
+      (make-instance 'js-slot-value :object (compile-to-expression obj)
+                     :slot (compile-script-form slot))
+      (compile-to-expression obj)))
 
 ;;; cond
 (define-script-special-form cond (&rest clauses)