diff --git a/clx/gcontext.lisp b/clx/gcontext.lisp index ad718d121741ec191849da810793edfae0c5ee6b..4d3b30b1d3fc17f45d119c6b518540ef12851fe6 100644 --- a/clx/gcontext.lisp +++ b/clx/gcontext.lisp @@ -968,10 +968,7 @@ ;; (,set-function dst-gc value) ;; (error "Can't copy unknown GContext component ~a" ',name))) (declare (type symbol name) - (type t default) - (type (function (gcontext t) t) set-function) ;; required - (type (or null (function (gcontext gcontext t) t)) - copy-function)) + (type t default)) (let* ((gc-name (intern (concatenate 'string (string 'gcontext-) (string name)))) ;; in current package