;; p289

(defun make-effective-slot-definition
    (&rest properties
     &key name (initargs ()) (initform nil) (initfunction nil)
       (allocation :instance)
     &allow-other-keys)
  (let ((slot (copy-list properties))) ;; don't want to side-effect &rest list
    (setf (getf* slot ':name) name)
    (setf (getf* slot ':initargs) initargs)
    (setf (getf* slot ':initform) initform)
    (setf (getf* slot ':initfunction) initfunction)
    (setf (getf* slot ':allocation) allocation)
    slot))