Fix cddr and cdddr

diff --git a/test.lisp b/test.lisp
index 99e75d0..10d50d3 100644 (file)
--- 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*))))