Loading alexandria-1/macros.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -186,8 +186,7 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed." (check-variable (elt what &optional (allow-specializers allow-specializers)) (unless (and (or (symbolp elt) (and allow-specializers (consp elt) (= 2 (length elt)) (symbolp (first elt)))) (not (constantp elt))) (consp elt) (= 2 (length elt)) (symbolp (first elt))))) (simple-program-error "Invalid ~A ~S in ordinary lambda-list:~% ~S" what elt lambda-list))) (check-spec (spec what) Loading alexandria-1/tests.lisp +7 −0 Original line number Diff line number Diff line Loading @@ -2089,3 +2089,10 @@ (not aux) (eq t keyp))) t) (deftest parse-ordinary-lambda-list.2 (handler-case (parse-ordinary-lambda-list '((symbol-name t)) :allow-specializers t) (:no-error (&rest vals) (declare (ignore vals)) :no-error)) :no-error) Loading
alexandria-1/macros.lisp +1 −2 Original line number Diff line number Diff line Loading @@ -186,8 +186,7 @@ Signals a PROGRAM-ERROR is the lambda-list is malformed." (check-variable (elt what &optional (allow-specializers allow-specializers)) (unless (and (or (symbolp elt) (and allow-specializers (consp elt) (= 2 (length elt)) (symbolp (first elt)))) (not (constantp elt))) (consp elt) (= 2 (length elt)) (symbolp (first elt))))) (simple-program-error "Invalid ~A ~S in ordinary lambda-list:~% ~S" what elt lambda-list))) (check-spec (spec what) Loading
alexandria-1/tests.lisp +7 −0 Original line number Diff line number Diff line Loading @@ -2089,3 +2089,10 @@ (not aux) (eq t keyp))) t) (deftest parse-ordinary-lambda-list.2 (handler-case (parse-ordinary-lambda-list '((symbol-name t)) :allow-specializers t) (:no-error (&rest vals) (declare (ignore vals)) :no-error)) :no-error)