From cmucl-devel at common-lisp.net Wed Mar 6 06:16:54 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Wed, 06 Mar 2013 06:16:54 -0000 Subject: [cmucl-ticket] [cmucl] #75: cl-unicode regression in 2013-03 Message-ID: <058.249993cda93bc7c8563dacfbcc0e30de@common-lisp.net> #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 #. 4: [ACCEPT ] Continue, treating loading FASL for # 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 # 16 17 7 ...) 6: (LISP::FOP-FUNCALL-FOR-EFFECT) 7: (LISP::LOAD-GROUP #) 8: (LISP::FASLOAD #) 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: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Wed Mar 6 06:47:59 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Wed, 06 Mar 2013 06:47:59 -0000 Subject: [cmucl-ticket] [cmucl] #76: REPLACE on strings incorrect Message-ID: <052.9a1c08a9b3cdaae04764d6116be9eb93@common-lisp.net> #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: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Wed Mar 6 08:10:42 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Wed, 06 Mar 2013 08:10:42 -0000 Subject: [cmucl-ticket] [cmucl] #75: cl-unicode regression in 2013-03 In-Reply-To: <058.249993cda93bc7c8563dacfbcc0e30de@common-lisp.net> References: <058.249993cda93bc7c8563dacfbcc0e30de@common-lisp.net> Message-ID: <067.a7f4e84b7eee8f7b86542d48a84134cc@common-lisp.net> #75: cl-unicode regression in 2013-03 ------------------------+--------------------------------------------------- Reporter: avodonosov | Owner: somebody Type: defect | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03 Keywords: | ------------------------+--------------------------------------------------- Comment(by rtoy): Thanks for the report. I believe this error might be due to bug #76, which I think I've just fixed. With that fix applied, I can load cl- unicode just fine. If you wish to do some testing with this, I can supply a test binary for you. -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Wed Mar 6 08:29:34 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Wed, 06 Mar 2013 08:29:34 -0000 Subject: [cmucl-ticket] [cmucl] #76: REPLACE on strings incorrect In-Reply-To: <052.9a1c08a9b3cdaae04764d6116be9eb93@common-lisp.net> References: <052.9a1c08a9b3cdaae04764d6116be9eb93@common-lisp.net> Message-ID: <061.f7cb82c101c77be1d8c2cecb2d5d7d89@common-lisp.net> #76: REPLACE on strings incorrect ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-03 Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by toy.raymond@?): * status: new => closed * resolution: => fixed Comment: commit 45fabc8f3fad8876627831708ec3c997d46ce4f8 Author: Raymond Toy Date: Wed Mar 6 00:27:44 2013 -0800 Fix ticket:76 Missed one place in DO-UNARY-BYTE-BASH to adjust the call to END-MASK to use a bit offset instead of a byte offset. This affects anything that was using DO-UNARY-BYTE-BASH, including REPLACE. -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sat Mar 16 17:15:57 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sat, 16 Mar 2013 17:15:57 -0000 Subject: [cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS Message-ID: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> #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: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sat Mar 16 17:30:32 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sat, 16 Mar 2013 17:30:32 -0000 Subject: [cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS In-Reply-To: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> References: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> Message-ID: <065.44c175f157055563f2c16c1b47c55b10@common-lisp.net> #77: Add JOIN-PROCESS -------------------------+-------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: new Priority: major | Milestone: Component: Core | Version: 2013-03-a Keywords: | -------------------------+-------------------------------------------------- Comment(by sionescu): I added a workaround to Bordeaux-Threads, but it would be better to have this functionality in CMUCL itself: {{{ (defun %make-thread (function name) (mp:make-process (lambda () (let ((return-values (multiple-value-list (funcall function)))) (setf (getf (mp:process-property-list mp:*current- process*) 'return-values) return-values) (values-list return-values))) :name name)) (defun join-thread (thread) (mp:process-wait (format nil "Waiting for thread ~A to complete" thread) (lambda () (not (mp:process-alive-p thread)))) (let ((return-values (getf (mp:process-property-list thread) 'return-values))) (values-list return-values))) }}} -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sat Mar 16 17:41:37 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sat, 16 Mar 2013 17:41:37 -0000 Subject: [cmucl-ticket] [cmucl] #78: MP:PROCESS-WAIT should have an efficient way to wait for completion of another process Message-ID: <056.49e698737ee9c2aa86ef5a799bc45d26@common-lisp.net> #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: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sat Mar 23 06:04:24 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sat, 23 Mar 2013 06:04:24 -0000 Subject: [cmucl-ticket] [cmucl] #79: File-position at start of file is wrong Message-ID: <052.31b35364c4ed046d261c065a5428afc1@common-lisp.net> #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: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sat Mar 23 17:27:54 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sat, 23 Mar 2013 17:27:54 -0000 Subject: [cmucl-ticket] [cmucl] #79: File-position at start of file is wrong In-Reply-To: <052.31b35364c4ed046d261c065a5428afc1@common-lisp.net> References: <052.31b35364c4ed046d261c065a5428afc1@common-lisp.net> Message-ID: <061.a7d20d5eb58c8e58219b2abfaa66da01@common-lisp.net> #79: File-position at start of file is wrong ---------------------+------------------------------------------------------ Reporter: rtoy | Owner: somebody Type: defect | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-03-a Resolution: fixed | Keywords: ---------------------+------------------------------------------------------ Changes (by toy.raymond@?): * status: new => closed * resolution: => fixed Comment: commit a1c04fe77fbea96b5c038547f64a6fff0089ed77 Author: Raymond Toy Date: Sat Mar 23 10:27:43 2013 -0700 Fix ticket:79 * Initialize in-length to in-buffer-length, not 0. * Added a few more debugging prints. -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sun Mar 24 01:02:47 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sun, 24 Mar 2013 01:02:47 -0000 Subject: [cmucl-ticket] [cmucl] #75: cl-unicode regression in 2013-03 In-Reply-To: <058.249993cda93bc7c8563dacfbcc0e30de@common-lisp.net> References: <058.249993cda93bc7c8563dacfbcc0e30de@common-lisp.net> Message-ID: <067.01451eedfd02e63394bfb00b674dfb44@common-lisp.net> #75: cl-unicode regression in 2013-03 -------------------------+-------------------------------------------------- Reporter: avodonosov | Owner: somebody Type: defect | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-03 Resolution: fixed | Keywords: -------------------------+-------------------------------------------------- Changes (by rtoy): * status: new => closed * resolution: => fixed Comment: Fixed by ticket:76 -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sun Mar 24 16:43:42 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sun, 24 Mar 2013 16:43:42 -0000 Subject: [cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS In-Reply-To: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> References: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> Message-ID: <065.60d02bca8e9aad9553541432b6d42495@common-lisp.net> #77: Add JOIN-PROCESS --------------------------+------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-03-a Resolution: fixed | Keywords: --------------------------+------------------------------------------------- Changes (by toy.raymond@?): * status: new => closed * resolution: => fixed Comment: commit 0232d2242e5acf9d1654cd0e4d7883de9e9f4705 Author: Raymond Toy Date: Sun Mar 24 09:43:33 2013 -0700 Fix ticket:77 by adding the code given in the ticket. -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Sun Mar 24 21:31:09 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Sun, 24 Mar 2013 21:31:09 -0000 Subject: [cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS In-Reply-To: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> References: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> Message-ID: <065.e0f25f02c4ad65529cdd4741591d8aa0@common-lisp.net> #77: Add JOIN-PROCESS --------------------------+------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: reopened Priority: major | Milestone: Component: Core | Version: 2013-03-a Resolution: | Keywords: --------------------------+------------------------------------------------- Changes (by sionescu): * status: closed => reopened * resolution: fixed => Comment: Sorry I didn't specify that the code included was copied verbatim from Bordeaux-Threads. I make a proper patch available at https://github.com/sionescu/cmucl/commit/520441523f317e2c72c44c1d33516c3c0ce9da98 -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation. From cmucl-devel at common-lisp.net Mon Mar 25 03:14:06 2013 From: cmucl-devel at common-lisp.net (cmucl) Date: Mon, 25 Mar 2013 03:14:06 -0000 Subject: [cmucl-ticket] [cmucl] #77: Add JOIN-PROCESS In-Reply-To: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> References: <056.a73dd3bca3f16f9b441cf026e10372bd@common-lisp.net> Message-ID: <065.c7cf2776e6d388b9a075f424e3b4cdb9@common-lisp.net> #77: Add JOIN-PROCESS --------------------------+------------------------------------------------- Reporter: sionescu | Owner: somebody Type: enhancement | Status: closed Priority: major | Milestone: Component: Core | Version: 2013-03-a Resolution: fixed | Keywords: --------------------------+------------------------------------------------- Changes (by toy.raymond@?): * status: reopened => closed * resolution: => fixed Comment: commit c94b32f927061d6e7b7ea1ebf92ccdb4c3b1a842 Author: Raymond Toy Date: Sun Mar 24 20:13:56 2013 -0700 Fix ticket:77 correctly, using the supplied patch link. -- Ticket URL: cmucl Cmucl is a high-performance, free Common Lisp implementation.