X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;fp=src%2Fpcl%2Fdefs.lisp;h=6ac72de954daac5c9fd299e8ffce80be2869b9ed;hb=a6c4b66e040824da2fc76e101f92940e8412c6d3;hp=597a1b2b5a65fae27b6e85895dbdaba0f7a9436a;hpb=a189a69454ef7635149319ae213b337f17c50d20;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 597a1b2..6ac72de 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -307,9 +307,7 @@
                             definition-source-mixin
                             metaobject
                             funcallable-standard-object)
-  ((%documentation
-    :initform nil
-    :initarg :documentation)
+  ((%documentation :initform nil :initarg :documentation)
    ;; We need to make a distinction between the methods initially set
    ;; up by :METHOD options to DEFGENERIC and the ones set up later by
    ;; DEFMETHOD, because ANSI specifies that executing DEFGENERIC on
@@ -321,9 +319,8 @@
    ;; DEFMETHOD, then modifying and reloading a.lisp and/or b.lisp
    ;; tends to leave the generic function in a state consistent with
    ;; the most-recently-loaded state of a.lisp and b.lisp.)
-   (initial-methods
-    :initform ()
-    :accessor generic-function-initial-methods))
+   (initial-methods :initform () :accessor generic-function-initial-methods)
+   (encapsulations :initform () :accessor generic-function-encapsulations))
   (:metaclass funcallable-standard-class))
 
 (defclass standard-generic-function (generic-function)