From 56611cbe6cc64ad65dd5e4421296efe102e31550 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Sat, 29 Jun 2013 18:32:05 +0200 Subject: [PATCH] Use destructuring-bind --- src/compiler.lisp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/compiler.lisp b/src/compiler.lisp index 71e74f8..10783e9 100644 --- a/src/compiler.lisp +++ b/src/compiler.lisp @@ -573,11 +573,7 @@ ((and (listp x) (eq (car x) 'lambda)) (compile-lambda (cadr x) (cddr x))) ((and (listp x) (eq (car x) 'named-lambda)) - ;; TODO: destructuring-bind now! Do error checking manually is - ;; very annoying. - (let ((name (cadr x)) - (ll (caddr x)) - (body (cdddr x))) + (destructuring-bind (name ll &rest body) (cdr x) (compile-lambda ll body :name (symbol-name name) :block name))) -- 1.7.10.4