From 4491de71675a2ed5076015b654c94eeb6ee83a1e Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 11 Dec 1990 20:56:51 +0000
Subject: [PATCH] Ripped out *key-finder* stuff, 'cause it wasn't used and
 wasn't really implemented.  Fixed keyword-supplied-p to return T when the
 keyword is supplied irrespective of what the corresponding value is.

---
 code/defmacro.lisp | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/code/defmacro.lisp b/code/defmacro.lisp
index 848d5b47b..2536722f0 100644
--- a/code/defmacro.lisp
+++ b/code/defmacro.lisp
@@ -29,11 +29,6 @@
 (defvar *default-default* nil
   "Unsupplied optional and keyword arguments get this value defaultly.")
 
-(defvar *key-finder* 'keyword-argument
-  "The way we want to lookup keywords in macros at expansion time.  The default
-   does the obvious thing, returning a keyword's argument.  DEFTRANSFORM,
-   however does something more clever.")
-
 
 ;;;; Stuff to parse DEFMACRO, MACROLET, DEFINE-SETF-METHOD, and DEFTYPE.
 
@@ -46,7 +41,6 @@
 				   (doc-string-allowed t)
 				   ((:environment env-arg-name))
 				   ((:default-default *default-default*))
-				   ((:key-finder *key-finder*))
 				   (error-fun 'error))
   "Returns as multiple-values a parsed body, any local-declarations that
    should be made where this body is inserted, and a doc-string if there is
@@ -338,7 +332,7 @@
   (do ((remaining key-list (cddr remaining)))
       ((endp remaining))
     (when (eq keyword (car key-list))
-      (return (cadr key-list)))))
+      (return t))))
 
 
 
-- 
GitLab