From: David Vazquez <davazp@gmail.com>
Date: Mon, 28 Jan 2013 15:38:52 +0000 (+0000)
Subject: Primary value of (values) is NIL
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3873c3aa6bd817ec6b3acf522f00680063757290;p=jscl.git

Primary value of (values) is NIL
---

diff --git a/ecmalisp.js b/ecmalisp.js
index 174e88a..74131ed 100644
--- a/ecmalisp.js
+++ b/ecmalisp.js
@@ -1,4 +1,6 @@
-function pv (x) { return x ; }
+var nil;
+
+function pv (x) { return x==undefined? nil: x; }
 
 function mv(){
     var r = [];
@@ -46,6 +48,7 @@ var l2 = {name: "DECLAIM"};
 l2;
 var l3 = {name: "NIL"};
 ((l3).value = l3);
+(nil = l3.value);
 var l4 = {name: "T"};
 ((l4).value = l4);
 var l5 = {name: "WHEN"};
@@ -7474,7 +7477,7 @@ var l303 = {name: "LS-MACROEXPAND-1"};
     return l303;
 })();
 var l304 = {name: "COMPILE-FUNCALL"};
-var l305 = {name: "G764"};
+var l305 = {name: "G870"};
 (function(){
     (l304).fvalue = (function(v786){
         ((v786)["fname"] = "COMPILE-FUNCALL");
diff --git a/ecmalisp.lisp b/ecmalisp.lisp
index 6e2ac9f..83d41df 100644
--- a/ecmalisp.lisp
+++ b/ecmalisp.lisp
@@ -42,6 +42,7 @@
 
   (declaim (constant nil t) (special t nil))
   (setq nil 'nil)
+  (js-vset "nil" nil)
   (setq t 't)
 
   (defmacro when (condition &body body)
diff --git a/prelude.js b/prelude.js
index cf976a0..8321608 100644
--- a/prelude.js
+++ b/prelude.js
@@ -1,4 +1,6 @@
-function pv (x) { return x ; }
+var nil;
+
+function pv (x) { return x==undefined? nil: x; }
 
 function mv(){
     var r = [];