From 8bc0a7f8ceebc74c6ee2ced93b6719d783de5126 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 8 Sep 1990 10:37:16 +0000 Subject: [PATCH] The expansion of with-gcontext declares the fourth value of copy-gcontext- local-state to be a gcontext, but it really is either NIL or a gcontext. --- clx/gcontext.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/clx/gcontext.lisp b/clx/gcontext.lisp index 298cb35fc..35c4b73e1 100644 --- a/clx/gcontext.lisp +++ b/clx/gcontext.lisp @@ -623,7 +623,8 @@ (if setfs `(multiple-value-bind (,gc ,saved-state ,temp-mask ,temp-gc) (copy-gcontext-local-state ,gcontext ',indexes ,@extension-indexes) - (declare (type gcontext ,gc ,temp-gc) + (declare (type gcontext ,gc) + (type (or null gcontext) ,temp-gc) (type gcontext-state ,saved-state) (type xgcmask ,temp-mask)) (with-gcontext-bindings (,gc ,saved-state -- GitLab