src/class-finalize.lisp (merge-class-lists): Zap pointless `:present' arg.

Since we don't actually print the `inconsistent-merge-error' anyway,
fiddling with the presentation of the items doesn't do anything.

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index f67c1187af6760a3a5b5a4e65d77890b28d63a24..ce3282f5eaa792f85688ec5c81bea04339ffc15e 100644 (file)
--- 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
 
    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.
 
 
 ;;; Tiebreaker functions.