diff options
| -rw-r--r-- | hyperquirks.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/hyperquirks.lisp b/hyperquirks.lisp index 7c1f8e9..408a47b 100644 --- a/hyperquirks.lisp +++ b/hyperquirks.lisp @@ -159,7 +159,7 @@ some other package. (or (getf ,plist-var ,(intern (symbol-name (second var)) 'keyword)) (getf ,plist-var ',var))) else - collect `(,var (or (getf ,plist-var ,(intern (symbol-name var) 'keywword)) + collect `(,var (or (getf ,plist-var ,(intern (symbol-name var) 'keyword)) (getf ,plist-var ',var)))))) `(let ((,plist-var ,plist)) (let ,bindings |