<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<meta name=Generator content="Microsoft Word 12 (filtered medium)">
<style>
<!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri","sans-serif";}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:purple;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri","sans-serif";
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.Section1
{page:Section1;}
-->
</style>
<!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]-->
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>When calling (define-layered-function display-object
(object)) with the latest version of context and closer-mop<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>I get<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'><o:p> </o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>STYLE-WARNING:<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> redefining
=LAYERED-FUNCTION-DEFINER-FOR-DISPLAY-OBJECT= in DEFGENERIC<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'>Cannot CHANGE-CLASS objects into GENERIC-FUNCTION
metaobjects.<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> [Condition of type SB-PCL::METAOBJECT-INITIALIZATION-VIOLATION]<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> 0: [RETRY] Retry SLIME REPL evaluation
request.<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> 1: [ABORT] Return to SLIME's top level.<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> 2: [ABORT] Abort<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> 3: [CLOSE-CONNECTION] Close SLIME connection<o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:9.0pt;
font-family:"Courier New"'> 4: [ABORT] Exit debugger, returning to top
level.<o:p></o:p></span></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal>Expanding, the problem is in this form<o:p></o:p></p>
<p class=MsoNormal><o:p> </o:p></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;
font-family:"Courier New";color:maroon;background:aqua;mso-highlight:aqua'>(</span><span
style='font-size:10.0pt;font-family:"Courier New";color:navy;background:aqua;
mso-highlight:aqua'>DEFGENERIC =LAYERED-FUNCTION-DEFINER-FOR-DISPLAY-OBJECT=</span><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;
font-family:"Courier New";color:navy;background:aqua;mso-highlight:aqua'>
</span><span style='font-size:10.0pt;font-family:"Courier New";color:maroon;
background:aqua;mso-highlight:aqua'>(</span><span style='font-size:10.0pt;
font-family:"Courier New";color:navy;background:aqua;mso-highlight:aqua'>layer-arg
OBJECT</span><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon;background:aqua;mso-highlight:aqua'>)</span><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;
font-family:"Courier New";color:navy;background:aqua;mso-highlight:aqua'>
</span><span style='font-size:10.0pt;font-family:"Courier New";color:maroon;
background:aqua;mso-highlight:aqua'>(</span><span style='font-size:10.0pt;
font-family:"Courier New";color:blue;background:aqua;mso-highlight:aqua'>:GENERIC-FUNCTION-CLASS</span><span
style='font-size:10.0pt;font-family:"Courier New";color:navy;background:aqua;
mso-highlight:aqua'> LAYERED-FUNCTION</span><span style='font-size:10.0pt;
font-family:"Courier New";color:maroon;background:aqua;mso-highlight:aqua'>)</span><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></p>
<p class=MsoNormal style='text-autospace:none'><span style='font-size:10.0pt;
font-family:"Courier New";color:navy;background:aqua;mso-highlight:aqua'>
</span><span style='font-size:10.0pt;font-family:"Courier New";color:maroon;
background:aqua;mso-highlight:aqua'>(</span><span style='font-size:10.0pt;
font-family:"Courier New";color:blue;background:aqua;mso-highlight:aqua'>:ARGUMENT-PRECEDENCE-ORDER</span><span
style='font-size:10.0pt;font-family:"Courier New";color:navy;background:aqua;
mso-highlight:aqua'> OBJECT layer-arg</span><span style='font-size:10.0pt;
font-family:"Courier New";color:maroon;background:aqua;mso-highlight:aqua'>))</span><span
style='font-size:10.0pt;font-family:"Courier New"'><o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:navy;background:aqua;mso-highlight:aqua'> </span><span style='font-size:
10.0pt;font-family:"Courier New";color:maroon;background:aqua;mso-highlight:
aqua'>(</span><span style='font-size:10.0pt;font-family:"Courier New";
color:navy;background:aqua;mso-highlight:aqua'>DECLAIM </span><span
style='font-size:10.0pt;font-family:"Courier New";color:maroon;background:aqua;
mso-highlight:aqua'>(</span><span style='font-size:10.0pt;font-family:"Courier New";
color:navy;background:aqua;mso-highlight:aqua'>INLINE DISPLAY-OBJECT</span><span
style='font-size:10.0pt;font-family:"Courier New";color:maroon;background:aqua;
mso-highlight:aqua'>))</span><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'><o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'><o:p> </o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'>Apparently, it doesn’t like the layered-function argument.
Any ideas how to fix this? I have absolutely no experience<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'>in making new CLOS protocols.<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'>Thx!<o:p></o:p></span></p>
<p class=MsoNormal><span style='font-size:10.0pt;font-family:"Courier New";
color:maroon'><o:p> </o:p></span></p>
</div>
</body>
</html>