- cmucl-cvs - mailman3.common-lisp.net

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-09-16-g6f288c1
by Raymond Toy 25 Sep '14

25 Sep '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 6f288c11cde92ce34b55d8c00df8095f00671be2 (commit) from 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 6f288c11cde92ce34b55d8c00df8095f00671be2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 24 20:27:54 2014 -0700 Fix type derivation of the exponent for DECODE-FLOAT. The minimum exponent is from 0, it's from least-positive float. * src/compiler/float-tran.lisp: * Derive the correct minimum exponent by using the exponent from the least-positive float value of the appropriate type. * tests/float-tran.lisp: * Add tests for the derived exponent type for DECODE-FLOAT. diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index f474429..23aa93f 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -2084,13 +2084,13 @@ (when x (nth-value 1 (decode-float x)))) (min-exp () - ;; Use decode-float on 0 of the appropriate type to find - ;; the min exponent. If we don't know the actual number - ;; format, use double, which has the widest range - ;; (including double-double-float). - (if (numeric-type-format arg) - (nth-value 1 (decode-float (coerce 0 (numeric-type-format arg)))) - (nth-value 1 (decode-float (coerce 0 'double-float))))) + ;; Use decode-float on the least positive float of the + ;; appropriate type to find the min exponent. If we don't + ;; know the actual number format, use double, which has the + ;; widest range (including double-double-float). + (nth-value 1 (decode-float (if (eq 'single-float (numeric-type-format arg)) + least-positive-single-float + least-positive-double-float)))) (max-exp () ;; Use decode-float on the most postive number of the ;; appropriate type to find the max exponent. If we don't diff --git a/tests/float-tran.lisp b/tests/float-tran.lisp index 0c47dce..9b84659 100644 --- a/tests/float-tran.lisp +++ b/tests/float-tran.lisp @@ -17,6 +17,22 @@ (c::decode-float-sign-derive-type-aux (c::specifier-type '(single-float (0f0)))))) +(define-test decode-float-exp + "Test type derivation of the exponent from decode-float" + (assert-equalp (c::specifier-type '(integer -148 128)) + (c::decode-float-exp-derive-type-aux + (c::specifier-type 'single-float))) + (assert-equalp (c::specifier-type '(integer -1073 1024)) + (c::decode-float-exp-derive-type-aux + (c::specifier-type 'double-float))) + #+double-double + (assert-equalp (c::specifier-type '(integer -1073 1024)) + (c::decode-float-exp-derive-type-aux + (c::specifier-type 'double-double-float))) + (assert-equalp (c::specifier-type '(integer 2 8)) + (c::decode-float-exp-derive-type-aux + (c::specifier-type '(double-float 2d0 128d0))))) + (define-test log2-single-transform "Test tranform of (log x 2) to (kernel::log2 x)" (let ((test-fun ----------------------------------------------------------------------- Summary of changes: src/compiler/float-tran.lisp | 14 +++++++------- tests/float-tran.lisp | 16 ++++++++++++++++ 2 files changed, 23 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-09-15-g24c656a
by Raymond Toy 25 Sep '14

25 Sep '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 (commit) from 106bf4fc7687741b27523b23db3c9b2443237b2d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 24c656a5824bfd4fb9d45dfd88a25f6015e56db4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 24 19:57:01 2014 -0700 Add tests for compiled log2 and log10. diff --git a/tests/float.lisp b/tests/float.lisp index eeb221b..55b9013 100644 --- a/tests/float.lisp +++ b/tests/float.lisp @@ -21,3 +21,25 @@ (let ((x (float (expt 10 k) 1d0))) (assert-equalp k (log x 10))))) +(compile 'clog2 + #'(lambda (x) + (declare (type (double-float (0d0)) x)) + (log x 2))) + +(compile 'clog10 + #'(lambda (x) + (declare (type (double-float (0d0)) x)) + (log x 10))) + +(define-test log2.compiled + (loop for k from -1074 to 1023 do + (let ((x (scale-float 1d0 k))) + (assert-equalp k (clog2 x))))) + +(define-test log10.compiled + (loop for k from 0 to 22 do + (let ((x (float (expt 10 k) 1d0))) + (assert-equalp k (clog10 x))))) + + + ----------------------------------------------------------------------- Summary of changes: tests/float.lisp | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2014-09-14-g106bf4f
by Raymond Toy 25 Sep '14

25 Sep '14

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 106bf4fc7687741b27523b23db3c9b2443237b2d (commit) from db25e3e006f90d031ecca30aa1b04e77fc1be619 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 106bf4fc7687741b27523b23db3c9b2443237b2d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Sep 24 19:53:07 2014 -0700 Make the LOG function match what the deftransform for LOG does. Without this, compiled code produces different answers from interpreted code. * src/code/irrat.lisp: * Add cases where the base is 2 or 10 to compute the log in the same way as the deftransform for LOG does. * tests/float.lisp: * Fix comparison to use equalp, not equal. * Add test for log10. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 61d4314..daf6166 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -645,74 +645,112 @@ ;; ANSI spec base) ((and (realp number) (realp base)) - ;; CLHS 12.1.4.1 says - ;; - ;; When rationals and floats are combined by a - ;; numerical function, the rational is first converted - ;; to a float of the same format. - ;; - ;; So assume this applies to floats as well convert all - ;; numbers to the largest float format before computing - ;; the log. - ;; - ;; This makes (log 17 10.0) = (log 17.0 10) and so on. - (number-dispatch ((number real) (base real)) - ((double-float - (foreach double-float single-float)) - (/ (log2 number) (log2 base))) - (((foreach fixnum bignum ratio) - (foreach fixnum bignum ratio single-float)) - (let* ((result (/ (log2 number) (log2 base)))) - ;; Figure out the right result type - (if (realp result) - (coerce result 'single-float) - (coerce result '(complex single-float))))) - (((foreach fixnum bignum ratio) - double-float) - (/ (log2 number) (log2 base))) - ((single-float - (foreach fixnum bignum ratio)) - (let* ((result (/ (log2 number) (log2 base)))) - ;; Figure out the right result type - (if (realp result) - (coerce result 'single-float) - (coerce result '(complex single-float))))) - ((double-float - (foreach fixnum bignum ratio)) - (/ (log2 number) (log2 base))) - ((single-float double-float) - (/ (log (coerce number 'double-float)) (log base))) - #+double-double - ((double-double-float - (foreach fixnum bignum ratio)) - (/ (log2 number 1w0) (log2 base 1w0))) - #+double-double - ((double-double-float - (foreach double-double-float double-float single-float)) - (/ (log number) (log (coerce base 'double-double-float)))) - #+double-double - (((foreach fixnum bignum ratio) - double-double-float) - (/ (log2 number 1w0) (log2 base 1w0))) - #+double-double - (((foreach double-float single-float) - double-double-float) - (/ (log (coerce number 'double-double-float)) (log base))) - (((foreach single-float) - (foreach single-float)) - ;; Converting everything to double-float helps the - ;; cases like (log 17 10) = (/ (log 17) (log 10)). - ;; This is usually handled above, but if we compute (/ - ;; (log 17) (log 10)), we get a slightly different - ;; answer due to roundoff. This makes it a bit more - ;; consistent. + (cond + ((and (= base 2) + (floatp number) + #+double-double + (not (typep number 'ext:double-double-float)) + (or (plusp number) + (eql number 0.0) + (eql number 0d0))) + ;; Do the same thing as the deftranform does for + ;; log base 2 and 10 for non-negative arguments. + (number-dispatch ((number real) (base real)) + ((double-float + (foreach integer single-float double-float)) + (log2 number)) + ((single-float + (foreach integer single-float)) + (float (log2 (float number 1d0)) 1f0)) + ((single-float double-float) + (log2 (float number 1d0))))) + ((and (= base 10) + (floatp number) + #+double-double + (not (typep number 'double-double-float)) + (or (plusp number) + (eql number 0.0) + (eql number 0d0))) + ;; Do the same thing as the deftranform does for + ;; log base 2 and 10 for non-negative arguments. + (number-dispatch ((number real) (base real)) + ((double-float + (foreach double-float single-float integer)) + (%log10 number)) + ((single-float + (foreach single-float integer)) + (float (%log10 (float number 1d0)) 1f0)) + ((single-float double-float) + (%log10 (float number 1d0))))) + (t + ;; CLHS 12.1.4.1 says + ;; + ;; When rationals and floats are combined by a + ;; numerical function, the rational is first converted + ;; to a float of the same format. + ;; + ;; So assume this applies to floats as well convert all + ;; numbers to the largest float format before computing + ;; the log. ;; - ;; FIXME: This probably needs more work. - (let ((result (/ (log (float number 1d0)) - (log (float base 1d0))))) - (if (realp result) - (coerce result 'single-float) - (coerce result '(complex single-float))))))) + ;; This makes (log 17 10.0) = (log 17.0 10) and so on. + (number-dispatch ((number real) (base real)) + ((double-float + (foreach double-float single-float)) + (/ (log2 number) (log2 base))) + (((foreach fixnum bignum ratio) + (foreach fixnum bignum ratio single-float)) + (let* ((result (/ (log2 number) (log2 base)))) + ;; Figure out the right result type + (if (realp result) + (coerce result 'single-float) + (coerce result '(complex single-float))))) + (((foreach fixnum bignum ratio) + double-float) + (/ (log2 number) (log2 base))) + ((single-float + (foreach fixnum bignum ratio)) + (let* ((result (/ (log2 number) (log2 base)))) + ;; Figure out the right result type + (if (realp result) + (coerce result 'single-float) + (coerce result '(complex single-float))))) + ((double-float + (foreach fixnum bignum ratio)) + (/ (log2 number) (log2 base))) + ((single-float double-float) + (/ (log (coerce number 'double-float)) (log base))) + #+double-double + ((double-double-float + (foreach fixnum bignum ratio)) + (/ (log2 number 1w0) (log2 base 1w0))) + #+double-double + ((double-double-float + (foreach double-double-float double-float single-float)) + (/ (log number) (log (coerce base 'double-double-float)))) + #+double-double + (((foreach fixnum bignum ratio) + double-double-float) + (/ (log2 number 1w0) (log2 base 1w0))) + #+double-double + (((foreach double-float single-float) + double-double-float) + (/ (log (coerce number 'double-double-float)) (log base))) + (((foreach single-float) + (foreach single-float)) + ;; Converting everything to double-float helps the + ;; cases like (log 17 10) = (/ (log 17) (log 10)). + ;; This is usually handled above, but if we compute (/ + ;; (log 17) (log 10)), we get a slightly different + ;; answer due to roundoff. This makes it a bit more + ;; consistent. + ;; + ;; FIXME: This probably needs more work. + (let ((result (/ (log (float number 1d0)) + (log (float base 1d0))))) + (if (realp result) + (coerce result 'single-float) + (coerce result '(complex single-float))))))))) (t ;; FIXME: This probably needs some work as well. (/ (log number) (log base)))) diff --git a/tests/float.lisp b/tests/float.lisp index ff07270..eeb221b 100644 --- a/tests/float.lisp +++ b/tests/float.lisp @@ -11,7 +11,13 @@ (decode-float x))) 1d0))) -(define-test log2 +(define-test log2.interp (loop for k from -1074 to 1023 do (let ((x (scale-float 1d0 k))) - (assert-equal k (log x 2))))) + (assert-equalp k (log x 2))))) + +(define-test log10.interp + (loop for k from 0 to 22 do + (let ((x (float (expt 10 k) 1d0))) + (assert-equalp k (log x 10))))) + ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 172 +++++++++++++++++++++++++++++++-------------------- tests/float.lisp | 10 ++- 2 files changed, 113 insertions(+), 69 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-6-gc94b32f
by Raymond Toy 25 Mar '13

25 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via c94b32f927061d6e7b7ea1ebf92ccdb4c3b1a842 (commit) from 0232d2242e5acf9d1654cd0e4d7883de9e9f4705 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit c94b32f927061d6e7b7ea1ebf92ccdb4c3b1a842 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Mar 24 20:13:56 2013 -0700 Fix ticket:77 correctly, using the supplied patch link. diff --git a/src/code/exports.lisp b/src/code/exports.lisp index 2c3e0ff..6c7bbed 100644 --- a/src/code/exports.lisp +++ b/src/code/exports.lisp @@ -2388,6 +2388,7 @@ "ATOMIC-PUSH" "CURRENT-PROCESS" "DESTROY-PROCESS" "DISABLE-PROCESS" "ENABLE-PROCESS" "INIT-STACK-GROUPS" "LOCK" "MAKE-STACK-GROUP" "MAKE-LOCK" "MAKE-PROCESS" "PROCESS-ACTIVE-P" + "PROCESS-JOIN" "PROCESS-ADD-ARREST-REASON" "PROCESS-ADD-RUN-REASON" "PROCESS-ALIVE-P" "PROCESS-ARREST-REASONS" "PROCESS-IDLE-TIME" "PROCESS-INTERRUPT" "PROCESS-NAME" diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp index b0ce883..e478a95 100644 --- a/src/code/multi-proc.lisp +++ b/src/code/multi-proc.lisp @@ -298,6 +298,7 @@ (%real-time 0d0 :type double-float) (%run-time 0d0 :type double-float) (property-list nil :type list) + (%return-values nil :type list) (initial-bindings nil :type list)) @@ -956,9 +957,11 @@ (with-simple-restart (destroy "Destroy the process") (setf *inhibit-scheduling* nil) - (apply-with-bindings function - nil - initial-bindings)) + (setf (process-%return-values *current-process*) + (multiple-value-list + (apply-with-bindings function + nil + initial-bindings)))) ;; Normal exit. (throw '%end-of-the-process nil)))) (setf *inhibit-scheduling* t) @@ -1973,19 +1976,7 @@ #-x86 (when (eq (lock-process ,lock) *current-process*) (setf (lock-process ,lock) nil))))))) -(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) +(defun process-join (process) (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))) + (values-list (process-%return-values process))) diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 06c2fc6..d38c14c 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -42,7 +42,7 @@ New in this release: * :I486 and :PENTIUM (Always assume we're running on at least a Pentium.) * Update unicode to support Unicode 6.2. - * Add MP:JOIN-THREAD, as given in ticket #77. + * Add MP:PROCESS-JOIN, as given in ticket #77. * ANSI compliance fixes: * Attempts to modify the standard readtable or the standard pprint ----------------------------------------------------------------------- Summary of changes: src/code/exports.lisp | 1 + src/code/multi-proc.lisp | 25 ++++++++----------------- src/general-info/release-20e.txt | 2 +- 3 files changed, 10 insertions(+), 18 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-5-g0232d22
by Raymond Toy 24 Mar '13

24 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 0232d2242e5acf9d1654cd0e4d7883de9e9f4705 (commit) from 50b13399f16ca49f7b54a0b5bc427ad0a67b9579 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 0232d2242e5acf9d1654cd0e4d7883de9e9f4705 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Mar 24 09:43:33 2013 -0700 Fix ticket:77 by adding the code given in the ticket. diff --git a/src/code/multi-proc.lisp b/src/code/multi-proc.lisp index 8b2df04..b0ce883 100644 --- a/src/code/multi-proc.lisp +++ b/src/code/multi-proc.lisp @@ -1972,3 +1972,20 @@ ,lock 2 *current-process* nil) #-x86 (when (eq (lock-process ,lock) *current-process*) (setf (lock-process ,lock) nil))))))) + +(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))) diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 5ec6b03..06c2fc6 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -42,6 +42,7 @@ New in this release: * :I486 and :PENTIUM (Always assume we're running on at least a Pentium.) * Update unicode to support Unicode 6.2. + * Add MP:JOIN-THREAD, as given in ticket #77. * ANSI compliance fixes: * Attempts to modify the standard readtable or the standard pprint @@ -70,6 +71,7 @@ New in this release: * Ticket #74 fixed. * Ticket #76 fixed. * Ticket #79 fixed. + * Ticket #77 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/code/multi-proc.lisp | 17 +++++++++++++++++ src/general-info/release-20e.txt | 2 ++ 2 files changed, 19 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-4-g50b1339
by Raymond Toy 23 Mar '13

23 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 50b13399f16ca49f7b54a0b5bc427ad0a67b9579 (commit) from a1c04fe77fbea96b5c038547f64a6fff0089ed77 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 50b13399f16ca49f7b54a0b5bc427ad0a67b9579 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 23 10:38:29 2013 -0700 Update from logs. diff --git a/src/general-info/release-20e.txt b/src/general-info/release-20e.txt index 231c85d..5ec6b03 100644 --- a/src/general-info/release-20e.txt +++ b/src/general-info/release-20e.txt @@ -53,6 +53,8 @@ New in this release: supported length can be handled. (See ticket #66 and #68.) * A serious error in FILE-POSITION on streams using an encoding other than latin1 has been fixed. See ticket #74. + * Fix startup crashes on some Debian Linux versions. This was + caused by the release string not having a patch version. * Trac Tickets: * Ticket #52 reopened. @@ -67,6 +69,7 @@ New in this release: * Ticket #73 fixed. * Ticket #74 fixed. * Ticket #76 fixed. + * Ticket #79 fixed. * Other changes: * -8 option for build-all.sh is deprecated since we don't ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20e.txt | 3 +++ 1 files changed, 3 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-3-ga1c04fe
by Raymond Toy 23 Mar '13

23 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via a1c04fe77fbea96b5c038547f64a6fff0089ed77 (commit) from f51ee9dc1f66b02f7a9a0826b70550f3bc9fb222 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit a1c04fe77fbea96b5c038547f64a6fff0089ed77 Author: Raymond Toy <toy.raymond(a)gmail.com> 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. diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp index 7fcd0bc..80e2941 100644 --- a/src/code/fd-stream.lisp +++ b/src/code/fd-stream.lisp @@ -260,7 +260,7 @@ ;; in-buffer-length, but could be less if we reached the ;; end-of-file. #+unicode - (in-length 0 :type index) + (in-length in-buffer-length :type index) ;; ;; Indicates how to handle errors when converting octets to ;; characters. If NIL, then the external format should handle it @@ -1697,6 +1697,8 @@ (posn errno) (unix:unix-lseek (fd-stream-fd stream) 0 unix:l_incr) (declare (type (or (integer 0) null) posn)) + #+nil + (format t "lseek returns ~D ~D~%" posn errno) (cond (posn ;; Adjust for buffered output: ;; If there is any output buffered, the *real* file position @@ -1716,6 +1718,8 @@ (decf posn (- (fd-stream-ibuf-tail stream) (fd-stream-ibuf-head stream))) + #+nil + (format t "Updated posn = ~D~%" posn) #+unicode (when (fd-stream-string-buffer stream) ;; The string buffer contains Lisp characters, @@ -1742,6 +1746,7 @@ (progn (format t "new posn = ~D~%" posn) (format t "in-buffer-length = ~D~%" in-buffer-length) + (format t "in-length = ~D~%" (fd-stream-in-length stream)) (format t "fd-stream-in-index = ~D~%" (fd-stream-in-index stream)))))) (when (fd-stream-in-buffer stream) ;; When we have an in-buffer (whether we have a ----------------------------------------------------------------------- Summary of changes: src/code/fd-stream.lisp | 7 ++++++- 1 files changed, 6 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-2-gf51ee9d
by Raymond Toy 23 Mar '13

23 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via f51ee9dc1f66b02f7a9a0826b70550f3bc9fb222 (commit) from 1e8b06be53f874e64d4f687247188349388fb1b4 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit f51ee9dc1f66b02f7a9a0826b70550f3bc9fb222 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Mar 22 20:10:16 2013 -0700 Try to be careful about extracting the linux version from the (uname) release. Some Debian versions have a release name like "3.7-trunk", which is missing the patch version. diff --git a/src/lisp/Linux-os.c b/src/lisp/Linux-os.c index 296ff2a..cbd25fd 100644 --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -76,12 +76,26 @@ check_personality(struct utsname *name, char *const *argv, char *const *envp) #if defined(__i386) || defined(__x86_64) int major_version, minor_version, patch_version; char *p; + p = name->release; major_version = atoi(p); - p = strchr(p,'.')+1; - minor_version = atoi(p); - p = strchr(p,'.')+1; - patch_version = atoi(p); + + /* + * Try to extract the minor and patch version, but if we can't + * just set it to zero. In particular, some Debian systems have a + * release like "3.7-trunk-686-pae" which is missing the patch + * version. + */ + + p = strchr(p,'.'); + if (p) { + minor_version = atoi(p + 1); + p = strchr(p + 1,'.'); + patch_version = p ? atoi(p + 1) : 0; + } else { + minor_version = 0; + patch_version = 0; + } if ((major_version == 2 /* Some old kernels will apparently lose unsupported personality flags ----------------------------------------------------------------------- Summary of changes: src/lisp/Linux-os.c | 22 ++++++++++++++++++---- 1 files changed, 18 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2013-03-a-1-g1e8b06b
by Raymond Toy 10 Mar '13

10 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 1e8b06be53f874e64d4f687247188349388fb1b4 (commit) from 90b155a2a8cbf269e022f191f9b8566da8ace0da (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 1e8b06be53f874e64d4f687247188349388fb1b4 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Mar 9 21:24:25 2013 -0800 Support ppc. diff --git a/bin/build-all.sh b/bin/build-all.sh index 7cf7c88..d5823af 100755 --- a/bin/build-all.sh +++ b/bin/build-all.sh @@ -60,8 +60,11 @@ done # If -b not given, try to derive one instead of just using "build". if [ -z "$BASE" ]; then case `uname -s` in - Darwin) # We only support darwin-x86 now. No ppc available anymore. - BASE=darwin ;; + Darwin) + case `uname -p` in + powerpc) BASE=ppc ;; + i386) BASE=darwin ;; + esac ;; SunOS) case `uname -m` in sun4u) BASE=sparc ;; @@ -118,6 +121,8 @@ buildsun4 () case `uname -m` in i386*|x86*|i86pc) buildx86 ;; - sun*) buildsun4 ;; + sun*|"Power Mac*") + # buildsun4 works for sparc and ppc. + buildsun4 ;; *) echo "Unsupported architecture: `uname -m`" ;; esac ----------------------------------------------------------------------- Summary of changes: bin/build-all.sh | 11 ++++++++--- 1 files changed, 8 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2013-03-a created. snapshot-2013-03-a
by Raymond Toy 08 Mar '13

08 Mar '13

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The annotated tag, snapshot-2013-03-a has been created at 415e27b9c0f1c1cf45733384ffc1c3926cfcff36 (tag) tagging 90b155a2a8cbf269e022f191f9b8566da8ace0da (commit) replaces snapshot-2013-03 tagged by Raymond Toy on Thu Mar 7 21:09:51 2013 -0800 - Log ----------------------------------------------------------------- Snapshot 2013-03-a fixing a serious issue in REPLACE, caused by a bug in DO-UNARY-BYTE-BASH. -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.11 (Darwin) iEYEABECAAYFAlE5csAACgkQJ5IjUmgZO7KCjACdE7QJR5iHCwutBlhj8Wyk4xjN qaoAoNK0u7HfwhovgKWDpIk8xmp7sqq5 =UvC0 -----END PGP SIGNATURE----- Raymond Toy (12): Update to Unicode 6.2. Oops. Remove debugging echo. Note ticket #74 fixed, and move a Change item to a Bugfix item. Update to ASDF 2.32. Update from logs. Fix PARSE-WORD-BREAK-LINE to handle codepoints outside the BMP. The Implement Rule WB13c for regional indicators. Fix ticket:76 Update. Merge branch 'master' into rtoy-unicode-6.2 Reindent STRING-NEXT-WORD-BREAK neatly. Update. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0