Modified make and make-install to make it easier to generate a patch of the running...
authorSaba Saba <saba@sabadev.xyz>
Thu, 9 Feb 2023 17:26:21 +0000 (12:26 -0500)
committerSaba Saba <saba@sabadev.xyz>
Thu, 9 Feb 2023 17:26:21 +0000 (12:26 -0500)
git-repl.cl

index 0574ce2..8fd2c28 100644 (file)
         (terpri)
         (force-output)))))
 
-(defun-public make (executable-name)
+(defun-public make (executable-name &key (source-file nil))
   "Compiles the current state into an executable"
   (progn
-    (load (compile-file "git-repl.cl"))
+    (if source-file
+        (load (compile-file source-file))
+        nil)
     (save-lisp-and-die executable-name :toplevel #'main :executable t)))
 
-(defun-public make-install ()
+(defun-public make-install (&key (source-file "git-repl.cl"))
   "Compiles the current state into an executable and installs it to *installation-file*"
-  (make *installation-file*))
+  (make *installation-file* :source-file source-file))