Commit 390a096b authored by Michał Herda's avatar Michał Herda 🤔
Browse files

Merge branch 'lambda-list-fix' into 'master'

Don't check constancy of lambda list parameters

See merge request !38
parents 8514d8e6 eb2a170a
Loading
Loading
Loading
Loading
Loading
+1 −2
Original line number Diff line number Diff line
@@ -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)
+7 −0
Original line number Diff line number Diff line
@@ -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)