sbcl update

This commit is contained in:
David Botton 2021-01-06 23:16:27 -05:00
parent 6494cb4388
commit 3ae5a8f594

View file

@ -30,6 +30,7 @@
(set-on-resize (window body) (set-on-resize (window body)
(lambda (obj) (lambda (obj)
(declare (ignore obj))
(setf bounds-x (parse-integer (width (window body)) :junk-allowed t)) (setf bounds-x (parse-integer (width (window body)) :junk-allowed t))
(setf bounds-y (parse-integer (height (window body)) :junk-allowed t)))) (setf bounds-y (parse-integer (height (window body)) :junk-allowed t))))