gdk:paintable-get-intrinsic-aspect-ratio-impl (paintable)

Method called from the gdk:paintable-intrinsic-aspect-ratio function.

(defmethod paintable-get-intrinsic-aspect-ratio-impl ((paintable paintable))
  (let ((width (paintable-get-intrinsic-width-impl paintable))
        (height (paintable-get-intrinsic-height-impl paintable)))
    (if (or (<= width 0) (<= height 0))
        0.0d0
        (coerce (/ width height) 'double-float))))    

The default method returns 0.0d0 or the width to height ratio as a double float.