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

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

28 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 33adf3d4d02f8416b829569af99735a5b28c9d73 (commit) from 95551b41407093f6bdb89e50967c9d3203b273b9 (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 33adf3d4d02f8416b829569af99735a5b28c9d73 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 28 15:03:53 2014 -0700 Compile in scalbn. diff --git a/src/lisp/GNUmakefile b/src/lisp/GNUmakefile index d0d6104..d8fb690 100644 --- a/src/lisp/GNUmakefile +++ b/src/lisp/GNUmakefile @@ -12,7 +12,7 @@ FDLIBM = k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c \ e_acosh.c s_asinh.c e_atanh.c \ e_atan2.c \ e_rem_pio2.c k_rem_pio2.c \ - e_log10.c \ + e_log10.c s_scalbn.c \ setexception.c SRCS = lisp.c coreparse.c alloc.c monitor.c print.c interr.c \ ----------------------------------------------------------------------- Summary of changes: src/lisp/GNUmakefile | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

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

28 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 95551b41407093f6bdb89e50967c9d3203b273b9 (commit) from e82e6d3ba6e9e22735d5822d95836fe0b4838d04 (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 95551b41407093f6bdb89e50967c9d3203b273b9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 28 14:44:09 2014 -0700 Rename scalbn to fdlibm_scalbn, and use a union. diff --git a/src/lisp/s_scalbn.c b/src/lisp/s_scalbn.c index 329be8b..4889385 100644 --- a/src/lisp/s_scalbn.c +++ b/src/lisp/s_scalbn.c @@ -31,33 +31,37 @@ huge = 1.0e+300, tiny = 1.0e-300; #ifdef __STDC__ - double scalbn (double x, int n) + double fdlibm_scalbn (double x, int n) #else - double scalbn (x,n) + double fdlibm_scalbn (x,n) double x; int n; #endif { int k,hx,lx; - hx = __HI(x); - lx = __LO(x); + union { int i[2]; double d; } ux; + + ux.d = x; + hx = ux.i[HIWORD]; + lx = ux.i[LOWORD]; k = (hx&0x7ff00000)>>20; /* extract exponent */ if (k==0) { /* 0 or subnormal x */ if ((lx|(hx&0x7fffffff))==0) return x; /* +-0 */ - x *= two54; - hx = __HI(x); + x *= two54; + ux.d = x; + hx = ux.i[HIWORD]; k = ((hx&0x7ff00000)>>20) - 54; - if (n< -50000) return tiny*x; /*underflow*/ + if (n< -50000) return fdlibm_setexception(x, FDLIBM_UNDERFLOW);; /*underflow*/ } if (k==0x7ff) return x+x; /* NaN or Inf */ k = k+n; - if (k > 0x7fe) return huge*copysign(huge,x); /* overflow */ + if (k > 0x7fe) return fdlibm_setexception(x, FDLIBM_OVERFLOW); /* overflow */ if (k > 0) /* normal result */ - {__HI(x) = (hx&0x800fffff)|(k<<20); return x;} + {ux.i[HIWORD] = (hx&0x800fffff)|(k<<20); return x;} if (k <= -54) if (n > 50000) /* in case integer overflow in n+k */ - return huge*copysign(huge,x); /*overflow*/ - else return tiny*copysign(tiny,x); /*underflow*/ + return fdlibm_setexception(x, FDLIBM_OVERFLOW); /*overflow*/ + else return fdlibm_setexception(x, FDLIBM_UNDERFLOW); /*underflow*/ k += 54; /* subnormal result */ - __HI(x) = (hx&0x800fffff)|(k<<20); + ux.i[HIWORD] = (hx&0x800fffff)|(k<<20); return x*twom54; } ----------------------------------------------------------------------- Summary of changes: src/lisp/s_scalbn.c | 28 ++++++++++++++++------------ 1 file changed, 16 insertions(+), 12 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

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

28 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 e82e6d3ba6e9e22735d5822d95836fe0b4838d04 (commit) from 3c677fd9362246effb35724d499e70effdf6dfed (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 e82e6d3ba6e9e22735d5822d95836fe0b4838d04 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 28 14:28:46 2014 -0700 Import scalbn directly from fdlibm. Since the x86 port calls this already, might as well make it available to everyone. diff --git a/src/lisp/s_scalbn.c b/src/lisp/s_scalbn.c new file mode 100644 index 0000000..329be8b --- /dev/null +++ b/src/lisp/s_scalbn.c @@ -0,0 +1,63 @@ + +/* @(#)s_scalbn.c 1.3 95/01/18 */ +/* + * ==================================================== + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * + * Developed at SunSoft, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== + */ + +/* + * scalbn (double x, int n) + * scalbn(x,n) returns x* 2**n computed by exponent + * manipulation rather than by actually performing an + * exponentiation or a multiplication. + */ + +#include "fdlibm.h" + +#ifdef __STDC__ +static const double +#else +static double +#endif +two54 = 1.80143985094819840000e+16, /* 0x43500000, 0x00000000 */ +twom54 = 5.55111512312578270212e-17, /* 0x3C900000, 0x00000000 */ +huge = 1.0e+300, +tiny = 1.0e-300; + +#ifdef __STDC__ + double scalbn (double x, int n) +#else + double scalbn (x,n) + double x; int n; +#endif +{ + int k,hx,lx; + hx = __HI(x); + lx = __LO(x); + k = (hx&0x7ff00000)>>20; /* extract exponent */ + if (k==0) { /* 0 or subnormal x */ + if ((lx|(hx&0x7fffffff))==0) return x; /* +-0 */ + x *= two54; + hx = __HI(x); + k = ((hx&0x7ff00000)>>20) - 54; + if (n< -50000) return tiny*x; /*underflow*/ + } + if (k==0x7ff) return x+x; /* NaN or Inf */ + k = k+n; + if (k > 0x7fe) return huge*copysign(huge,x); /* overflow */ + if (k > 0) /* normal result */ + {__HI(x) = (hx&0x800fffff)|(k<<20); return x;} + if (k <= -54) + if (n > 50000) /* in case integer overflow in n+k */ + return huge*copysign(huge,x); /*overflow*/ + else return tiny*copysign(tiny,x); /*underflow*/ + k += 54; /* subnormal result */ + __HI(x) = (hx&0x800fffff)|(k<<20); + return x*twom54; +} ----------------------------------------------------------------------- Summary of changes: src/lisp/s_scalbn.c | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 63 insertions(+) create mode 100644 src/lisp/s_scalbn.c hooks/post-receive -- CMU Common Lisp

1 0

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

28 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 3c677fd9362246effb35724d499e70effdf6dfed (commit) from 315ea23408772763fc0f141d51bf5038269f0b7c (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 3c677fd9362246effb35724d499e70effdf6dfed Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 28 14:16:38 2014 -0700 Correct a comment for %ieee754-rem-pi/2. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index daf6166..c07e979 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -183,10 +183,10 @@ (%sqrt x)) ) -;; Same as above, but instead of needing to pass an array in, the -;; output array is broken up into two output values instead. This is -;; easier for the user, and we don't have to wrap calls with -;; without-gcing. +;; Slightly simplified interface to __ieee754_rem_pio2, but instead of +;; needing to pass an array in, the output array is broken up into two +;; output values instead. This is easier for the user, and we don't +;; have to wrap calls with without-gcing. (declaim (inline %ieee754-rem-pi/2)) (export '%ieee754-rem-pi/2) (alien:def-alien-routine ("ieee754_rem_pio2" %ieee754-rem-pi/2) c-call:int ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch 20f-branch updated. snapshot-2014-09-12-gab0a979
by Raymond Toy 27 Sep '14

27 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, 20f-branch has been updated via ab0a979db83310c64fcbbc13b178d5c31af9f5c9 (commit) from 878f7c4337d04265d067a90d29acca0d868cd35d (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 ab0a979db83310c64fcbbc13b178d5c31af9f5c9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Sep 26 20:20:54 2014 -0700 Fix incorrect value from INTEGER-DECODE-FLOAT for denormals. This is a long standing bug where INTEGER-DECODE-FLOAT returned incorrect values for denormal double-float numbers. The lower 32 bits of the double were not shifted enough when creating the integer result. As a side-effect, DECODE-FLOAT decodes denormal double-float's correctly and SCALE-FLOAT scales denormals correctly too. * src/code/float.lisp: * Shift the lower 32-bit of the fraction one more time to adjust for the fact that the upper 20 bits were shifted an extra time. * tests/float.lisp: * Add several tests for INTEGER-DECODE-FLOAT, SCALE-FLOAT, and DECODE-FLOAT. * src/general-info/release-20f.txt: * Add this bug fix to the notes. Conflicts: tests/float.lisp diff --git a/src/code/float.lisp b/src/code/float.lisp index cace1a4..3ac6512 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -581,7 +581,7 @@ (return)) (setq sig (ash sig 1)) (incf extra-bias)) - (values (logior (ash sig 32) (ash low-bits (1- extra-bias))) + (values (logior (ash sig 32) (ash low-bits (1+ extra-bias))) (truly-the fixnum (- biased extra-bias)) sign))))) diff --git a/src/general-info/release-20f.txt b/src/general-info/release-20f.txt index 0327f5b..4fd57e3 100644 --- a/src/general-info/release-20f.txt +++ b/src/general-info/release-20f.txt @@ -123,6 +123,10 @@ New in this release: * For linux, motifd is no longer a 64-bit app. * (exp 1d0) now returns the correctly rounded value of e. Previously, it was off by one bit. + * INTEGER-DECODE-FLOAT returns the correct values for denormal + doubles. As a side-effect of this fix, DECODE-FLOAT returns the + correct values for denormals, and SCALE-FLOAT scales denormals + correctly. * Trac Tickets: * Ticket #90 fixed. diff --git a/tests/float.lisp b/tests/float.lisp index 6fe1f50..454ab99 100644 --- a/tests/float.lisp +++ b/tests/float.lisp @@ -10,3 +10,77 @@ (declare (type (double-float (0d0)) x)) (decode-float x))) 1d0))) + +(define-test integer-decode-float.double + ;; Generate 100 random denormal values and compare what + ;; integer-decode-float returns against what it should return. + (dotimes (k 100) + (let ((x (random least-positive-normalized-double-float))) + (multiple-value-bind (hi lo) + (kernel:double-float-bits x) + ;; Verify that the exponent is 0, which it must be for a + ;; denormal number. + (assert-equal 0 + (ldb vm:double-float-exponent-byte hi) + x) + ;; Print out the fraction bits, and the bits returned by + ;; INTEGER-DECODE-FLOAT. We could do this differently, but + ;; this has the nice side effect of making it easy to see what + ;; is expected and what went wrong. + (let* ((expected (format nil "~b~32,'0b" hi lo)) + (actual (format nil "~b" (integer-decode-float x))) + (tail (subseq actual (length expected)))) + ;; If everything is working correctly, the beginning of the + ;; actual bits must exactly match the expected bits. + (assert-true (every #'char= + expected + actual) + x + expected + actual) + ;; And finally, the trailing part of the actual bits must be + ;; all zeroes, but this is a denormal number. + (assert-true (every #'(lambda (c) + (char= c #\0)) + tail) + x + tail)))))) + +(define-test scale-float.double + ;; As a side-effect of fixing INTEGER-DECODE-FLOAT, SCALE-FLOAT + ;; should return the correct values now when scaling + ;; denormals. Check a few denormal values. + (dotimes (k 100) + (let* ((x (random least-positive-normalized-double-float)) + (scaled (scale-float x 54)) + (mult (* x (scale-float 1d0 54)))) + ;; The result of SCALE-FLOAT and the multiplication should be + ;; exactly equal because the multiplication by 2^54 is exactly + ;; representable. + (assert-equal scaled + mult + x + scaled + mult))) + ;; Add the test caused the investigation of SCALE-FLOAT + (let* ((x 1d-310) + (scaled (scale-float x 54)) + (mult (* x (scale-float 1d0 54)))) + (assert-equal scaled + mult + x + scaled + mult))) + +(define-test decode-float.double + ;; As a side-effect of fixing INTEGER-DECODE-FLOAT, DECODE-FLOAT + ;; should return the correct values now. We just spot check one + ;; value here. + (dotimes (k 100) + (let ((x (random least-positive-normalized-double-float))) + (multiple-value-bind (f e) + (decode-float x) + (assert-equal x + (scale-float f e) + f + e))))) ----------------------------------------------------------------------- Summary of changes: src/code/float.lisp | 2 +- src/general-info/release-20f.txt | 4 +++ tests/float.lisp | 74 ++++++++++++++++++++++++++++++++++++++ 3 files changed, 79 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

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

27 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 315ea23408772763fc0f141d51bf5038269f0b7c (commit) from b35582689da356d07250728b74f22d7c55e81000 (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 315ea23408772763fc0f141d51bf5038269f0b7c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Sep 26 20:20:54 2014 -0700 Fix incorrect value from INTEGER-DECODE-FLOAT for denormals. This is a long standing bug where INTEGER-DECODE-FLOAT returned incorrect values for denormal double-float numbers. The lower 32 bits of the double were not shifted enough when creating the integer result. As a side-effect, DECODE-FLOAT decodes denormal double-float's correctly and SCALE-FLOAT scales denormals correctly too. * src/code/float.lisp: * Shift the lower 32-bit of the fraction one more time to adjust for the fact that the upper 20 bits were shifted an extra time. * tests/float.lisp: * Add several tests for INTEGER-DECODE-FLOAT, SCALE-FLOAT, and DECODE-FLOAT. * src/general-info/release-20f.txt: * Add this bug fix to the notes. diff --git a/src/code/float.lisp b/src/code/float.lisp index cace1a4..3ac6512 100644 --- a/src/code/float.lisp +++ b/src/code/float.lisp @@ -581,7 +581,7 @@ (return)) (setq sig (ash sig 1)) (incf extra-bias)) - (values (logior (ash sig 32) (ash low-bits (1- extra-bias))) + (values (logior (ash sig 32) (ash low-bits (1+ extra-bias))) (truly-the fixnum (- biased extra-bias)) sign))))) diff --git a/src/general-info/release-20f.txt b/src/general-info/release-20f.txt index 0327f5b..4fd57e3 100644 --- a/src/general-info/release-20f.txt +++ b/src/general-info/release-20f.txt @@ -123,6 +123,10 @@ New in this release: * For linux, motifd is no longer a 64-bit app. * (exp 1d0) now returns the correctly rounded value of e. Previously, it was off by one bit. + * INTEGER-DECODE-FLOAT returns the correct values for denormal + doubles. As a side-effect of this fix, DECODE-FLOAT returns the + correct values for denormals, and SCALE-FLOAT scales denormals + correctly. * Trac Tickets: * Ticket #90 fixed. diff --git a/tests/float.lisp b/tests/float.lisp index 55b9013..71cdeb8 100644 --- a/tests/float.lisp +++ b/tests/float.lisp @@ -42,4 +42,77 @@ (assert-equalp k (clog10 x))))) +(define-test integer-decode-float.double + ;; Generate 100 random denormal values and compare what + ;; integer-decode-float returns against what it should return. + (dotimes (k 100) + (let ((x (random least-positive-normalized-double-float))) + (multiple-value-bind (hi lo) + (kernel:double-float-bits x) + ;; Verify that the exponent is 0, which it must be for a + ;; denormal number. + (assert-equal 0 + (ldb vm:double-float-exponent-byte hi) + x) + ;; Print out the fraction bits, and the bits returned by + ;; INTEGER-DECODE-FLOAT. We could do this differently, but + ;; this has the nice side effect of making it easy to see what + ;; is expected and what went wrong. + (let* ((expected (format nil "~b~32,'0b" hi lo)) + (actual (format nil "~b" (integer-decode-float x))) + (tail (subseq actual (length expected)))) + ;; If everything is working correctly, the beginning of the + ;; actual bits must exactly match the expected bits. + (assert-true (every #'char= + expected + actual) + x + expected + actual) + ;; And finally, the trailing part of the actual bits must be + ;; all zeroes, but this is a denormal number. + (assert-true (every #'(lambda (c) + (char= c #\0)) + tail) + x + tail)))))) + +(define-test scale-float.double + ;; As a side-effect of fixing INTEGER-DECODE-FLOAT, SCALE-FLOAT + ;; should return the correct values now when scaling + ;; denormals. Check a few denormal values. + (dotimes (k 100) + (let* ((x (random least-positive-normalized-double-float)) + (scaled (scale-float x 54)) + (mult (* x (scale-float 1d0 54)))) + ;; The result of SCALE-FLOAT and the multiplication should be + ;; exactly equal because the multiplication by 2^54 is exactly + ;; representable. + (assert-equal scaled + mult + x + scaled + mult))) + ;; Add the test caused the investigation of SCALE-FLOAT + (let* ((x 1d-310) + (scaled (scale-float x 54)) + (mult (* x (scale-float 1d0 54)))) + (assert-equal scaled + mult + x + scaled + mult))) + +(define-test decode-float.double + ;; As a side-effect of fixing INTEGER-DECODE-FLOAT, DECODE-FLOAT + ;; should return the correct values now. We just spot check one + ;; value here. + (dotimes (k 100) + (let ((x (random least-positive-normalized-double-float))) + (multiple-value-bind (f e) + (decode-float x) + (assert-equal x + (scale-float f e) + f + e))))) ----------------------------------------------------------------------- Summary of changes: src/code/float.lisp | 2 +- src/general-info/release-20f.txt | 4 +++ tests/float.lisp | 73 ++++++++++++++++++++++++++++++++++++++ 3 files changed, 78 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

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

26 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 b35582689da356d07250728b74f22d7c55e81000 (commit) from 0855c18dc2b20c196a0f1167765dc87601658d81 (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 b35582689da356d07250728b74f22d7c55e81000 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Sep 25 19:57:41 2014 -0700 Regenerate. diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po index c4e0087..df7d5b1 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -6834,17 +6834,24 @@ msgstr "" "Eturnray uetray ifway ethay oatflay X isway anway infinityway (+ orway -)." #: src/code/float.lisp -msgid "Return true if the float X is a NaN (Not a Number)." +#, fuzzy +msgid "Return true if the float X is a quiet or signaling NaN (Not a Number)." msgstr "" -"Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away Umbernay)." +"Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay " +"away Umbernay)." #: src/code/float.lisp -msgid "Return true if the float X is a trapping NaN (Not a Number)." +#, fuzzy +msgid "Return true if the float X is a signaling NaN (Not a Number)." msgstr "" "Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay " "away Umbernay)." #: src/code/float.lisp +msgid "Deprecated. Use FLOAT-SIGNALING-NAN-P instead." +msgstr "" + +#: src/code/float.lisp msgid "" "Returns a non-negative number of significant digits in it's float argument.\n" " Will be less than FLOAT-DIGITS if denormalized or zero." @@ -23332,6 +23339,7 @@ msgid "Expected ~D variant values: ~S." msgstr "Expectedway ~D ariantvay aluesvay: ~S." #: src/compiler/meta-vmdef.lisp +#, fuzzy msgid "" "Define-VOP (Name [Inherits]) Spec*\n" " Define the symbol Name to be a Virtual OPeration in the compiler. If\n" @@ -23382,9 +23390,9 @@ msgid "" " :To Time-Spec\n" "\t Specify the beginning or end of the operand's lifetime. :From can\n" "\t only be used with results, and :To only with arguments. The default\n" -"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). These\n" -"\t options are necessary primarily when operands are read or written out\n" -"\t of order.\n" +"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). (The\n" +" first argument/result is number 0.) These options are necessary\n" +" primarily when operands are read or written out of order.\n" " \n" " :Conditional\n" " This is used in place of :RESULTS with conditional branch VOPs. " @@ -30074,6 +30082,19 @@ msgid "Implements WRITE-SEQUENCE for the stream." msgstr "Implementsway WRITE-SEQUENCE orfay ethay eamstray." #: src/pcl/gray-streams.lisp +#, fuzzy +msgid "Implements FILE-POSITION for the stream." +msgstr "Implementsway WRITE-SEQUENCE orfay ethay eamstray." + +#: src/pcl/gray-streams.lisp +#, fuzzy +msgid "Implements FILE-POSITION for the stream for setting the position." +msgstr "" +"Implementsway CLEAR-INPUT orfay ethay eamstray, eturningray NIL. Ethay " +"efaultday\n" +" ethodmay oesday othingnay." + +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." @@ -30709,5 +30730,10 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." +#~ msgid "Return true if the float X is a NaN (Not a Number)." +#~ msgstr "" +#~ "Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away " +#~ "Umbernay)." + #~ msgid "Bad style to use T or OTHERWISE in ECASE or CCASE" #~ msgstr "Adbay tylesay otay useway T orway OTHERWISE inway ECASE orway CCASE" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po index f30c434..b73bf6a 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -4780,11 +4780,15 @@ msgid "Return true if the float X is an infinity (+ or -)." msgstr "" #: src/code/float.lisp -msgid "Return true if the float X is a NaN (Not a Number)." +msgid "Return true if the float X is a quiet or signaling NaN (Not a Number)." msgstr "" #: src/code/float.lisp -msgid "Return true if the float X is a trapping NaN (Not a Number)." +msgid "Return true if the float X is a signaling NaN (Not a Number)." +msgstr "" + +#: src/code/float.lisp +msgid "Deprecated. Use FLOAT-SIGNALING-NAN-P instead." msgstr "" #: src/code/float.lisp @@ -16359,9 +16363,9 @@ msgid "" " :To Time-Spec\n" "\t Specify the beginning or end of the operand's lifetime. :From can\n" "\t only be used with results, and :To only with arguments. The default\n" -"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). These\n" -"\t options are necessary primarily when operands are read or written out\n" -"\t of order.\n" +"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). (The\n" +" first argument/result is number 0.) These options are necessary\n" +" primarily when operands are read or written out of order.\n" " \n" " :Conditional\n" " This is used in place of :RESULTS with conditional branch VOPs. " @@ -21087,6 +21091,14 @@ msgid "Implements WRITE-SEQUENCE for the stream." msgstr "" #: src/pcl/gray-streams.lisp +msgid "Implements FILE-POSITION for the stream." +msgstr "" + +#: src/pcl/gray-streams.lisp +msgid "Implements FILE-POSITION for the stream for setting the position." +msgstr "" + +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 38 ++++++++++++++++++---- src/i18n/locale/ko/LC_MESSAGES/cmucl.po | 22 ++++++++++--- 2 files changed, 49 insertions(+), 11 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch 20f-branch updated. snapshot-2014-09-11-g878f7c4
by Raymond Toy 26 Sep '14

26 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, 20f-branch has been updated via 878f7c4337d04265d067a90d29acca0d868cd35d (commit) from 44697013015d63a72c1dc5b0a62f4331c333931c (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 878f7c4337d04265d067a90d29acca0d868cd35d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Sep 25 20:06:31 2014 -0700 Regenerate. diff --git a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po index c4e0087..df7d5b1 100644 --- a/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po @@ -6834,17 +6834,24 @@ msgstr "" "Eturnray uetray ifway ethay oatflay X isway anway infinityway (+ orway -)." #: src/code/float.lisp -msgid "Return true if the float X is a NaN (Not a Number)." +#, fuzzy +msgid "Return true if the float X is a quiet or signaling NaN (Not a Number)." msgstr "" -"Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away Umbernay)." +"Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay " +"away Umbernay)." #: src/code/float.lisp -msgid "Return true if the float X is a trapping NaN (Not a Number)." +#, fuzzy +msgid "Return true if the float X is a signaling NaN (Not a Number)." msgstr "" "Eturnray uetray ifway ethay oatflay X isway away appingtray Annay (Otnay " "away Umbernay)." #: src/code/float.lisp +msgid "Deprecated. Use FLOAT-SIGNALING-NAN-P instead." +msgstr "" + +#: src/code/float.lisp msgid "" "Returns a non-negative number of significant digits in it's float argument.\n" " Will be less than FLOAT-DIGITS if denormalized or zero." @@ -23332,6 +23339,7 @@ msgid "Expected ~D variant values: ~S." msgstr "Expectedway ~D ariantvay aluesvay: ~S." #: src/compiler/meta-vmdef.lisp +#, fuzzy msgid "" "Define-VOP (Name [Inherits]) Spec*\n" " Define the symbol Name to be a Virtual OPeration in the compiler. If\n" @@ -23382,9 +23390,9 @@ msgid "" " :To Time-Spec\n" "\t Specify the beginning or end of the operand's lifetime. :From can\n" "\t only be used with results, and :To only with arguments. The default\n" -"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). These\n" -"\t options are necessary primarily when operands are read or written out\n" -"\t of order.\n" +"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). (The\n" +" first argument/result is number 0.) These options are necessary\n" +" primarily when operands are read or written out of order.\n" " \n" " :Conditional\n" " This is used in place of :RESULTS with conditional branch VOPs. " @@ -30074,6 +30082,19 @@ msgid "Implements WRITE-SEQUENCE for the stream." msgstr "Implementsway WRITE-SEQUENCE orfay ethay eamstray." #: src/pcl/gray-streams.lisp +#, fuzzy +msgid "Implements FILE-POSITION for the stream." +msgstr "Implementsway WRITE-SEQUENCE orfay ethay eamstray." + +#: src/pcl/gray-streams.lisp +#, fuzzy +msgid "Implements FILE-POSITION for the stream for setting the position." +msgstr "" +"Implementsway CLEAR-INPUT orfay ethay eamstray, eturningray NIL. Ethay " +"efaultday\n" +" ethodmay oesday othingnay." + +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." @@ -30709,5 +30730,10 @@ msgstr "" "eplacedray ybay ethay\n" "Unicodeway eplacementray aracterchay." +#~ msgid "Return true if the float X is a NaN (Not a Number)." +#~ msgstr "" +#~ "Eturnray uetray ifway ethay oatflay X isway away Annay (Otnay away " +#~ "Umbernay)." + #~ msgid "Bad style to use T or OTHERWISE in ECASE or CCASE" #~ msgstr "Adbay tylesay otay useway T orway OTHERWISE inway ECASE orway CCASE" diff --git a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po index f30c434..b73bf6a 100644 --- a/src/i18n/locale/ko/LC_MESSAGES/cmucl.po +++ b/src/i18n/locale/ko/LC_MESSAGES/cmucl.po @@ -4780,11 +4780,15 @@ msgid "Return true if the float X is an infinity (+ or -)." msgstr "" #: src/code/float.lisp -msgid "Return true if the float X is a NaN (Not a Number)." +msgid "Return true if the float X is a quiet or signaling NaN (Not a Number)." msgstr "" #: src/code/float.lisp -msgid "Return true if the float X is a trapping NaN (Not a Number)." +msgid "Return true if the float X is a signaling NaN (Not a Number)." +msgstr "" + +#: src/code/float.lisp +msgid "Deprecated. Use FLOAT-SIGNALING-NAN-P instead." msgstr "" #: src/code/float.lisp @@ -16359,9 +16363,9 @@ msgid "" " :To Time-Spec\n" "\t Specify the beginning or end of the operand's lifetime. :From can\n" "\t only be used with results, and :To only with arguments. The default\n" -"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). These\n" -"\t options are necessary primarily when operands are read or written out\n" -"\t of order.\n" +"\t for the N'th argument/result is (:ARGUMENT N)/(:RESULT N). (The\n" +" first argument/result is number 0.) These options are necessary\n" +" primarily when operands are read or written out of order.\n" " \n" " :Conditional\n" " This is used in place of :RESULTS with conditional branch VOPs. " @@ -21087,6 +21091,14 @@ msgid "Implements WRITE-SEQUENCE for the stream." msgstr "" #: src/pcl/gray-streams.lisp +msgid "Implements FILE-POSITION for the stream." +msgstr "" + +#: src/pcl/gray-streams.lisp +msgid "Implements FILE-POSITION for the stream for setting the position." +msgstr "" + +#: src/pcl/gray-streams.lisp msgid "" "Used by READ-BYTE; returns either an integer, or the symbol :EOF\n" " if the stream is at end-of-file." ----------------------------------------------------------------------- Summary of changes: src/i18n/locale/en(a)piglatin/LC_MESSAGES/cmucl.po | 38 ++++++++++++++++++---- src/i18n/locale/ko/LC_MESSAGES/cmucl.po | 22 ++++++++++--- 2 files changed, 49 insertions(+), 11 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[Cmucl-cvs] [git] CMU Common Lisp branch 20f-branch updated. snapshot-2014-09-10-g4469701
by Raymond Toy 26 Sep '14

26 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, 20f-branch has been updated via 44697013015d63a72c1dc5b0a62f4331c333931c (commit) via bcc8cd7dd797fe3998efdca0cf2adfe49150bb3f (commit) via b51c9978bcfab5952438a1c831949c8f387cfc90 (commit) via 8fb489459a9f50049a5eb8cf3ccc06f8225e98bc (commit) from 02c1bde6f02c195a17d76dc57fd18562ef52bbea (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 44697013015d63a72c1dc5b0a62f4331c333931c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Sep 25 19:24:02 2014 -0700 Oops. Remove debugging print left in from commit [c0052f55] diff --git a/src/code/reader.lisp b/src/code/reader.lisp index 996b1f3..03f03a0 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -62,7 +62,6 @@ (reader-error-format-arguments condition)) nil error-stream (file-position error-stream))) - (format t "open-stream-p ~A~%" (open-stream-p error-stream)) (format stream (intl:gettext "Reader error ~@[at ~D ~]on ~S:~%~?") (and (open-stream-p error-stream) (file-position error-stream)) commit bcc8cd7dd797fe3998efdca0cf2adfe49150bb3f 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. Conflicts: tests/float-tran.lisp diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 4aecd5c..ff09474 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -2057,13 +2057,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 9c81882..713d399 100644 --- a/tests/float-tran.lisp +++ b/tests/float-tran.lisp @@ -1,3 +1,4 @@ + ;; Tests for various float transformations. (defpackage :float-tran-tests @@ -14,4 +15,18 @@ (assert-equalp (c::make-member-type :members (list 1f0)) (c::decode-float-sign-derive-type-aux (c::specifier-type '(single-float (0f0)))))) - \ No newline at end of file +(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))))) commit b51c9978bcfab5952438a1c831949c8f387cfc90 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Sep 19 22:35:27 2014 -0700 Fix error in type derivation for the sign in DECODE-FLOAT. Type derivation of the sign of (DECODE-FLOAT X) returned the incorrect value when x was declared to be of type (DOUBLE-FLOAT (0d0)). * src/compiler/float-tran.lisp * Fix type derivation * tests/float-tran.lisp * New file for tests of DECODE-FLOAT-SIGN-DERIVE-TYPE-AUX. * tests/float.lisp * New file to test that decode-float is compiled correctly. diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index ccb6e06..4aecd5c 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -2082,24 +2082,19 @@ (defun decode-float-sign-derive-type-aux (arg) ;; Derive the sign of the float. - (flet ((calc-sign (x) - (when x - (nth-value 2 (decode-float x))))) - (let* ((lo (bound-func #'calc-sign - (numeric-type-low arg))) - (hi (bound-func #'calc-sign - (numeric-type-high arg)))) - (if (numeric-type-format arg) - (specifier-type `(,(numeric-type-format arg) - ;; If lo or high bounds are NIL, use -1 - ;; or 1 of the appropriate type instead. - ,(or lo (coerce -1 (numeric-type-format arg))) - ,(or hi (coerce 1 (numeric-type-format arg))))) - (specifier-type '(or (member 1f0 -1f0 - 1d0 -1d0 - #+double-double 1w0 - #+double-double -1w0))))))) - + (if (numeric-type-format arg) + (let ((arg-range (interval-range-info (numeric-type->interval arg)))) + (case arg-range + (+ (make-member-type :members (list (coerce 1 (numeric-type-format arg))))) + (- (make-member-type :members (list (coerce -1 (numeric-type-format arg))))) + (otherwise + (make-member-type :members (list (coerce 1 (numeric-type-format arg)) + (coerce -1 (numeric-type-format arg))))))) + (specifier-type '(or (member 1f0 -1f0 + 1d0 -1d0 + #+double-double 1w0 + #+double-double -1w0))))) + (defoptimizer (decode-float derive-type) ((num)) (let ((f (one-arg-derive-type num #'(lambda (arg) diff --git a/tests/float-tran.lisp b/tests/float-tran.lisp new file mode 100644 index 0000000..9c81882 --- /dev/null +++ b/tests/float-tran.lisp @@ -0,0 +1,17 @@ +;; Tests for various float transformations. + +(defpackage :float-tran-tests + (:use :cl :lisp-unit)) + +(in-package "FLOAT-TRAN-TESTS") + +(define-test decode-float-sign + "Test type derivation of the sign from decode-float" + (assert-equalp (c::make-member-type :members (list 1f0 -1f0)) + (c::decode-float-sign-derive-type-aux (c::specifier-type 'single-float))) + (assert-equalp (c::make-member-type :members (list 1d0 -1d0)) + (c::decode-float-sign-derive-type-aux (c::specifier-type 'double-float))) + (assert-equalp (c::make-member-type :members (list 1f0)) + (c::decode-float-sign-derive-type-aux (c::specifier-type '(single-float (0f0)))))) + + \ No newline at end of file diff --git a/tests/float.lisp b/tests/float.lisp new file mode 100644 index 0000000..6fe1f50 --- /dev/null +++ b/tests/float.lisp @@ -0,0 +1,12 @@ +;; Tests of float functions + +(defpackage :float-tests + (:use :cl :lisp-unit)) + +(in-package "FLOAT-TESTS") + +(define-test decode-float + (assert-true (funcall (compile nil #'(lambda (x) + (declare (type (double-float (0d0)) x)) + (decode-float x))) + 1d0))) commit 8fb489459a9f50049a5eb8cf3ccc06f8225e98bc Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Sep 12 00:29:00 2014 -0700 Remove the NetBSD setexception changes on the master branch. This is only for the upcoming release. diff --git a/src/lisp/GNUmakefile b/src/lisp/GNUmakefile index 056e9ea..c557d3b 100644 --- a/src/lisp/GNUmakefile +++ b/src/lisp/GNUmakefile @@ -12,7 +12,7 @@ FDLIBM = k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c \ e_acosh.c s_asinh.c e_atanh.c \ e_atan2.c \ e_rem_pio2.c k_rem_pio2.c \ - setexception.c double-values.c + setexception.c SRCS = lisp.c coreparse.c alloc.c monitor.c print.c interr.c \ vars.c parse.c interrupt.c search.c validate.c globals.c \ diff --git a/src/lisp/double-values.c b/src/lisp/double-values.c deleted file mode 100644 index 79d5921..0000000 --- a/src/lisp/double-values.c +++ /dev/null @@ -1,40 +0,0 @@ -/* - * Some helper functions to return specific double values for use by - * fdlibm_setexceptions on NetBSD. Currently, NetBSD doesn't have - * feraiseexcept so we have to do something special. See - * fdlibm_setexceptions. - */ - -#include "fdlibm.h" - -double -double_zero() -{ - return 0.0; -} - -/* - * Return most-positive-double-float - */ -double -double_huge() -{ - union { int i[2]; double d; } ux; - ux.i[HIWORD] = 0x7fefffff; - ux.i[LOWORD] = 0xffffffff; - - return ux.d; -} - -/* - * Return least-positive-double-float - */ -double -double_tiny() -{ - union { int i[2]; double d; } ux; - ux.i[HIWORD] = 0; - ux.i[LOWORD] = 1; - - return ux.d; -} diff --git a/src/lisp/setexception.c b/src/lisp/setexception.c index d0f4519..a77a9d8 100644 --- a/src/lisp/setexception.c +++ b/src/lisp/setexception.c @@ -1,25 +1,4 @@ -#if defined(__NetBSD__) -/* - * NetBSD doesn't have fenv.h. At least the version currently being - * used to build cmucl doesn't. Assume this also means we don't have - * feraiseexcept. So, to generate the desired exceptions, we have to - * create the appropriate operations to generate the desired - * exceptions. - */ -#undef HAVE_FERAISEEXCEPT - -extern double double_zero(); -extern double double_huge(); -extern double double_tiny(); - -#else -#define HAVE_FERAISEEXCEPT -#endif - -#ifdef HAVE_FERAISEEXCEPT #include <fenv.h> -#endif - #include <math.h> #include <stdio.h> @@ -71,48 +50,32 @@ fdlibm_setexception(double x, enum FDLIBM_EXCEPTION type) /* Division by zero. Use the sign of x to get the correct * signed infinity */ -#ifdef HAVE_FERAISEEXCEPT feraiseexcept(FE_DIVBYZERO); - ret = copysign(INFINITY, x); -#else - ret = copysign(1, x) / double_zero(); -#endif + ret = copysign(INFINITY, x); break; case 1: /* Underflow. Use the sign of x to get a signed zero. */ -#ifdef HAVE_FERAISEEXCEPT feraiseexcept(FE_UNDERFLOW); ret = copysign(0.0, x); -#else - ret = double_tiny() * double_tiny();; -#endif break; case 2: /* overflow */ -#ifdef HAVE_FERAISEEXCEPT feraiseexcept(FE_OVERFLOW); ret = copysign(INFINITY, x); -#else - ret = double_huge() * copysign(double_huge(), x); -#endif break; case 3: { - /* if */ + /* invalid */ if (!isQNaN(x)) { /* * If it's not a quiet NaN, we want to signal an invalid * operation. Otherwise, we silently return a NaN. */ -#ifdef HAVE_FERAISEEXCEPT feraiseexcept(FE_INVALID); -#else - ret = double_zero() / double_zero(); - return ret; -#endif } + /* * FIXME: Of the many NaN values that we have, what NaN * should we return? ----------------------------------------------------------------------- Summary of changes: src/code/reader.lisp | 1 - src/compiler/float-tran.lisp | 45 +++++++++++++++++++----------------------- src/lisp/GNUmakefile | 2 +- src/lisp/double-values.c | 40 ------------------------------------- src/lisp/setexception.c | 43 +++------------------------------------- tests/float-tran.lisp | 32 ++++++++++++++++++++++++++++++ tests/float.lisp | 12 +++++++++++ 7 files changed, 68 insertions(+), 107 deletions(-) delete mode 100644 src/lisp/double-values.c create mode 100644 tests/float-tran.lisp create mode 100644 tests/float.lisp hooks/post-receive -- CMU Common Lisp

1 0

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

26 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 0855c18dc2b20c196a0f1167765dc87601658d81 (commit) from 6f288c11cde92ce34b55d8c00df8095f00671be2 (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 0855c18dc2b20c196a0f1167765dc87601658d81 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Sep 25 19:24:02 2014 -0700 Oops. Remove debugging print left in from commit [c0052f55] diff --git a/src/code/reader.lisp b/src/code/reader.lisp index 996b1f3..03f03a0 100644 --- a/src/code/reader.lisp +++ b/src/code/reader.lisp @@ -62,7 +62,6 @@ (reader-error-format-arguments condition)) nil error-stream (file-position error-stream))) - (format t "open-stream-p ~A~%" (open-stream-p error-stream)) (format stream (intl:gettext "Reader error ~@[at ~D ~]on ~S:~%~?") (and (open-stream-p error-stream) (file-position error-stream)) ----------------------------------------------------------------------- Summary of changes: src/code/reader.lisp | 1 - 1 file changed, 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0