Commit 1627a6b3 authored by ram's avatar ram

Fixed broken declarations.

parent 4f7ddc3d
......@@ -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)
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