Here is the fix in case you don't want to retrieve the changes from SVN.
(defun modifier= (mod key)
"Returns `MOD` if all of the modifiers in `MOD` exactly match `KEY`, or
returns `NIL` otherwise. `MOD` may be a list of modifiers, or a single
modifier."
;; Make mod a list, if not already.
(when (and (> (length (modifier-p key)) 0)
(= (length (modifier-p key))
(length (modifier-p key mod))))
mod))
- Luke
On Wed, 21 Jan 2009 14:21:25 -0800, Luke Crook <[email protected]> wrote:
> On Wed, 21 Jan 2009 12:50:10 -0800, Stuart Overton
> <[email protected]> wrote:
>
>> Luke:
>> Is the intention of MODIFIER= to return MOD if KEY is 0?
>
> Oops, no :)
>
> Pushed a fix to SVN.
>
> - Luke
> _______________________________________________
> application-builder mailing list
> [email protected]
> http://www.lispniks.com/mailman/listinfo/application-builder
_______________________________________________
application-builder mailing list
[email protected]
http://www.lispniks.com/mailman/listinfo/application-builder
