(let ((esd (call-next-method)))\r
(if (typep esd 'hyperobject-esd)\r
(compute-hyperobject-esd esd dsds)\r
esd)))\r
\r
(defun compute-hyperobject-esd (esd dsds)\r
(let ((esd (call-next-method)))\r
(if (typep esd 'hyperobject-esd)\r
(compute-hyperobject-esd esd dsds)\r
esd)))\r
\r
(defun compute-hyperobject-esd (esd dsds)\r