0.9.6.32:

[sbcl.git] / src / pcl / methods.lisp

diff --git a/src/pcl/methods.lisp b/src/pcl/methods.lisp
index 4122b7b..f333085 100644 (file)
--- a/src/pcl/methods.lisp
+++ b/src/pcl/methods.lisp
@@ -53,15 +53,15 @@
 ;;;
 ;;; Methods are not reinitializable.
 
-(define-condition metaobject-initialization-violation 
+(define-condition metaobject-initialization-violation
     (reference-condition simple-condition)
-  ())  
+  ())
 
 (macrolet ((def (name args control)
                `(defmethod ,name ,args
                  (declare (ignore initargs))
                  (error 'metaobject-initialization-violation
-                  :format-control ,(format nil "~@<~A~@:>" control )
+                  :format-control ,(format nil "~@<~A~@:>" control)
                   :format-arguments (list ',name)
                   :references (list '(:amop :initialization "Method"))))))
   (def reinitialize-instance ((method method) &rest initargs)
@@ -69,14 +69,14 @@
   (def change-class ((method method) new &rest initargs)
     "Method objects cannot be redefined by ~S.")
   ;; FIXME: NEW being a subclass of METHOD.
-  (def update-instance-for-redefined-class ((method method) added discarded 
+  (def update-instance-for-redefined-class ((method method) added discarded
                                             plist &rest initargs)
     "No behaviour specified for ~S on method objects.")
   (def update-instance-for-different-class (old (new method) &rest initargs)
     "No behaviour specified for ~S on method objects.")
   (def update-instance-for-different-class ((old method) new &rest initargs)
     "No behaviour specified for ~S on method objects."))
-  
+
 (defmethod legal-documentation-p ((object standard-method) x)
   (if (or (null x) (stringp x))
       t