anchor.diff:  ;; 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 $
  +;; $Id: cairo.lisp,v 1.4 2006-02-08 22:19:44 espen Exp $
   
   (in-package "CAIRO")
   
  
positive.code: 
  (defmethod initialize-instance ((scaled-font scaled-font) &key font-face font-matrix cmt options)
    (setf
     (slot-value scaled-font 'location)
     (%scaled-font-create font-face font-matrix cmt options))
    (call-next-method))
  
  
negative.code: 
  (defmethod initialize-instance ((font-options font-options) &rest initargs)
    (declare (ignore initargs))
    (setf (foreign-location font-options) (%font-options-create))
    (call-next-method))
  
  (defbinding font-options-merge () nil
  