<html><body><div style="color:#000; background-color:#fff; font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt"><div id="yiv4940240998"><div><div style="color:#000;background-color:#fff;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;font-size:10pt;"><div id="yiv4940240998yui_3_13_0_1_1382759616586_2604"><br></div><div style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;" id="yiv4940240998yui_3_13_0_1_1382759616586_2611">I wrapped this function how i normally do which is usually correct<br></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_37" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"><br
id="yiv4940240998yui_3_13_0_7_1382759616586_42"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_39" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;">the function im wrapping is here...info at least and a small example of its usage is there also at the end of the postl<br id="yiv4940240998yui_3_13_0_7_1382759616586_16"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_13" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"><br id="yiv4940240998yui_3_13_0_7_1382759616586_20"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_17" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande,
sans-serif;background-color:transparent;font-style:normal;">;; CvFont cvFontQt(const char* nameFont, int pointSize = -1, CvScalar color = cvScalarAll(0), int weight = CV_FONT_NORMAL, <br>;; int style = CV_STYLE_NORMAL, int spacing = 0)
<br>(cffi:defcfun ("cvFontQt" %font-qt) (:struct cv-font)
<br>
(name-font :string)<br> (point-size :int)
<br> (color (:struct cv-scalar))<br> (weight :int)
<br> (style :int)<br> (spacing :int))<br> <br>(defun font-qt (name-font &optional (point-size -1) (color (scalar-all 0)) (weight +font-normal+) <br> (style +style-normal+) (spacing 0))
<br> "Creates the font to draw a text on an image."
<br> (%font-qt name-font point-size color weight style spacing)) <br id="yiv4940240998yui_3_13_0_7_1382759616586_25"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_22" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"><br id="yiv4940240998yui_3_13_0_7_1382759616586_48"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_45" style="
color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"><br id="yiv4940240998yui_3_13_0_7_1382759616586_52"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_49" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;">im getting this error message when i run each of these<br><br> (with-foreign-object (font '(:struct cv-font))<br> (setf (mem-ref font `(:pointer (:struct cv-font))) (font-qt "Monospace")))<br><br>(defparameter font (foreign-alloc '(:struct cv-font) :initial-element (list (font-qt ""))))<br><br> (font-qt "")<br id="yiv4940240998yui_3_13_0_7_1382759616586_59"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_56"
style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"><br id="yiv4940240998yui_3_13_0_7_1382759616586_63"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_60" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;">There is no applicable method for the generic function<br> #<STANDARD-GENERIC-FUNCTION TRANSLATE-INTO-FOREIGN-MEMORY (5)><br>when called with arguments<br> ("" #<CFFI::FOREIGN-STRING-TYPE :UTF-8><br> #.(SB-SYS:INT-SAP #X7FFFE1467FF0)).<br> [Condition of type SIMPLE-ERROR]<br><br>it seems to be written right and I'm just running the function so i could use a little help on this . I never use any of cffi foreign-string functions for const
char* just :string and they always run right<br id="yiv4940240998yui_3_13_0_7_1382759616586_29"></div><div id="yiv4940240998yui_3_13_0_7_1382759616586_26" style="color:rgb(0, 0, 0);font-size:13.3333px;font-family:HelveticaNeue, Helvetica Neue, Helvetica, Arial, Lucida Grande, sans-serif;background-color:transparent;font-style:normal;"></div></div></div></div></div></body></html>