Commit eb2a170a authored by Alex Wood's avatar Alex Wood
Browse files

Define test for issue #49

Note that this would only fail if (constantp '(symbol-name t)) is
true, which is only the case on SBCL as far as I know.
parent 32ad04f1
Loading
Loading
Loading
Loading
+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)