Data commit

Task/Program-name/Common-Lisp/program-name-1.lisp

@@ -0,0 +1,6 @@
+;;; Play nice with shebangs
+(set-dispatch-macro-character #\# #\!
+ (lambda (stream character n)
+  (declare (ignore character n))
+  (read-line stream nil nil t)
+  nil))

Task/Program-name/Common-Lisp/program-name-2.lisp

@@ -0,0 +1,30 @@
+#!/bin/sh
+#|
+exec clisp -q -q $0 $0 ${1+"$@"}
+exit
+|#
+
+;;; Usage: ./scriptname.lisp
+
+(defun main (args)
+ (let ((program (car args)))
+  (format t "Program: ~a~%" program)
+  (quit)))
+
+;;; With help from Francois-Rene Rideau
+;;; http://tinyurl.com/cli-args
+(let ((args
+       #+clisp (ext:argv)
+       #+sbcl sb-ext:*posix-argv*
+       #+clozure (ccl::command-line-arguments)
+       #+gcl si:*command-args*
+       #+ecl (loop for i from 0 below (si:argc) collect (si:argv i))
+       #+cmu extensions:*command-line-strings*
+       #+allegro (sys:command-line-arguments)
+       #+lispworks sys:*line-arguments-list*
+     ))
+
+  (if (member (pathname-name *load-truename*)
+              args
+              :test #'(lambda (x y) (search x y :test #'equalp)))
+    (main args)))