mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-02 07:30:55 -08:00
8 lines
300 B
Common Lisp
8 lines
300 B
Common Lisp
(defvar std-compile (symbol-function 'compile-file))
|
|
(defun compile-file (file &key (output-file (merge-pathnames file ".o")))
|
|
(funcall std-compile
|
|
file
|
|
:c-file t :h-file t :data-file t :system-p t
|
|
:output-file nil))
|
|
|
|
;(setq compiler:*cc* (concatenate 'STRING compiler:*cc* " -I../h"))
|