(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) #+allegro (excl:exit))