anchor.diff:  ;; An interface to Kpathsea (TeX's file search library)
  -;; Copyright 2001, 2002 Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>
  +;; Copyright 2001, 2002, 2007 Matthias Koeppe <mkoeppe@mail.math.uni-magdeburg.de>
   ;;
   ;; This code is free software; you can redistribute it and/or
   ;; modify it under the terms of version 2.1 of the GNU Lesser 
  
positive.code: 	  (and line
  	       (parse-namestring line))
        (sb-ext:process-close process))))
    #-(or cmu sbcl)
    (let ((stream (port:pipe-input "kpsewhich" (namestring name))))
      (let ((line (read-line stream nil nil)))
        (prog1
  
negative.code: ;;(eval-when (:compile-toplevel :load-toplevel :execute)
  ;;  (cl:require :PORT))
  
  ;; #-(or cmu sbcl clisp)
  ;; (cl:require :PORT)
  
  (defun find-file (name)
    #+cmu
  