Commit 34c69ac4 authored by ram's avatar ram

Flushed bogus macro arg type declaration in DEFINE-GCONTEXT-ACCESSOR.

parent 18c0b222
......@@ -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))
(type t default))
(let* ((gc-name (intern (concatenate 'string
(string 'gcontext-)
(string name)))) ;; in current package
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