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