From c05a49772af66d4059f856218f0bea74d2462d45 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Sun, 26 Mar 2017 15:16:18 +0100 Subject: [PATCH] src/class-finalize.lisp (merge-class-lists): Zap pointless `:present' arg. Organization: Straylight/Edgeware From: Mark Wooding Since we don't actually print the `inconsistent-merge-error' anyway, fiddling with the presentation of the items doesn't do anything. --- src/class-finalize-impl.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp index f67c118..ce3282f 100644 --- a/src/class-finalize-impl.lisp +++ b/src/class-finalize-impl.lisp @@ -56,13 +56,8 @@ (defun merge-class-lists (lists pick) This is a convenience wrapper around the main `merge-lists' function. Given that class linearizations (almost?) always specify a custom - tiebreaker function, this isn't a keyword argument. Also, this wrapper - provides a standard presentation function so that any errors are presented - properly." - (merge-lists lists - :pick pick - :present (lambda (class) - (format nil "`~A'" (sod-class-name class))))) + tiebreaker function, this isn't a keyword argument." + (merge-lists lists :pick pick)) ;;; Tiebreaker functions. -- [mdw]