[Openmcl-devel] slow read-char

[Eric Marsden]

>>>>> "gb" == Gary Byers <gb at clozure.com> writes:

  gb> The bad news is that these changes (to the bleeding-edge CVS tree)
  gb> are already a little hard to bootstrap and that some further
  gb> changes would be worth persuing; it may be a few days before the
  gb> dust settles and new images/snapshots are available.

  today's changes seem to have broken streams on AMD64 (maybe just my
  not building properly?).


Welcome to OpenMCL Version 1.1-pre-060720 (Beta: LinuxX8664)!
? (with-open-file (f "/tmp/foo" :direction :output) (write-char #\f f))
> Error: value NIL is not of the expected type CCL::RECURSIVE-LOCK.
> While executing: CCL::RECURSIVE-LOCK-PTR, in process listener(1).
> Type :POP to abort, :R for a list of available restarts.
> Type :? for other options.
1 > :b
(2AAAAACBB930) : 0 (RECURSIVE-LOCK-PTR NIL) 109
(2AAAAACBB948) : 1 (FUNCALL #'#<#<CCL::STANDARD-KERNEL-METHOD CCL::STREAM-LENGTH (CCL::FILE-OUTPUT-STREAM)>> #<FILE-CHARACTER-OUTPUT-STREAM ("/tmp/foo"/4) #x300004BF06FD> [...]) 165
(2AAAAACBB970) : 2 (MAKE-FILE-STREAM "/tmp/foo" :OUTPUT 'BASE-CHAR :ERROR :CREATE 2048 'FILE-STREAM :DEFAULT T) 3389
(2AAAAACBBA58) : 3 (OPEN "/tmp/foo" [...]) 853
(2AAAAACBBB38) : 4 (FUNCALL #'#<Anonymous Function #x300004BF0DEF>) 269
(2AAAAACBBB88) : 5 (TOPLEVEL-EVAL '(WITH-OPEN-FILE # #) [...]) 429
(2AAAAACBBBD8) : 6 (READ-LOOP [...]) 1869
(2AAAAACBBDE0) : 7 (TOPLEVEL-LOOP) 205
(2AAAAACBBE10) : 8 (FUNCALL #'#<Anonymous Function #x3000043575AF>) 133
(2AAAAACBBE28) : 9 (FUNCALL #'#<Anonymous Function #x300004436DCF>) 1733
(2AAAAACBBEC8) : 10 (RUN-PROCESS-INITIAL-FORM #<PROCESS listener(1) [Active] #x300004BDA14D> '(#)) 709
(2AAAAACBBF48) : 11 (FUNCALL #'#<Anonymous Function #x30000438791F> #<PROCESS listener(1) [Active] #x300004BDA14D> '(#)) 397
(2AAAAACBBF98) : 12 (FUNCALL #'#<Anonymous Function #x3000043461DF>) 365

-- 
Eric Marsden