Added some new packages, notably my compatibility functions

combinatorics.lisp

@@ -0,0 +1,15 @@
+(in-package :toolbox)
+
+(defun ! (n)
+  (cond ((or (= n 1) (= n 0)) 1)
+        (t (* n (! (1- n)))) ))
+
+(defun permute (n k)
+  (/ (! n)
+     (! (- n k)) ))
+
+(defun choose (n k)
+  (/ (! n)
+     (* (! (- n k))
+        (! k) )))
+

compat.lisp

@@ -0,0 +1,62 @@
+
+(in-package :toolbox)
+
+;; None are mine, but very handy.
+
+;; Read environment variables
+(defun getenv (name &optional default)
+  "Get an environment variable."
+  #+cmu
+  (let (( x (assoc name ext:*environment-list*
+                   :test #'string= )))
+    (if x (cdr x) default) )
+  #-cmu
+  (or #+allegro (sys:getenv name)
+      #+clisp (ext:getenv name)
+      #+ecl (si:getenv name)
+      #+sbcl (sb-unix::posix-getenv name)
+      #+lispworks (lispworks:environment-variable name)
+      #-(or allegro clisp ecl sbcl lispworks)
+      (progn (warn "Don't know how to get environment variables in this Lisp.  Using the default."))
+      default ))
+
+;; Read command line arguements
+(defun command-line ()
+  "Get `groomed' command line arguments.  These should just be the
+arguments left to you program."
+
+  #+sbcl (cdr sb-ext:*posix-argv*)
+  #+lispworks system:*line-arguments*
+  #+cmu extensions:*command-line-words*
+  #+clisp ext:*args*
+  #-(or sbcl lispworks cmu clisp)
+  (error "Don't know how to get command line arguments in this Lisp.") )
+
+(defun raw-command-line ()
+  "Get the raw command line.  Not very useful as it may contain all
+sorts of implementation dependent stuff.  See COMMAND-LINE for
+something a bit more useful."
+
+  #+sbcl sb-ext:*posix-argv*
+  #+clisp (argv)
+  ;; I don't know have these imps
+  #+(or lispworks allegro)
+  (command-line)
+  ;; Seems that command-line is the best I can do
+  #+(or cmu)
+  (command-line)
+  #-(or sbcl clisp lispworks allegro cmu)
+  (error "Don't know how to get command line arguments in this Lisp.") )
+
+
+;; From Arnesi
+(defun quit (&optional (exit-code 0))
+  #+openmcl (ccl:quit exit-code)
+  #+sbcl (sb-ext:quit :unix-status exit-code)
+  #+clisp (ext:quit exit-code)
+  #+(or cmu allegro) (declare (ignore exit-code))
+  #+cmu (ext:quit)
+  #+lispworks (lispworks:quit :status exit-code)
+  #+allegro (excl:exit)
+  #-(or openmcl sbcl cmu allegro lispworks)
+  (error "Don't know how to quit this Lisp.") )