From: David Vazquez <davazp@gmail.com>
Date: Sat, 22 Dec 2012 05:21:40 +0000 (+0000)
Subject: Fix NIL handling error
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=3c7553a717a4ac6168ba3cbd972a7446634ea609;p=jscl.git

Fix NIL handling error
---

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 7826970..fa7ed78 100644
--- a/lispstrack.lisp
+++ b/lispstrack.lisp
@@ -383,13 +383,9 @@
 
 (let ((counter 0))
   (defun literal (form)
-    (cond
-      ((null form)
-       (literal->js form))
-      (t
-       (let ((var (concat "l" (integer-to-string (incf counter)))))
-         (push (concat "var " var " = " (literal->js form)) *toplevel-compilations*)
-         var)))))
+    (let ((var (concat "l" (integer-to-string (incf counter)))))
+      (push (concat "var " var " = " (literal->js form)) *toplevel-compilations*)
+      var)))
 
 (define-compilation quote (sexp)
   (literal sexp))
diff --git a/test.lisp b/test.lisp
index b18e571..40707a0 100644
--- a/test.lisp
+++ b/test.lisp
@@ -626,13 +626,9 @@
 
 (let ((counter 0))
   (defun literal (form)
-    (cond
-      ((null form)
-       (literal->js form))
-      (t
-       (let ((var (concat "l" (integer-to-string (incf counter)))))
-         (push (concat "var " var " = " (literal->js form)) *toplevel-compilations*)
-         var)))))
+    (let ((var (concat "l" (integer-to-string (incf counter)))))
+      (push (concat "var " var " = " (literal->js form)) *toplevel-compilations*)
+      var)))
 
 (define-compilation quote (sexp)
   (literal sexp))