mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-22 12:33:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmpmain: remove unused variable

Browse source
This commit is contained in:
Daniel Kochmanski 2017-07-21 12:04:30 +02:00
parent f42cb506e0
commit 78fc83e4c9
1 changed files with 0 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/cmp/cmpmain.lsp
View file

@ -485,7 +485,6 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(o-name (si::coerce-to-filename
(compile-file-pathname tmp-name :type :object)))
submodules
(submodules-data ())
c-file)
(dolist (item (reverse lisp-files))
(let* ((path (etypecase item
@ -509,8 +508,6 @@ output = si_safe_eval(2, ecl_read_from_cstring(lisp_code), ECL_NIL);
(when flags (push flags ld-flags))
(when init-fn
(push (list init-fn path) submodules)))))
(setf submodules-data (apply #'concatenate '(array base-char (*))
submodules-data))
(setq c-file (open c-name :direction :output :external-format :default))
(format c-file +lisp-program-header+ submodules)