<div class="gmail_quote">On Wed, Mar 24, 2010 at 6:09 PM, R. Matthew Emerson <span dir="ltr"><<a href="mailto:rme@clozure.com">rme@clozure.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div style="word-wrap: break-word;"><div><br></div><div>Anyway, you want ccl::watch and ccl::unwatch (note double colons). I forgot to export those symbols. I checked in a fix to the trunk just now.</div><div><br></div>
</div></blockquote></div>Thanks, I just updated via SVN and tried again:<br><br>adam@ubuntu:~$ ./ccl64 <br>Welcome to Clozure Common Lisp Version 1.4-r13556M (LinuxX8664)!<br>? (defvar *s* "xxxxx")<br>*S*<br>? (watch *s*)<br>
> Error: Undefined function WATCH called with arguments ("xxxxx") .<br>> While executing: CCL::TOPLEVEL-EVAL, in process listener(1).<br>> Type :GO to continue, :POP to abort, :R for a list of available restarts.<br>
> If continued: Retry applying WATCH to ("xxxxx").<br>> Type :? for other options.<br>1 > <br><br>Using ccl::watch gives a bit different output?<br><br>? (ccl::watch *s*)<br>"xxxxx"<br>? (setf (char *s* 3) #\o)<br>
> Error: Write to watched uvector "xxxxx" at index 3<br>> Faulting instruction: #<X86-DISASSEMBLED-INSTRUCTION (movl (% eax) (@ -5 (% r15) (% rcx))) #x30004121E95D><br>> While executing: CCL::SET-CHAR, in process listener(1).<br>
> Error: Undefined function CCL::X86-CAN-EMULATE-INSTRUCTION called with arguments (#<X86-DISASSEMBLED-INSTRUCTION (movl (% eax) (@ -5 (% r15) (% rcx))) #x30004121E95D>) .<br>> While executing: (:INTERNAL CCL::XCMAIN), in process listener(1).<br>
> Type :GO to continue, :POP to abort, :R for a list of available restarts.<br>> If continued: Retry applying CCL::X86-CAN-EMULATE-INSTRUCTION to (#<X86-DISASSEMBLED-INSTRUCTION (movl (% eax) (@ -5 (% r15) (% rcx))) #x30004121E95D>).<br>
> Type :? for other options.<br>1 > <br><br>Not sure if this is correct or not.<br><br>Thanks again,<br><br>Adam Getchell<br>-- <br>"Invincibility is in oneself, vulnerability in the opponent." -- Sun Tzu<br>