From: David Vázquez <davazp@gmail.com>
Date: Sat, 29 Jun 2013 16:32:05 +0000 (+0200)
Subject: Use destructuring-bind
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=56611cbe6cc64ad65dd5e4421296efe102e31550;p=jscl.git

Use destructuring-bind
---

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)))