ARNESI

A Trivial Compatability Layer 

Here we only have the QUIT function, see mopp.lisp for a MOP campatability layer.

(defun quit (&optional (exit-code 0))
  #+openmcl (ccl:quit exit-code)
  #+sbcl (sb-ext:quit :unix-status exit-code)
  #+clisp (ext:quit exit-code)
  #+cmu (declare (ignore exit-code))
  #+cmu (ext:quit)
  )