From 1627a6b3b19408e961e6f29fb5ca9223b964e86d Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 14 Aug 1990 17:44:22 +0000
Subject: [PATCH] Fixed broken declarations.

---
 clx/gcontext.lisp | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/clx/gcontext.lisp b/clx/gcontext.lisp
index 4d3b30b1d..298cb35fc 100644
--- a/clx/gcontext.lisp
+++ b/clx/gcontext.lisp
@@ -623,10 +623,9 @@
     (if setfs
 	`(multiple-value-bind (,gc ,saved-state ,temp-mask ,temp-gc)
 	     (copy-gcontext-local-state ,gcontext ',indexes ,@extension-indexes)
-	   (declare (type gcontext ,gc)
+	   (declare (type gcontext ,gc ,temp-gc)
 		    (type gcontext-state ,saved-state)
-		    (type xgcmask ,temp-mask)
-		    (type (or null resource-id) ,temp-gc))
+		    (type xgcmask ,temp-mask))
 	   (with-gcontext-bindings (,gc ,saved-state
 					,(append indexes extension-indexes)
 				    ,ts-index ,temp-mask ,temp-gc)
-- 
GitLab