<html><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8" /></head><body style='font-size: 10pt; font-family: Verdana,Geneva,sans-serif'>
<p>No, standard CLOS dispatch happens only on classes.</p>
<p>Have you tried <a href="https://github.com/digikar99/polymorphic-functions" target="_blank" rel="noopener noreferrer">https://github.com/digikar99/polymorphic-functions</a> ?</p>
<p id="reply-intro">W dniu 2024-01-02 12:14, Taoufik Dachraoui napisał(a):</p>
<blockquote type="cite" style="padding: 0 0.4em; border-left: #1010ff 2px solid; margin: 0">
<div id="replybody1">
<div dir="ltr">Hi
<div> </div>
<div>I am trying to use '(simple-vector n) as type specifier in defmethod but it is not possible, is there another way?<br /><br />(typep #(1 2 3 4) '(simple-vector 4))<br /><br />(defmethod mul ((n fixnum) (m1 (simple-vector n)) (m2 (simple-vector n)))<br /> (let ((r (make-array (list n))))<br /> (dotimes (i n)<br /> (setf (svref r i) (* (svref m1 i) (svref m2 i))))<br /> r))<br />
<div> </div>
Kind regards<br />
<div class="v1gmail_signature" dir="ltr">
<div dir="ltr">Taoufik Dachraoui
<div> </div>
</div>
</div>
</div>
</div>
</div>
</blockquote>
<p><br /></p>
</body></html>