[Openmcl-devel] Print-object for lock

[Gary Byers]

Your patch looks right; thanks.

I'll try to put up tarballs of the current ppc32/ppc64/x8664 development
versions in the next day or so.  (The ppc32 versions of what's in
bleeding-edge CVS at the moment involve a not-Unicode-yet change
to how characters are represented and some other changes that are
very hard to bootstrap.)

On Thu, 11 May 2006, Lennart Staflin wrote:

> Hi,
> I'm running openmcl from 2006-02-05 on MacOS 10.3.9. I have failed my
> attemptes to get a more recent version compiling. The particular code does
> look the same in the latest checkout though. The problem is that printing
> lock objects print the name of the lock to the standard output (e.g. slime
> repl) insterad of, say, an inspector. The problem seems to be print-object
> method for lock. Patch follows:
>
> --- /Users/lenst/build/ccl/level-1/l1-processes.lisp~    Thu Jan 26 01:44:31
> 2006
> +++ /Users/lenst/build/ccl/level-1/l1-processes.lisp    Thu May 11 15:11:58
> 2006
> @@ -392,7 +392,7 @@
>    (let* ((val (uvref s target::lock._value-cell))
>       (name (uvref s target::lock.name-cell)))
>      (when name
> -    (format t "~s " name))
> +    (format stream "~s " name))
>      (if (typep val 'macptr)
>        (format stream "[ptr @ #x~x]"
>                (%ptr-to-int val))))))
>
>
> -- 
> //Lennart Staflin
>