anchor.diff:  
   (defmethod initialize-instance ((font-options font-options) &rest initargs)
     (declare (ignore initargs))
  -  (setf (slot-value font-options 'location) (%font-options-create))
  +  (setf (foreign-location font-options) (%font-options-create))
     (call-next-method))
   
   (defbinding font-options-merge () nil
  
positive.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")
  
  
negative.code: 
  (defmethod initialize-instance ((scaled-font scaled-font) &key font-face font-matrix cmt options)
    (setf
     (foreign-location scaled-font)
     (%scaled-font-create font-face font-matrix cmt options))
    (call-next-method))
  
  