From: David Vazquez <davazp@gmail.com>
Date: Sat, 22 Dec 2012 02:30:31 +0000 (+0000)
Subject: Fix c*r functions
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9b1a3764c500019436f23877a9ae7fd0c652f994;p=jscl.git

Fix c*r functions
---

diff --git a/test.lisp b/test.lisp
index 9a6dbab..f56ff77 100644
--- a/test.lisp
+++ b/test.lisp
@@ -62,8 +62,8 @@
 (defun car (x) (car x))
 (defun caar (x) (car (car x)))
 (defun cadr (x) (car (cdr x)))
-(defun caddr (x) (car (cdr x)))
-(defun cadddr (x) (car (cdr x)))
+(defun caddr (x) (car (cdr (cdr x))))
+(defun cadddr (x) (car (cdr (cdr (cdr x)))))
 (defun cdr (x) (cdr x))
 (defun cdar (x) (cdr (car x)))
 (defun cddr (x) (cdr (cdr x)))
@@ -948,4 +948,4 @@
   (js-eval (ls-compile x nil nil)))
 
 
-(debug (ls-compile '(+ 1 2) nil nil))
+(debug (ls-compile 't nil nil))