anchor.diff:                                      (convert-supporting-libraries-to-string
                                        supporting-libraries))))
   
  -          #-cmu
  +          #-(or cmu scl)
             (cffi:load-foreign-library filename)
  -
             (push filename *loaded-libraries*)
             t))))
   
  
positive.code:         (find filename *loaded-libraries* :test #'string-equal))
          t ;; return T, but don't reload library
          (progn
  
            #+cmu
            (let ((type (pathname-type (parse-namestring filename))))
              (if (string-equal type "so")
  
negative.code:   "Return the address of a pointer."
    `(cffi:pointer-address ,ptr))
  
  (defmacro deref-pointer (ptr type)
    "Dereference a pointer."
    `(cffi:mem-ref ,ptr (convert-uffi-type ,type)))
  
  (defsetf deref-pointer (ptr type) (value)
    `(setf (cffi:mem-ref ,ptr (convert-uffi-type ,type)) ,value))
  
  (defmacro ensure-char-character (obj &environment env)
    "Convert OBJ to a character if it is an integer."
  