March 2013 - cmucl-ticket - mailman3.common-lisp.net

[cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS
by cmucl 25 Mar '13

25 Mar '13

#77: Add JOIN-PROCESS -------------------------+-------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03-a Keywords: | -------------------------+-------------------------------------------------- There should be a JOIN-PROCESS function that waits for a process to complete and returns its return value. The current implementation in Bordeaux-Threads uses (mp:process-wait "..." (lambda () (not (mp:process-alive-p process)))), but that doesn't fulfill the second requirement. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/77> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 4

[cmucl-ticket] [cmucl] #75: cl-unicode regression in 2013-03
by cmucl 24 Mar '13

24 Mar '13

#75: cl-unicode regression in 2013-03 ------------------------+--------------------------------------------------- Reporter: avodonosov | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03 Keywords: | ------------------------+--------------------------------------------------- I can load library cl-unicode in cmucl-20d, but not in 2013-03 snapshot. In the example below I use Quicklisp to load the library. To workaround ASDF upgrade issue between the recent Quicklisp and CMUCL, ASDF is loaded explicitly before Quicklisp. {{{ ./lisps/cmucl-20d/bin/lisp -noinit -nositeinit -load quicklisp/asdf.lisp -load ./quicklisp/setup.lisp (ql:quickload :cl-unicode) => OK }}} {{{ ./lisps/cmucl-2013-03/bin/lisp -noinit -nositeinit -load quicklisp/asdf.lisp -load ./quicklisp/setup.lisp (ql:quickload :cl-unicode) Error in function LISP::ASSERT-ERROR: Unknown property name "OtherGraphemeExtend". [Condition of type SIMPLE-ERROR] Restarts: 0: [CONTINUE ] Retry assertion with new value for DESIGNATOR. 1: Return NIL from load of #P"/home/testgrid/.cache/common-l isp/cmu- snapshot-2013-03__20d_unicode_-linux-x86/home/testgrid/quicklisp/dists/q uicklisp/software/cl-unicode-0.1.4/alias.sse2f". 2: [TRY-RECOMPILING] Recompile alias and try loading it again 3: [RETRY ] .Retry loading FASL for #<CL-SOURCE-FILE "cl-unicode" "alias">. 4: [ACCEPT ] Continue, treating loading FASL for #<CL-SOURCE-FILE "cl-unicode" "alias"> as having been successful. 5: [ABORT ] Give up on "cl-unicode" 6: Return to Top-Level. Debug (type H for help) (LISP::ASSERT-ERROR TEST-FUNCTION (DESIGNATOR) "Unknown property name ~S." "OtherGraphemeExtend") Source: Error finding source: Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM: Source file no longer exists: target:code/macros.lisp. 0] backtrace 10 0: (LISP::ASSERT-ERROR TEST-FUNCTION (DESIGNATOR) "Unknown property name ~S." "OtherGraphemeExtend") 1: ((LABELS COLLECT-TEST-FUNCTIONS BUILD-DERIVED-TEST-FUNCTION) ("Me" "Mn" "OtherGraphemeExtend")) 2: (BUILD-DERIVED-TEST-FUNCTION ("Me" "Mn" "OtherGraphemeExtend")) 3: (BUILD-DERIVED-TEST-FUNCTIONS) 4: (BUILD-ALL-PROPERTY-TESTS) 5: (C::DO-CALL #<Code Object "Top-Level Form" {5904515F}> 16 17 7 ...) 6: (LISP::FOP-FUNCALL-FOR-EFFECT) 7: (LISP::LOAD-GROUP #<Stream for file "/home/testgrid/.cache/common-lisp/cmu-snapshot-2013 -03__20d_unicode_- linux-x86/home/testgrid/quicklisp/dists/quicklisp/software/cl- unicode-0.1.4/alias.sse2f">) 8: (LISP::FASLOAD #<Stream for file "/home/testgrid/.cache/common-lisp/cmu-snapshot-2013 -03__20d_unicode_- linux-x86/home/testgrid/quicklisp/dists/quicklisp/software/cl- unicode-0.1.4/alias.sse2f">) 9: (LISP::INTERNAL-LOAD #P"/home/testgrid/.cache/common-lisp/cmu-snapshot-2013 -03__20d_unicode_- linux-x86/home/testgrid/quicklisp/dists/quicklisp/software/cl- unicode-0.1.4/alias.sse2f" #P"/home/testgrid/.cache/common-lisp/cmu-snapshot-2013 -03__20d_unicode_- linux-x86/home/testgrid/quicklisp/dists/quicklisp/software/cl- unicode-0.1.4/alias.sse2f" :ERROR :BINARY ...) }}} -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/75> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 2

[cmucl-ticket] [cmucl] #79: File-position at start of file is wrong
by cmucl 23 Mar '13

23 Mar '13

#79: File-position at start of file is wrong --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03-a Keywords: | --------------------+------------------------------------------------------- Let {{{foo}}} be an file of latin1 characters. Then {{{ (with-open-file (s "foo" :external-format :latin1) (print (file-position s)) (read-char s) (print (file-position s))) }}} prints {{{ 512 513 }}} This is totally unexpected. I would expect 0 and 1 to be printed. If {{{foo}}} has utf8 encoding then {{{ (with-open-file (s "foo" :external-format :utf8) (print (file-position s)) (read-char s) (print (file-position s))) }}} prints something like {{{ 512 1 }}} I would expect 0 to be printed instead of 512. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/79> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 1

[cmucl-ticket] [cmucl] #78: MP:PROCESS-WAIT should have an efficient way to wait for completion of another process
by cmucl 16 Mar '13

16 Mar '13

#78: MP:PROCESS-WAIT should have an efficient way to wait for completion of another process ----------------------+----------------------------------------------------- Reporter: sionescu | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03-a Keywords: | ----------------------+----------------------------------------------------- With the addition of a MP:PROCESS-FINISHED-P, the scheduler could avoid polling in this case: {{{ (mp:process-wait "..." #'mp:process-finished-p other-process) }}} -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/78> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 0

[cmucl-ticket] [cmucl] #76: REPLACE on strings incorrect
by cmucl 06 Mar '13

06 Mar '13

#76: REPLACE on strings incorrect --------------------+------------------------------------------------------- Reporter: rtoy | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03 Keywords: | --------------------+------------------------------------------------------- Consider: {{{ (defun zot (workspace s) (declare (simple-string workspace s)) (replace workspace s :start1 1 :end1 5 :start2 1 :end2 5)) (defparameter *r* (make-string 40 :initial-element #\A)) (compile 'zot) (zot *r* "a12345") }}} After executing this, {{{*r*}}} should contain "A1234AAAA.." but it actually contains "a1234AAAA..". The {{{start1}}} and {{{start2}}} indices were not honored. -- Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/76> cmucl <http://common-lisp.net/project/cmucl> Cmucl is a high-performance, free Common Lisp implementation.

1 1