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