From 50fa0942414213e4d577979f37a17ed5bdd2617c Mon Sep 17 00:00:00 2001 From: Keno Fischer Date: Mon, 30 Jun 2014 15:43:43 -0400 Subject: [PATCH] Remove left over caddddr --- src/flisp/system.lsp | 1 - 1 file changed, 1 deletion(-) diff --git a/src/flisp/system.lsp b/src/flisp/system.lsp index 465296ac4bf69..667d0c03ff11b 100644 --- a/src/flisp/system.lsp +++ b/src/flisp/system.lsp @@ -173,7 +173,6 @@ (define (cddadr x) (cdr (cdr (car (cdr x))))) (define (cdddar x) (cdr (cdr (cdr (car x))))) (define (cddddr x) (cdr (cdr (cdr (cdr x))))) -(define (caddddr x) (car (cdr (cdr (cdr (cdr x)))))) (let ((*values* (list '*values*))) (set! values