X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fdefs.lisp;h=ebf2effc24084aa4ef51c7a90d6e20bf907b0089;hb=a96369c72588c5457d71d6aaea35f2c450b19ef5;hp=76d5b8d1c01859a007ec92c1a24284b8852be8ca;hpb=4cf9c8955fc99aa5718eb4b265360578d0de29e0;p=sbcl.git

diff --git a/src/pcl/defs.lisp b/src/pcl/defs.lisp
index 76d5b8d..ebf2eff 100644
--- a/src/pcl/defs.lisp
+++ b/src/pcl/defs.lisp
@@ -472,7 +472,7 @@
 
 (defclass definition-source-mixin (std-object)
   ((source
-    :initform *load-truename*
+    :initform *load-pathname*
     :reader definition-source
     :initarg :definition-source))
   (:metaclass std-class))
@@ -772,6 +772,10 @@
    (method-combination
     :initarg :method-combination
     :accessor generic-function-method-combination)
+   (declarations
+    :initarg :declarations
+    :initform ()
+    :accessor generic-function-declarations)
    (arg-info
     :initform (make-arg-info)
     :reader gf-arg-info)