• :default - a coordinate system with its origin is in the upper left hand corner of the
  display device with y increasing from top to bottom and x increasing from left to right.
  
• :graphics - a coordinate system with its origin in the lower left hand corner of the display
  device with y increasing from bottom to top and x increasing from left to right.
  

Minor issue: I don't know how much of this is obsolete. | RSL

=> graft object [Generic Function]
Returns the graft currently associated with object. graft is defined for all sheet classes (includ-
ing streams that support the CLIM graphics protocol), mediums, and application frames. For
degrafted sheets or other objects that aren't currently associated with a particular graft, graft
will return nil.

=> map-over-grafts function port [Function]
Invokes function on each existing graft associated with the port port. function is a function of
one argument, the graft; it has dynamic extent.

=> with-graft-locked graft &body body [Macro]
Executes body after grabbing a lock associated with the graft graft, which may be a graft or any
object on which the function graft works. If object currently has no graft, body will be executed
without locking.

body may have zero or more declarations as its first forms.

=> graft-orientation graft [Generic Function]
Returns the orientation of the graft graft's coordinate system. The returned value will be ei-
ther :default or :graphics. The meanings of these values are the same as described for the
orientation argument to find-graft.

=> graft-units graft [Generic Function]
Returns the units of the graft graft's coordinate system. The returned value will be one of
:device, :inches, :millimeters, or :screen-sized. The meanings of these values are the
same as described for the units argument to find-graft.

=> graft-width graft &key (units :device) [Generic Function]
=> graft-height graft &key (units :device) [Generic Function]
Returns the width and height of the graft graft (and by extension the associated host window) in
the units indicated. Units may be any of :device, :inches, :millimeters, or :screen-sized.
The meanings of these values are the same as described for the units argument to find-graft.