cosmetic: fix some compiler warnings

This commit is contained in:
Marius Gerbershagen 2020-04-26 18:45:40 +02:00
parent bae7d696a9
commit c6b4296bb8
46 changed files with 94 additions and 66 deletions

View file

@ -81,7 +81,7 @@
(defun bc-compile-file-pathname (name &key (output-file name) (type :fasl)
verbose print c-file h-file data-file
shared-data-file system-p load external-format)
(declare (ignore load c-file h-file data-file shared-data-file system-p verbose print))
(declare (ignore load c-file h-file data-file shared-data-file system-p verbose print external-format))
(let ((extension "fasc"))
(case type
((:fasl :fas) (setf extension "fasc"))