common-lisp/goose121.clx-truetype
1
0
Fork 0
mirror of https://github.com/goose121/clx-truetype.git synced 2026-09-10 07:16:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix type error when safety is 3

Browse source
This commit is contained in:
madand 2020-10-16 02:36:52 +03:00
parent c6e10a918d
commit e1ab3cbd9e
No known key found for this signature in database
GPG key ID: D926DB0B02A1F3B0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
clx-truetype.lisp
View file

@ -5,7 +5,7 @@
(defclass font ()
((family :type string :initarg :family :accessor font-family :documentation "Font family.")
(subfamily :type string :initarg :subfamily :accessor font-subfamily :documentation "Font subfamily. For e.g. regular, italic, bold, bold italib.")
(size :type numeric :initarg :size :accessor font-size :initform 12 :documentation "Font size in points.")
(size :type real :initarg :size :accessor font-size :initform 12 :documentation "Font size in points.")
(underline :type boolean :initarg :underline :initform nil :accessor font-underline :documentation "Draw line under text string.")
(strikethrough :type boolean :initarg :strikethrough :initform nil :accessor font-strikethrough :documentation "Draw strike through text string.")
(overline :type boolean :initarg :overline :initform nil :accessor font-overline :documentation "Draw line over text string.")