From 312975ac8e262b678a263774b40f7a37423d840f Mon Sep 17 00:00:00 2001 From: cer <cer> Date: Tue, 10 Nov 1992 08:56:20 +0000 Subject: [PATCH] tk/font.lisp : Check for name being a string tk/resource.lisp : Convert-resource-out for font-struct handles value being a font object --- tk/font.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/tk/font.lisp b/tk/font.lisp index c0b8a535..8e8938f1 100644 --- a/tk/font.lisp +++ b/tk/font.lisp @@ -20,7 +20,7 @@ ;; 52.227-19 or DOD FAR Supplement 252.227-7013 (c) (1) (ii), as ;; applicable. ;; -;; $fiHeader: font.lisp,v 1.12 92/05/22 19:26:18 cer Exp $ +;; $fiHeader: font.lisp,v 1.13 92/08/18 17:53:31 cer Exp $ (in-package :tk) @@ -34,6 +34,7 @@ (defmethod initialize-instance :after ((f font) &key foreign-address display name) (unless foreign-address + (check-type name string) (let ((x (x11:xloadqueryfont display name))) (when (zerop x) (error "Cannot find font: ~S" name)) (setf (foreign-pointer-address f) x) -- GitLab