diff --git a/src/lsp/ffi.lsp b/src/lsp/ffi.lsp index e3a7e1473..9aee273d8 100644 --- a/src/lsp/ffi.lsp +++ b/src/lsp/ffi.lsp @@ -607,6 +607,8 @@ (defmacro load-foreign-library (filename &key module supporting-libraries force-load) (declare (ignore module force-load supporting-libraries)) + (unless (constantp filename) + (error "~&LOAD-FOREIGN-LIBRARY: ~A is not a constant expression. This is currently not supported." filename)) `(eval-when (:compile-toplevel) (do-load-foreign-library ,filename)))