From 2754ec3e504ea5ea6ed42bcbfe2312cdb8b3007d Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Tue, 15 Nov 2016 11:09:39 +0100 Subject: [PATCH] Cosmetic improvements in PCL code --- src/pcl/defcombin.lisp | 2 +- src/pcl/methods.lisp | 8 ++++---- src/pcl/print-object.lisp | 2 +- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/pcl/defcombin.lisp b/src/pcl/defcombin.lisp index 129178a1e..9a8db43f9 100644 --- a/src/pcl/defcombin.lisp +++ b/src/pcl/defcombin.lisp @@ -231,7 +231,7 @@ (reference-condition simple-error) () (:default-initargs - :references (list '(:ansi-cl :macro define-method-combination)))) + :references (list '(:ansi-cl :macro define-method-combination)))) ;;; NOTE: ;;; diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp index 7868ebb57..e3da62848 100644 --- a/src/pcl/methods.lisp +++ b/src/pcl/methods.lisp @@ -516,10 +516,10 @@ (analyze-lambda-list (method-lambda-list old-method))) ((b-llks b-nreq b-nopt) (analyze-lambda-list new-lambda-list))) - (and (= a-nreq b-nreq) - (= a-nopt b-nopt) - (eq (ll-keyp-or-restp a-llks) - (ll-keyp-or-restp b-llks)))))) + (and (= a-nreq b-nreq) + (= a-nopt b-nopt) + (eq (ll-keyp-or-restp a-llks) + (ll-keyp-or-restp b-llks)))))) (multiple-value-bind (lock qualifiers specializers new-lambda-list method-gf name) (values-for-add-method generic-function method) diff --git a/src/pcl/print-object.lisp b/src/pcl/print-object.lisp index fe552085b..23b423023 100644 --- a/src/pcl/print-object.lisp +++ b/src/pcl/print-object.lisp @@ -101,7 +101,7 @@ (defmethod print-object ((mc standard-method-combination) stream) (print-unreadable-object (mc stream :type t :identity t) - (format stream "~S ~S" + (format stream "~S ~:S" (slot-value-for-printing mc 'type-name) (slot-value-for-printing mc 'options)))) -- 2.11.4.GIT