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