<html><head></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">Hi Jason,<div><br></div><div>try print-object instead of print.</div><div><br></div><div>HTH,</div><div><br></div><div><br><div><div>On Apr 2, 2011, at 2:48 AM, Jason E. Aten wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite">I'm trying to define a print method for my class, and I'm getting "Error: The function PRINT is defined as something other than a generic function."<br><br>Below shows the two commands that when issues, reproduce this on Linux x86_64. What should I try instead?<br>
<br>Apologies if this is obvious. I'm new to CLOS, and these classes are auto- generated by SWIG as wrappers for C++ classes.<br><br>Jason<br><br>jaten@afarm:~/dj/ldc2swig$ ccl -n<br>Welcome to Clozure Common Lisp Version 1.7-dev-r14684M-trunk (LinuxX8664)!<br>
? (cl:defclass object()<br> ((ff-pointer :reader ff-pointer)))<br><br>#<STANDARD-CLASS OBJECT><br>? (cl:defmethod print ((self object))<br> (Object_dprint (ff-pointer self)))<br><br>;Compiler warnings : <br>
; In (PRINT (OBJECT)) inside an anonymous lambda form: Undefined function OBJECT_DPRINT <br><br>> Error: The function PRINT is defined as something other than a generic function.<br>
<br><br>> While executing: ENSURE-GENERIC-FUNCTION, in process listener(1).<br>> Type :GO to continue, :POP to abort, :R for a list of available restarts.<br>> If continued: Try to remove any global non-generic function or macro definition.<br>
> Type :? for other options.<br><br><br>1 > :b<br> (7FB61B6E6A10) : 0 (ENSURE-GENERIC-FUNCTION PRINT) 341<br> (7FB61B6E6A40) : 1 (ENSURE-METHOD PRINT (#<STANDARD-CLASS OBJECT>) :FUNCTION #<Compiled Method-function (PRINT #) (Non-Global) #x30200056D4BF> :QUALIFIERS NIL :LAMBDA-LIST (S\<br>
ELF)) 285<br> (7FB61B6E6AA8) : 2 (FUNCALL #'#<Anonymous Function #x3020005682BF>) 157<br> (7FB61B6E6AB8) : 3 (TOPLEVEL-EVAL (DEFMETHOD PRINT (#) (OBJECT_DPRINT #)) NIL) 709<br> (7FB61B6E6B60) : 4 (READ-LOOP :INPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x30200055A9ED> :OUTPUT-STREAM #<SYNONYM-STREAM to *TERMINAL-IO* #x30200055A63D> :BREAK-LEVEL 0 :\<br>
PROMPT-FUNCTION #<Compiled-function (:INTERNAL CCL::READ-LOOP) (Non-Global) #x30000059B38F>) 2317<br> (7FB61B6E6DC0) : 5 (TOPLEVEL-LOOP) 109<br> (7FB61B6E6DF0) : 6 (FUNCALL #'#<(:INTERNAL (TOPLEVEL-FUNCTION (CCL::LISP-DEVELOPMENT-SYSTEM T)))>) 117<br>
(7FB61B6E6E10) : 7 (FUNCALL #'#<(:INTERNAL CCL::MAKE-MCL-LISTENER-PROCESS)>) 741<br> (7FB61B6E6EB0) : 8 (RUN-PROCESS-INITIAL-FORM #<TTY-LISTENER listener(1) [Active] #x30200055776D> (#<COMPILED-LEXICAL-CLOSURE # #x302000556E8F>)) 717<br>
(7FB61B6E6F48) : 9 (FUNCALL #'#<(:INTERNAL (CCL::%PROCESS-PRESET-INTERNAL (PROCESS)))> #<TTY-LISTENER listener(1) [Active] #x30200055776D> (#<COMPILED-LEXICAL-CLOSURE # #x3020\<br>00556E8F>)) 389<br>
(7FB61B6E6F98) : 10 (FUNCALL #'#<(:INTERNAL CCL::THREAD-MAKE-STARTUP-FUNCTION)>) 301<br>1 ><br><br>
_______________________________________________<br>Openmcl-devel mailing list<br><a href="mailto:Openmcl-devel@clozure.com">Openmcl-devel@clozure.com</a><br>http://clozure.com/mailman/listinfo/openmcl-devel<br></blockquote></div><br><div>
<span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-align: auto; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><span class="Apple-style-span" style="border-collapse: separate; color: rgb(0, 0, 0); font-family: Helvetica; font-size: medium; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; orphans: 2; text-indent: 0px; text-transform: none; white-space: normal; widows: 2; word-spacing: 0px; -webkit-border-horizontal-spacing: 0px; -webkit-border-vertical-spacing: 0px; -webkit-text-decorations-in-effect: none; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px; "><div style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; "><div>--</div><div>Gary Warren King, <a href="http://metabang.com/">metabang.com</a> <br>Cell: (413) 559 8738<br>Fax: (206) 338-4052<br>gwkkwg on Skype * garethsan on AIM * gwking on twitter<br></div></div></span></div></span></span>
</div>
<br></div></body></html>