Remove left over caddddr

JuliaLang · Aug 23, 2014 · 50fa094 · 50fa094
1 parent 4b95d5a
commit 50fa094
Showing 1 changed file with 0 additions and 1 deletion.
diff --git 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