diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 17:42:06 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-20 17:42:06 +0200 |
| commit | 8fb03a90cefc9ecae75f92890854f3623f2f5f83 (patch) | |
| tree | e0292363e95ce664717dabd3ab0f07637d8df7af | |
| parent | 529e7bf132551843334333102f395570a6b94dd9 (diff) | |
LAMBDA: Don't spuriously error out on non-KEYWORDP keyword arguments.
| -rw-r--r-- | sb-eval2.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 7df1f09..8216bdf 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -621,7 +621,7 @@ :format-arguments (list k))) (setq keys-checked-p t)) (go aux)) - (let* ((key (the keyword (pop my-keywords))) + (let* ((key (the symbol (pop my-keywords))) (val* (pop my-default-values*)) (x (getf rest key unbound))) (if (eq unbound x) |