From 34c69ac4f0e94d8f07fd582f05f2d16f29e3311d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 11:40:13 +0000 Subject: [PATCH] Flushed bogus macro arg type declaration in DEFINE-GCONTEXT-ACCESSOR. --- clx/gcontext.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/clx/gcontext.lisp b/clx/gcontext.lisp index ad718d121..4d3b30b1d 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 -- GitLab