From 3c7553a717a4ac6168ba3cbd972a7446634ea609 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 22 Dec 2012 05:21:40 +0000 Subject: [PATCH] Fix NIL handling error --- lispstrack.lisp | 10 +++------- test.lisp | 10 +++------- 2 files changed, 6 insertions(+), 14 deletions(-) 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)) -- 1.7.10.4