From 2e2b608c4f04f9a5591f354029c257453b6c31cf Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sun, 27 Jul 2008 18:55:03 +0200
Subject: Add ASSOC{-IF{-NOT}}, COMPLEMENT, CONSTANTLY, COPY-TREE, IDENTITY,
 RASSOC{-IF{-NOT}}, and {N}SUBLIS.

---
 destructuring-bind.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'destructuring-bind.lisp')

diff --git a/destructuring-bind.lisp b/destructuring-bind.lisp
index b819a16..1207649 100644
--- a/destructuring-bind.lisp
+++ b/destructuring-bind.lisp
@@ -89,7 +89,7 @@
                            (keyword-name
                             (if (and (consp head) (consp (car head)))
                                 (caar head)
-                                (intern (symbol-name var) '#:keyword))))
+                                (intern (symbol-name var) (find-package '#:keyword)))))
                       `(let* ((,sym ,expression)
                               (,value-sym (getf ,sym ,keyword-name ',missing))
                               ,@(cond ((atom head)
-- 
cgit v1.2.3