🚀 go-pugleaf

|> I have a class with several slots As an example:
|> 
|> (defclass test-class ()
|> 	((slot-1	:initarg :slot-1
|> 		:initform 1
|> 		:accessor slot-1)
|> 	(slot-2	:initarg :slot-2
|> 		:initform ?????      ; <- The question
|> 		:accessor slot-2)))
|> 
|> The problem is that I need for slot-2 to default to the same value as
|> slot-1 if the user does not specify it in the constructor.
|> 
|> (setf my-class-1 (make-instance 'test-class :slot-1 12))
|> 
|> (setf my-class-2 (make-instance 'test-class :slot-1 12 :slot-2 18))
|> 
|> Jeffrey Kane, MD
|> Kane Biomedical Systems
|> Boston MA

(defparameter *default-test-class-slot-value* 1)

(defclass test-class ()
	((slot-1 :initarg :slot-1
	 	 :initform *default-test-class-slot-value*
	 	 :accessor slot-1)
	 (slot-2 :initarg :slot-2
		 :initform *default-test-class-slot-value*
		 :accessor slot-2)))

(defmethod shared-initialize ((inst test-class) slots &rest initargs
                              &key slot-1 slot-2)
   (if (and slot-1 (not slot-2))
      (apply #'call-next-method inst slots :slot-2 slot-1 initargs)
    (call-next-method)))

jeh