mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-23 13:01:42 -08:00
10 lines
379 B
Common Lisp
10 lines
379 B
Common Lisp
;;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOS -*-
|
|
;;;;
|
|
(defvar std-compile (symbol-function 'compile-file))
|
|
(defun compile-file (file &key (output-file (make-pathname :type "o" :defaults file)))
|
|
(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"))
|