- Jul 14, 2008
-
-
rtoy authored
code/loop.lisp: o In LOOP-TRANSLATE, create block for loop named NIL by checking for the end of the list, not for NIL in the list. o In LOOP-DO-NAMED, don't append NIL to *LOOP-NAMES* so we can create blocks named NIL. (Why was this being done before?) general-info/release-19f.txt: o Update
-
rtoy authored
space so everything gets spaced correctly. Don't print the space in FORMAT-PRINT-CARDINAL-AUX.
-
- Jun 27, 2008
-
-
rtoy authored
I just removed the leading space from each name, and modified FORMAT-PRINT-CARDINAL-AUX to print the space instead.
-
- Jun 26, 2008
-
-
rtoy authored
o Recursively call RANDOM for the integer case to let the deftransform handle the case. compiler/float-tran.lisp: o Remove comment about modifying RANDOM to match the deftransform. We're automatically in sync now.
-
- Jun 25, 2008
-
-
rtoy authored
-
- Jun 24, 2008
-
-
rtoy authored
Fix bug in deftransform where the case for x86 and num-high > random-fixnum-max was never used. We now always use the bignum multiply code for all platforms and use that for all cases for which the deftransform applies. Simplify the constant-continuation case too so we don't have to the check. I think the bignum multiply version does not have the bias problem that rem has. code/rand-mt19937.lisp: Change the RANDOM function to compute the same value as the deftransform would. general-info/release-19f.txt: Update Make a note that both the function and the deftransform should be synchronized to match. This change also changes the sequence of numbers produced.
-
- Jun 23, 2008
-
-
rtoy authored
ACCEPT-NETWORK-STREAM. From Paul Foley.
-
rtoy authored
o Not that it really matters, since they're not printed and case-insensitive on read, but the control character names should really be upper-case o Also cleans up some anachronistic mention of character fonts and bits.
-
rtoy authored
From Paul Foley.
-
- Jun 20, 2008
-
-
rtoy authored
I've moved some slots out of external-format so they can be shared between external-formats that are identical in all but some variables. Also fixed a bug in octets-to-string that made it return one character short, and used char-code-limit instead of #x100 to determine when octets-to-char returns a "?", so now it'll work without change on 8 or 16 bit lisps.
-
- Jun 19, 2008
-
-
rtoy authored
more like the actual call (var filespec &rest open-args) instead of (var &rest open-args). Fix up the macro documentation too since that didn't really match the arguments very well either.
-
rtoy authored
Basically, don't use delete-duplicates but do it ourselves since the list is already sorted. From Lynn Quam, cmucl-imp, 2008/06/05, slightly modified. code/filesys.lisp: o New DIRECTORY function general-info/release-19f.txt: o Update
-
rtoy authored
"library:ext-formats/". This makes it easier to add new directories where external formats can be found. The previous use made it difficult because the formats had to be in the subdirectory ext-formats. save.lisp: o Create and initialize new search-list. extfmts.lisp: o Use the new search-list instead of "library:ext-formats/".
-
rtoy authored
bootfiles/19e/boot-2008-06-1.lisp: o Use this bootfile to compile the change in external-format structure. Just needed to get rid of a restart when compiling pcl. code/exports.lisp: o Renames ENCODE-STRING to STRING-ENCODE. Similarly for DECODE-STRING. code/extfmts.lisp: pcl/simple-streams/impl.lisp: pcl/simple-streams/strategy.lisp: pcl/simple-streams/external-formats/iso8859-1.lisp: pcl/simple-streams/external-formats/utf-8.lisp: pcl/simple-streams/external-formats/void.lisp: o Updated for new external format. I think the main change is not having to do a funcall for each character. pcl/simple-streams/external-formats/aliases o New file describing different names for external formats. pcl/simple-streams/external-formats/crlf.lisp: o New file for composing external format for CR/LF pcl/simple-streams/external-formats/utf-16-be.lisp: pcl/simple-streams/external-formats/utf-16-le.lisp: o New files supporting UTF-16 BE and LE formats. tools/make-main-dist.sh: o Copy over the new files and the aliases file too.
-
- Jun 18, 2008
-
-
rtoy authored
with the original filespec, not the truename of the filespec. Also fixes the issue where defaulted-new-name should be an LPN if new-name is. From Madhu, cmucl-imp, 2008/06/01.
-
- May 23, 2008
- Apr 29, 2008
-
-
rtoy authored
MAKE-HASH-TABLE-LOAD-FORM was missing a comma for the value of the :weak-p arg.
-
- Apr 22, 2008
-
-
rtoy authored
code/sparc-svr4-vm.lisp, which is probably where it all belonged originally. This gets rid of some errors (about the alien struct FPQ being undefined) during sparc cross-compiles.
-
- Apr 15, 2008
- Apr 04, 2008
-
-
rtoy authored
:TYPE "foo"). This is because PATHNAME-HOST was signaling an error for a host of NIL. We check for a host of NIL now, and bypass the call to PATHNAME-HOST. This allows the pathname printer to print #P(:HOST NIL :TYPE "foo"), as we want. (The error comes from host-pathname. NIL is a valid result of host-pathname, so we could change that, but I think that has other implications, one of which is (MAKE-PATHNAME :HOST NIL :NAME "foo" :TYPE "lisp") gets printed as #P"foo.lisp", which is wrong, since that pathname has a unix-host host.) o Fix merging of version in MAKE-PATHNAME. CLHS MERGE-PATHNAMES says if the pathname name is given, the version is not affected by the default pathname.
-
- Apr 03, 2008
-
-
rtoy authored
That's working now. (But general type derivation for double-double-float's isn't working as expected. Many things are derived as unbounded double-double-float instead of something much smaller.)
-
- Apr 02, 2008
- Mar 26, 2008
-
-
rtoy authored
args.
-
- Mar 13, 2008
-
-
rtoy authored
10^66-1. 10^63 is a vigintillion. (From SBCL).
-
rtoy authored
exceeding the specified width. I think the correct answer is ".0000". So, add a parameter, allow-overflow-p, to FLONUM-TO-STRING to allow the width constraint to be exceeded. This defaults to T. FLONUM-TO-STRING looks at this and decides whether or not to print out all the leading zeroes or not. In FIXED-FORMAT-AUX, set allow-overflow-p to NIL so we don't exceed the width. I wish there were another way to do this, but I can't think of one right now. All print tests pass, and add the following test: (format nil "~5F" 1d-10) -> ".0000" print.lisp: o Change FLONUM-TO-STRING to use keyword parameters instead of optional parameters. o Add :ALLOW-OVERFLOW-P, defaulting to T. o Use :ALLOW-OVERFLOW-P to determine if all the leading zeroes should be printed or not. format.lisp: o Update calls to FLONUM-TO-STRING to use keywords parameters. o In FIXED-FORMAT-AUX, set :ALLOW-OVERFLOW-P to NIL
-
- Mar 03, 2008
-
-
rtoy authored
want to print ", @foo" not ",@foo". Similarly, for .foo, we want to print ", .foo" instead of ",.foo".
-
- Feb 29, 2008
-
-
rtoy authored
-
- Feb 27, 2008
-
-
rtoy authored
Basically caused by a change of exponent due rounding of the number for printing. 0.999999 might get printed as 1.000. The original number had an exponent of -1, but the printed number has an exponent of 0, and we need to account for this. code/print.lisp: o Modify FLONUM-TO-STRING to take into account of the actual and printed exponent of the number. Return an extra value to indicate if rounding has the exponent to change. code/format.lisp: o Use the new return value from FLONUM-TO-STRING to tell us if we need to adjust the printed exponent to account for the rounding change. All print tests still pass, and we add the following tests: (assert (string= (format nil "~11,3,2,0,'*,,'EE" .99) " 0.990E+00")) (assert (string= (format nil "~11,3,2,0,'*,,'EE" .999) " 0.999E+00")) (assert (string= (format nil "~11,3,2,0,'*,,'EE" .9999) " 0.100E+01")) (assert (string= (format nil "~11,3,2,0,'*,,'EE" .0000999) " 0.999E-04")) (assert (string= (format nil "~11,3,2,0,'*,,'EE" .00009999) " 0.100E-03")) (assert (string= (format nil "~11,3,2,,'*,,'EE" .00009999) " 9.999E-05")) (assert (string= (format nil "~11,3,2,,'*,,'EE" .000099999) " 1.000E-04"))
-
- Feb 13, 2008
-
-
rtoy authored
on the maxima mailing list.)
-
- Feb 08, 2008
-
-
rtoy authored
UNIX-SYSINFO SI-SYSNAME SI-HOSTNAME SI-RELEASE SI-VERSION SI-MACHINE SI-ARCHITECTURE SI-HW-SERIAL SI-HW-PROVIDER SI-SRPC-DOMAIN SI-PLATFORM SI-ISALIST SI-DHCP-CACHE Actually only UNIX-SYSINFO, SI-MACHINE, and SI-PLATFORM are needed (sparc-svr4-vm.lisp) but let's export them all since they're in exports.lisp.
-
- Feb 01, 2008
-
-
rtoy authored
less than 10^(-d) (approximately). Previously, we'd print out m leading digits if the number were 10^(-m) even if d < m. Additional tests: (assert (string= (format nil "~,3F" 0.000001) "0.000"))
-
- Jan 31, 2008
-
-
rtoy authored
-
rtoy authored
whatever dd says. This allows ~G to match what Fortran does, and also defers to ~F to let it decide what to do. The following tests now fail: (assert (string= (format nil "~9,5G" pi) "3.142 ")) (assert (string= (format nil "~12,,,,'%g" 1.2345678d1) "12.34568 ")) The former should be (assert (string= (format nil "~9,5G" pi) "3.1416 ")) and the latter should be removed or changed to (assert (string= (format nil "~12,,,,'%g" 1.2345678d1) "%%%%%%%%%%%%"))
-
- Jan 30, 2008
-
-
rtoy authored
appear to affect any output, but let's be safe when calling format-fixed-aux.
-
- Jan 29, 2008
-
-
rtoy authored
format-general-aux.
-