anchor.diff:     default))
   
   (defun exit (&optional (status 0))
  - #+ccl (ccl:quit status)
  - ;; http://www.sbcl.org/manual/#Exit
  - #+sbcl (sb-ext:exit :code status)
  - ;; http://franz.com/support/documentation/9.0/doc/operators/excl/exit.htm
  - #+allegro (excl:exit status :quiet t)
  - #+clisp (ext:quit status)
  - #+cmu (unix:unix-exit status)
  - #+ecl (ext:quit status)
  - #-(or ccl sbcl allegro clisp cmu ecl) (cl-user::quit))
  +  #+ccl (ccl:quit status)
  +  ;; http://www.sbcl.org/manual/#Exit
  +  #+sbcl (sb-ext:exit :code status)
  +  ;; http://franz.com/support/documentation/9.0/doc/operators/excl/exit.htm
  +  #+allegro (excl:exit status :quiet t)
  +  #+clisp (ext:quit status)
  +  #+cmu (unix:unix-exit status)
  +  #+ecl (ext:quit status)
  +  #-(or ccl sbcl allegro clisp cmu ecl) (cl-user::quit))
   
   (defun cim_home (path)
     (concatenate 'string (getenv "CIM_HOME") path))
  
positive.code:                            (*package* (find-package :cl)))
                         (with-input-from-string (in (opt :sexp))
                           (loop :for sexp := (read in nil +eof+)
                                 :until (eq sexp +eof+) :do
                                   (eval sexp)))))
                      ((car *argv*)
                       (let ((*load-print* nil)
                             (stream (remove-shebang (open (pop *argv*) :if-does-not-exist :error))))
  
negative.code:                      (let ((+eof+ (gensym "eof"))
                             (*package* (find-package :cl)))
                         (loop
                            :for sexp := (read *standard-input* nil +eof+)
                            :until (eq sexp +eof+) :do
                            (eval sexp)))))
                  #+(or allegro ccl clisp ecl sbcl)
                  (#.*interrupt-condition* () (exit))
                  (error (e)
  