From 868c300ada4095e0e32ad4495b61aed02b23bfc0 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 1 May 2019 22:04:41 -0400
Subject: Added support for ECL.

---
 lux-cl/source/program.lux | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index fc1f37765..5c5a249c8 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -301,6 +301,14 @@
            #platform.phase common-lisp.generate
            #platform.runtime runtime.generate})))
 
+(def: get-ecl-cli-inputs
+  (let [@idx (_.var "i")]
+    (_.call/* (_.var "loop")
+              (list (_.var "for") @idx
+                    (_.var "from") (_.int +0)
+                    (_.var "below") (_.call/* (_.var "si:argc") (list))
+                    (_.var "collect") (_.call/* (_.var "si:argv") (list @idx))))))
+
 (def: program
   (-> (_.Expression Any) (_.Expression Any))
   (let [raw-inputs ($_ _.progn
@@ -308,6 +316,7 @@
                        (_.conditional+ (list "sbcl") (_.var "sb-ext:*posix-argv*"))
                        (_.conditional+ (list "clozure") (_.call/* (_.var "ccl::command-line-arguments") (list)))
                        (_.conditional+ (list "gcl") (_.var "si:*command-args*"))
+                       (_.conditional+ (list "ecl") ..get-ecl-cli-inputs)
                        (_.conditional+ (list "cmu") (_.var "extensions:*command-line-strings*"))
                        (_.conditional+ (list "allegro") (_.call/* (_.var "sys:command-line-arguments") (list)))
                        (_.conditional+ (list "lispworks") (_.var "sys:*line-arguments-list*"))
-- 
cgit v1.2.3