From ef3a84b05c924ae5978bdc7336120a5adb9713b4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 30 May 2021 00:23:22 -0400
Subject: More adjustments for Common Lisp.

---
 lux-cl/source/program.lux | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 89b2b937c..1a3b767a4 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -334,7 +334,7 @@
             )))))
 
 (def: platform
-  (IO (Platform _.Var/1 (_.Expression Any) (_.Expression Any)))
+  (IO (Platform [_.Tag Register] (_.Expression Any) (_.Expression Any)))
   (do io.monad
     [host ..host]
     (wrap {#platform.&file_system (file.async file.default)
@@ -353,16 +353,15 @@
 
 (def: (program context program)
   (Program (_.Expression Any) (_.Expression Any))
-  (let [raw_inputs ($_ _.progn
-                       (_.conditional+ (list "clisp") (_.var "ext:*args*"))
-                       (_.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*"))
-                       (_.list/* (list)))]
+  (let [raw_inputs (_.progn (list (_.conditional+ (list "clisp") (_.var "ext:*args*"))
+                                  (_.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*"))
+                                  (_.list/* (list))))]
     (_.call/2 [(runtime.lux//program_args raw_inputs) _.nil] program)))
 
 (for {@.old
@@ -422,7 +421,7 @@
                                  generation.bundle
                                  extension/bundle.empty
                                  ..program
-                                 [_.Var _.Expression _.Expression]
+                                 [(& _.Tag Register) (type (_.Expression Any)) (type (_.Expression Any))]
                                  ..extender
                                  service
                                  [(packager.package (_.manual "")
-- 
cgit v1.2.3