{"id":983,"date":"2022-08-30T15:10:26","date_gmt":"2022-08-30T15:10:26","guid":{"rendered":"https:\/\/unknownerror.org\/index.php\/2013\/11\/09\/how-can-i-unintern-a-qualified-method-collection-of-common-programming-errors\/"},"modified":"2022-08-30T15:10:26","modified_gmt":"2022-08-30T15:10:26","slug":"how-can-i-unintern-a-qualified-method-collection-of-common-programming-errors","status":"publish","type":"post","link":"https:\/\/unknownerror.org\/index.php\/2022\/08\/30\/how-can-i-unintern-a-qualified-method-collection-of-common-programming-errors\/","title":{"rendered":"How can I unintern a qualified method?-Collection of common programming errors"},"content":{"rendered":"<p>With AllegroCL 9.0. Xach&#8217;s answer did not completely work for me.<\/p>\n<p>The definition of my method:<\/p>\n<pre><code>defmethod my-method* ((expr forall-expr) bindings)\n<\/code><\/pre>\n<p>forall-expr is a class and bindings is un-typed. To find the method I had to use:<\/p>\n<pre><code>(find-method #'my-method* '() (mapcar #'find-class '(forall-expr t)))\n<\/code><\/pre>\n<p>Then to remove the definition of the method I used:<\/p>\n<pre><code>(remove-method #'my-method* (find-method #'my-method* '() (mapcar #'find-class '(forall-expr t))))\n<\/code><\/pre>\n<p>I was able to figure this out from footnote 7 at http:\/\/www.gigamonkeys.com\/book\/object-reorientation-classes.html and the examples from the Lisp HyperSpec for find-method http:\/\/clhs.lisp.se\/Body\/f_find_m.htm.<\/p>\n<p id=\"rop\"><small>Originally posted 2013-11-09 23:10:43. <\/small><\/p>","protected":false},"excerpt":{"rendered":"<p>With AllegroCL 9.0. Xach&#8217;s answer did not completely work for me. The definition of my method: defmethod my-method* ((expr forall-expr) bindings) forall-expr is a class and bindings is un-typed. To find the method I had to use: (find-method #&#8217;my-method* &#8216;() (mapcar #&#8217;find-class &#8216;(forall-expr t))) Then to remove the definition of the method I used: (remove-method [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-983","post","type-post","status-publish","format-standard","hentry","category-uncategorized"],"_links":{"self":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/983","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/comments?post=983"}],"version-history":[{"count":0,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/posts\/983\/revisions"}],"wp:attachment":[{"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/media?parent=983"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/categories?post=983"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/unknownerror.org\/index.php\/wp-json\/wp\/v2\/tags?post=983"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}