X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=ecmalisp.js;h=74131ed3f34257b45b1554967d680d543dff2f0a;hb=3873c3aa6bd817ec6b3acf522f00680063757290;hp=174e88a45f3fb8d9bc8932898690b9d0d61e3f29;hpb=845aad879287d067fffa6a872e03a24935bf8fc6;p=jscl.git 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");