Function: SETF OBJECT-ALIVE-P

Source

(defun (setf object-alive-p) (value object-table object-id)
  (setf (object-info object-table object-id) 
        (if value :live-object :dead-object))
  value)