Incorrect &allow-other-keys

[vlad]

SBCL

CL-USER> (defun frob-lambda
    (&rest properties
     &key name (initargs ()) (initform nil) (initfunction nil) (readers ()) (writers ()) (allocation :instance)
     &allow-other-keys)
(print properties) (print (getf properties :kik)))

(frob-lambda :kik 1)
=> 1

JSCL

CL-USER> (defun frob-lambda
    (&rest properties
     &key name (initargs ()) (initform nil) (initfunction nil) (readers ()) (writers ()) (allocation :instance)
     &allow-other-keys)
(print properties) (print (getf properties :kik)))

CL-USER> (frob-lambda :kik 1)
ERROR: Unknown keyword argument KIK
CL-USER>