-
-(defmacro compile-gfile (file-name)
- `(compile-file ,file-name :system-p t))
+(defmacro compile-gfile (file-name &key include)
+ `(progn
+ (setq compiler::*cc* (concatenate 'string compiler::*cc* ,include " "))
+ (compile-file ,file-name :system-p t)))