Commit 8bc0a7f8 authored by wlott's avatar wlott

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.
parent ee6f0960
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment