Fix warnings on ABCL

Author: metawilm

Diff for: parser/lexer.lisp

@@ -432,8 +432,9 @@ Used by compiler to generate 'forbidden' identfiers.")
         (intern str (load-time-value (find-package :clpython.user))))))
 
 (defmethod read-kind ((kind (eql :dot)) c1 &rest args)
-  (declare (ignorable kind))
+  (declare (ignorable kind) (dynamic-extent args))
   (assert (char= c1 #\.))
+  (assert (null args))
   '[.])
 
 ;; String

Diff for: util/utils.lisp

@@ -14,8 +14,9 @@
            filename)
      &body body)
   "Automatically recompile when FASL is apparently intended for another implementation"
-  (declare (ignorable restart-name))
-  `(flet ((.invoke-recompile-restart (&optional c)
+  (declare (ignorable restart-name filename))
+  `(flet (#+(or allegro ccl sbcl lispworks)
+	  (.invoke-recompile-restart (&optional c)
             (declare (ignore c))
             ,(when restart-name
                `(progn