From 78fc83e4c9ef32edff95f4654d8f0791e75e36f0 Mon Sep 17 00:00:00 2001 From: Daniel Kochmanski Date: Fri, 21 Jul 2017 12:04:30 +0200 Subject: [PATCH] cmpmain: remove unused variable --- src/cmp/cmpmain.lsp | 3 --- 1 file changed, 3 deletions(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 4da87142d..b56404630 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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)