(defmethod parser ((obj abstractobject) words) \r
"Default parser. Really bad one."\r
(when (zerop (length words)) (return-from parser 0))\r
(defmethod parser ((obj abstractobject) words) \r
"Default parser. Really bad one."\r
(when (zerop (length words)) (return-from parser 0))\r