anchor.diff:                             (*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)))))
  +                            :until (eq sexp +eof+) :do
  +                            (eval sexp)))))
                       ((car *argv*)
                        (let ((*load-print* nil)
                              (stream (remove-shebang (open (pop *argv*) :if-does-not-exist :error))))
  
positive.code:    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))
  
  (defun cim_home (path)
    (concatenate 'string (getenv "CIM_HOME") path))
  
negative.code:   (let* ((buffer-size 4096)
           (buffer (make-array buffer-size :element-type 'character)))
      (with-output-to-string (str)
        (loop
           :for bytes-read = (read-sequence buffer stream)
           :do (write-sequence buffer str :start 0 :end bytes-read)
           :while (= bytes-read buffer-size)))))
  
  (defun canonicalize-path (path)
    (if (char= #\/ (aref path (1- (length path))))
  