Generic protocols to deal with fonts and glyphs. Not meant to be :USEd, use the package prefixes.
for such fine purposes as (i cannibalized this from somewhere and don't think I left it in a working state)
(defun string-paths (string font &key (kerning t))
(let ((font (font:open font)))
(loop :for char :across string
:for previous := nil :then glyph
:for glyph := (font:glyph char font)
:for offset := 0 :then (+ offset (glyph:advance-width glyph))
:for paths := (glyph:paths glyph :offset (cons offset 0))
:when paths :collect it
:when (and kerning previous)
:do (incf offset (glyph:kerning previous glyph)))))