From: David Vazquez <davazp@gmail.com>
Date: Sun, 23 Dec 2012 20:54:23 +0000 (+0000)
Subject: Fix c*r and order them
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b8bf525d3b0cf41f83de08ac4e43d76edb0174bd;p=jscl.git

Fix c*r and order them
---

diff --git a/test.lisp b/test.lisp
index 10d50d3..101964c 100644
--- a/test.lisp
+++ b/test.lisp
@@ -69,14 +69,17 @@
 (defun consp (x) (consp x))
 
 (defun car (x) (car x))
+(defun cdr (x) (cdr x))
+
 (defun caar (x) (car (car x)))
 (defun cadr (x) (car (cdr x)))
+(defun cdar (x) (cdr (car x)))
+(defun cddr (x) (cdr (cdr x)))
+
 (defun caddr (x) (car (cdr (cdr x))))
+(defun cdddr (x) (cdr (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 (cdr x))))
-(defun cdddr (x) (cdr (cdr (cdr (cdr x)))))
 
 (defun first (x) (car x))
 (defun second (x) (cadr x))