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 (file)
--- 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)