From: David Vazquez <davazp@gmail.com>
Date: Sun, 23 Dec 2012 20:39:53 +0000 (+0000)
Subject: Fix cddr and cdddr
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=71fbb2a10672537a71f4f6accf1309aa6e8aa3fa;p=jscl.git

Fix cddr and cdddr
---

diff --git a/test.lisp b/test.lisp
index 99e75d0..10d50d3 100644
--- a/test.lisp
+++ b/test.lisp
@@ -75,8 +75,8 @@
 (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)))
-(defun cdddr (x) (cdr (cdr 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))
@@ -550,6 +550,7 @@
 (defun mark-binding-as-declared (b)
   (setcar (cdddr b) t))
 
+
 (defvar *variable-counter* 0)
 (defun gvarname (symbol)
   (concat "v" (integer-to-string (incf *variable-counter*))))