set up build and deployment

main.lisp

@@ -6,9 +6,17 @@
 
 (defun main ()
   (sb-ext:disable-debugger)
-  (let ((args (rest sb-ext:*posix-argv*)))
+  (let ((program-name (car sb-ext:*posix-argv*))
+        (args (rest sb-ext:*posix-argv*)))
     (when (member "--fail" args :test #'string=)
-      (error "Simulated error!"))))
+      (error "Simulated error!"))
+    (when (member "--version" args :test #'string=)
+      (let ((write-time (file-write-date program-name)))
+       (multiple-value-bind (second minute hour date month year)
+           (decode-universal-time write-time)
+         (let ((dt (format nil "~4,'0d-~2,'0d-~2,'0d ~2,'0d:~2,'0d:~2,'0d"
+                           year month date hour minute second)))
+           (format t "lispostory, created ~a~%" dt)))))))
 
 (defun create-exe-and-die ()
   (sb-ext:save-lisp-and-die