From 4b64aeef18655c33e033e9e0eadf939f51581d5e Mon Sep 17 00:00:00 2001 Message-Id: <4b64aeef18655c33e033e9e0eadf939f51581d5e.1715339275.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sun, 26 Mar 2017 15:16:18 +0100 Subject: [PATCH] src/builtin.lisp (method-keyword-argument-lists): Don't `delete-duplicates'. Organization: Straylight/Edgeware From: Mark Wooding No idea why this was here. The `merge-keyword-lists' function copes fine with duplicate names. And the `:key' argument was hopelessly wrong, so the code could never have worked. --- src/builtin.lisp | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/src/builtin.lisp b/src/builtin.lisp index c7cb148..c49f263 100644 --- a/src/builtin.lisp +++ b/src/builtin.lisp @@ -297,17 +297,15 @@ (defmethod sod-message-effective-method-class (defmethod method-keyword-argument-lists ((method initialization-effective-method) direct-methods) (append (call-next-method) - (delete-duplicates - (mapcan (lambda (class) - (let ((initargs (sod-class-initargs class))) - (and initargs - (list (cons (mapcar #'sod-initarg-argument - initargs) - (format nil "initargs for ~A" - class)))))) - (sod-class-precedence-list - (effective-method-class method))) - :key #'argument-name))) + (mapcan (lambda (class) + (let ((initargs (sod-class-initargs class))) + (and initargs + (list (cons (mapcar #'sod-initarg-argument + initargs) + (format nil "initargs for ~A" + class)))))) + (sod-class-precedence-list + (effective-method-class method))))) (defmethod lifecycle-method-kernel ((method initialization-effective-method) codegen target) -- [mdw]