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