[Openmcl-devel] Print-object for lock

[Lennart Staflin]

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
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20060511/dfeed7bb/attachment.htm>