slots-initargs.lisp

;; quoted initarg
(defclass foo ()
  ((foo-field :initarg foo-initarg :accessor foo-accessor)))
(defparameter *foo* (make-instance 'foo 'foo-initarg 10))

;; symbold initarg
(defclass bar ()
  ((bar-field :initarg :bar-initarg :accessor bar-accessor)))
(defparameter *bar* (make-instance 'bar :bar-initarg 10))