anchor.diff:    (location pointer))
   
   (defmethod reference-foreign ((class (eql (find-class 'font-options))) location)
  -  (%font-options-reference location))
  +  (%font-options-copy location))
   
   (defmethod unreference-foreign ((class (eql (find-class 'font-options))) location)
     (%font-options-destroy location))
  
positive.code:   (define-enum-type hint-style :default :none :slight :medium :full)
    (define-enum-type hint-metrics :default :off :on)
  
    (defclass glyph (proxy)
      ((index 
        :allocation :alien 
        :initarg :index 
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: cairo.lisp,v 1.3 2006-02-07 17:04:40 espen Exp $
  
  (in-package "CAIRO")
  
  