(defclass process ()
  ((function :accessor process-function
	     :initarg :function
	     :initform #'identity)
   (state :accessor process-state
	  :initarg :state
	  :initform nil)))

(defclass custom-process (process)
  ((function :initform #'car)))