projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.6.30:
[sbcl.git]
/
src
/
pcl
/
defs.lisp
diff --git
a/src/pcl/defs.lisp
b/src/pcl/defs.lisp
index
e2240a1
..
d8ac2ec
100644
(file)
--- a/
src/pcl/defs.lisp
+++ b/
src/pcl/defs.lisp
@@
-342,7
+342,7
@@
((name
:initform nil
:initarg :name
((name
:initform nil
:initarg :name
- :accessor generic-function-name)
+ :reader generic-function-name)
(methods
:initform ()
:accessor generic-function-methods
(methods
:initform ()
:accessor generic-function-methods
@@
-467,7
+467,9
@@
:accessor slot-definition-type)
(documentation
:initform nil
:accessor slot-definition-type)
(documentation
:initform nil
- :initarg :documentation)
+ :initarg :documentation
+ ;; FIXME: should we export this, as an extension?
+ :accessor %slot-definition-documentation)
(class
:initform nil
:initarg :class
(class
:initform nil
:initarg :class
@@
-580,8
+582,8
@@
specializer)
((name
:initform nil
specializer)
((name
:initform nil
- :initarg :name
- :accessor class-name)
+ :initarg :name
+ :reader class-name)
(class-eq-specializer
:initform nil
:reader class-eq-specializer)
(class-eq-specializer
:initform nil
:reader class-eq-specializer)
@@
-676,8
+678,10
@@
:initarg :from-defclass-p)))
(defclass definition-source-mixin (standard-object)
:initarg :from-defclass-p)))
(defclass definition-source-mixin (standard-object)
- ((source :initform *load-pathname* :reader definition-source
- :initarg :definition-source)))
+ ((source
+ :initform nil
+ :reader definition-source
+ :initarg :definition-source)))
(defclass plist-mixin (standard-object)
((plist :initform () :accessor object-plist)))
(defclass plist-mixin (standard-object)
((plist :initform () :accessor object-plist)))