From 9b1a3764c500019436f23877a9ae7fd0c652f994 Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sat, 22 Dec 2012 02:30:31 +0000 Subject: [PATCH] Fix c*r functions --- test.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4