From 71fbb2a10672537a71f4f6accf1309aa6e8aa3fa Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Sun, 23 Dec 2012 20:39:53 +0000 Subject: [PATCH] Fix cddr and cdddr --- test.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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*)))) -- 1.7.10.4