~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/Makefile.am: Abstract out repeated TeX arguments into a variable.
[sod]
/
src
/
class-make-impl.lisp
diff --git
a/src/class-make-impl.lisp
b/src/class-make-impl.lisp
index
7263e44
..
3c5bb35
100644
(file)
--- a/
src/class-make-impl.lisp
+++ b/
src/class-make-impl.lisp
@@
-144,9
+144,10
@@
(defmethod make-sod-user-initarg
((class sod-class) name type pset &optional default location)
(defmethod make-sod-user-initarg
((class sod-class) name type pset &optional default location)
- (declare (ignore pset))
(with-slots (initargs) class
(with-slots (initargs) class
- (push (make-instance 'sod-user-initarg :location (file-location location)
+ (push (make-instance (get-property pset :initarg-class :symbol
+ 'sod-user-initarg)
+ :location (file-location location)
:class class :name name :type type :default default)
initargs)))
:class class :name name :type type :default default)
initargs)))
@@
-157,10
+158,10
@@
(defmethod make-sod-slot-initarg-using-slot
((class sod-class) name (slot sod-slot) pset &optional location)
(defmethod make-sod-slot-initarg-using-slot
((class sod-class) name (slot sod-slot) pset &optional location)
- (declare (ignore pset))
(with-slots (initargs) class
(with-slots ((type %type)) slot
(with-slots (initargs) class
(with-slots ((type %type)) slot
- (push (make-instance 'sod-slot-initarg
+ (push (make-instance (get-property pset :initarg-class :symbol
+ 'sod-slot-initarg)
:location (file-location location)
:class class :name name :type type :slot slot)
initargs))))
:location (file-location location)
:class class :name name :type type :slot slot)
initargs))))