diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-06-29 13:37:07 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-06-29 13:37:07 -0500 |
| commit | 969897a33f3d3ce171a1b18fdf24f6ab6bdac72a (patch) | |
| tree | 6e7511160e1bd6407ede2dde06e2a46eaa5f758d /src/interactive-units | |
| parent | ae79c2a84771cd535478503f441d5839aa6ef5cb (diff) | |
[dep] [update] hq:with-plists changed; updated accordingly
Diffstat (limited to 'src/interactive-units')
| -rw-r--r-- | src/interactive-units/text.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interactive-units/text.lisp b/src/interactive-units/text.lisp index f439621..1cecdbf 100644 --- a/src/interactive-units/text.lisp +++ b/src/interactive-units/text.lisp @@ -56,7 +56,7 @@ (setf vao vao% elem-count count%)) (setf newlines (count #\newline content)) - (hq:with-plist (l r) (cl-fond:compute-extent (font-object font) content) + (hq:with-plist ((l :l) (r :r)) (cl-fond:compute-extent (font-object font) content) (setf base-width (- r l) base-height (* (cl-fond:text-height (font-object font)) (1+ newlines)))))) |