diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 18:55:03 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-27 18:55:03 +0200 |
commit | 2e2b608c4f04f9a5591f354029c257453b6c31cf (patch) | |
tree | c70668a5980bced7c54a4c81c038bfe9fe8c5a74 /destructuring-bind.lisp | |
parent | ab6010f8463ec21ed50de38ffad29e8fb6ba4867 (diff) |
Add ASSOC{-IF{-NOT}}, COMPLEMENT, CONSTANTLY, COPY-TREE, IDENTITY, RASSOC{-IF{-NOT}}, and {N}SUBLIS.
Diffstat (limited to 'destructuring-bind.lisp')
-rw-r--r-- | destructuring-bind.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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) |