From b8bf525d3b0cf41f83de08ac4e43d76edb0174bd Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 23 Dec 2012 20:54:23 +0000 Subject: [PATCH] Fix c*r and order them --- test.lisp | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) 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)) -- 1.7.10.4