- Sep 21, 2005
-
-
rtoy authored
Bielman, cmucl-imp, 2005-09-21.)
-
- Sep 19, 2005
-
-
rtoy authored
objects. (Makes it easier to see what the logical host is when describe'ing a pathname.) o Fix some issues with UNPARSE-ENOUGH-NAMESTRING o It should return a string, not the pathname object. (Noted by Peter Graves on cmucl-imp, 2005-09-18.) o The directory paths must have something more in common than just :ABSOLUTE before we produce a relative directory path. Fixes the issue of always returning relative paths even if the directories don't match at all. o In ENOUGH-NAMESTRING, if the host for the pathname isn't the same as the host for the defaults, just return the pathname. I (rtoy) think this is right. It doesn't make sense to do anything if the hosts are different.
-
- Sep 16, 2005
-
-
rtoy authored
from-wildcard) is not true. (Noted by Peter Graves.)
-
- Sep 13, 2005
- Sep 12, 2005
-
-
rtoy authored
which used to print as #p"", and with reading #p".", #p"./". code/filesys.lisp: o When parsing a unix namestring, delete any "." elements of the directory list. o If we've parsed a namestring such that the file name is ".", replace that with :name NIL and adjust the :directory component appropriately, because on Unix, "." can't be the name of a file. o Make :directory '(:relative) be printed as "./" code/pathname.lisp: o If the :directory argument to MAKE-PATHNAME contains strings with #\/, print a warning that this is not a valid element. o Remove all "."'s from a :relative directory component.
-
- Sep 09, 2005
-
-
pmai authored
-
- Aug 31, 2005
-
-
rtoy authored
instead of #p"a/b/c/". Fix it.
-
- Aug 30, 2005
-
-
rtoy authored
2004/11/09. An example illustrating the bug is: (use-package "ALIEN") (use-package "C-CALL") (def-alien-type yes_no_t (enum yes_no_t :NO :YES)) (def-alien-type nil (struct foo (arg1 yes_no_t) (arg2 yes_no_t))) (def-alien-routine "set_default_options" void (options (* (struct foo)))) Modified alien-type-translator for enum so that if the enum type is known and it's the same type as before we skip the call to (setf auxiliary-alien-type). This fixes the problem.
-
- Aug 25, 2005
-
-
rtoy authored
%unary-ftruncate/double-float where the test for infinity and NaN was wrong. o When given NaN, these functions should return a quiet (non-signaling) NaN instead of returning the signaling NaN. This fixes the FRUNCATE/FFLOOR/FCEILING tests in ieeefp-tests.
-
rtoy authored
case and dispatch to the real-valued C functions in that case. This fixes some errors in the asin and acos tests from ieeefp-tests (at common-lisp.net).
-
- Aug 22, 2005
-
-
rtoy authored
creation. From Eduardo Munoz, cmucl-imp, 2005/07/31.
-
- Aug 17, 2005
-
-
rtoy authored
streams. (See mail to cmucl-imp on 2005-07-25 through 2005-08-03.) This basically allows arbitrary annotations to be added to pretty streams so that the annotations are "printed" at the appropriate times when the pretty stream is printed. This allows better presentation-like features in Slime and McCLIM, and is modeled on Allegro's schedule-annotation. No bootstrap file, but when load-world is run, answer 0 (use-current) to keep these changes to the pretty-stream structure.
-
- Aug 02, 2005
-
-
rtoy authored
-
- Aug 01, 2005
-
-
rtoy authored
it is non-negative. Adjust PRINT-FLOAT-EXPONENT accordingly. o OUTPUT-FLOAT-AUX prints out 1d23 as "1.0d23". This differs from how FORMAT ~E prints out that number. Adjust OUTPUT-FLOAT-AUX to match what ~E does. (Are there other cases that we're missing?)
-
- Jul 13, 2005
-
-
rtoy authored
supposed to take an optional environment arg. Make it so. But we don't do anything with the environment arg. I don't know what to do with it.
-
rtoy authored
but we weren't in cases like (multiple-value-setq nil :good).
-
rtoy authored
code/bsd-os.lisp: o Automatically define :freebsd4 and :elf, if compiling lisp has them defined. tools/create-target.sh: o Support FreeBSD. tools/setenv-scripts/freebsd-features.lisp: o New file with default (commented out) example for FreeBSD.
-
rtoy authored
nothing. When hemlock is loaded, ED is replaced by the version from hemlock.
-
- Jul 12, 2005
-
-
rtoy authored
so.
-
- Jul 07, 2005
- Jul 05, 2005
- Jul 01, 2005
-
-
rtoy authored
for the position. Add support. Reported by Bruno Haible, cmucl-imp, 28 Jun 2005.
-
- Jun 30, 2005
-
-
rtoy authored
minus sign because (minusp -0.0) is false. Use float-sign to get that right. For example (format t "~8,2f" -0.0) has 9 characters instead of 8.
-
- Jun 23, 2005
-
-
rtoy authored
-
- Jun 20, 2005
-
-
rtoy authored
in case we're given a logical pathname.
-
- Jun 19, 2005
-
-
rtoy authored
micro-optimization.
-
- Jun 15, 2005
-
-
rtoy authored
Make sure the position arg to flonum-to-string is non-negative in this case.
-
- Jun 14, 2005
-
-
rtoy authored
cmucl-imp, on or around 2005/06/13. Some useful tests: (format nil "~9,3,2,0,'%G" 0.0314159) Expected: "0.314e-01" (format nil "~9,3,2,-2,'%@e" 3.14159) Expected: "+.003E+03" (format nil "~6,2,1,'*F" 3.14159) Expected: " 31.42" (format nil "~9,0,6f" 3.14159) Expected: " 3141590." (let (x) (dotimes (k 13 x) (setq x (cons (format nil "~%Scale factor ~2D: |~13,6,2,VE|" (- k 5) (- k 5) 3.14159) x)))) (" Scale factor 7: | 3141590.e-06|" " Scale factor 6: | 314159.0e-05|" " Scale factor 5: | 31415.90e-04|" " Scale factor 4: | 3141.590e-03|" " Scale factor 3: | 314.1590e-02|" " Scale factor 2: | 31.41590e-01|" " Scale factor 1: | 3.141590e+00|" " Scale factor 0: | 0.314159e+01|" " Scale factor -1: | 0.031416e+02|" " Scale factor -2: | 0.003142e+03|" " Scale factor -3: | 0.000314e+04|" " Scale factor -4: | 0.000031e+05|" " Scale factor -5: | 0.000003e+06|") code/format.lisp: o If the scale factor (k) is negative, the min number of digits to print is 1, not (- 1 k) because that prints too many if the field is too short. Setting fmin to fdig is ok if k >= 0. (See scale factor test above.) o If flonum-to-string returns with a trailing decimal point, we don't need to decrement spaceleft because that deletes a white-space character. (See first scale factor 7 test above.) code/print.lisp: o We need to adjust the number of digits to be printed to include the scale factor. See tests above.
-
- Jun 13, 2005
-
-
rtoy authored
This is done by faking it. The file being compiled is compiled as usual, but we append fake forms to the file as if they came from the file. These fake forms insert the necessary information into the xref databases when the fasl is loaded. To support this feature, we also updated COMPILE-FILE to recognize the :xref keyword arg. Set this to non-NIL to enable computing and saving xref information. code/exports.lisp: o Update XREF exports compiler/fndb.lisp: o Update with new definition of COMPILE-FILE. compiler/main.lisp: o Append fake forms to the file being compiled to save xref information to the fasl. This clears out any xref info we might have for the file, and inserts the necessary xref information into the database. o Add :XREF keyword arg to COMPILE-FILE. Default value of :XREF is C::*RECORD-XREF-INFO*. compiler/xref.lisp: o Add function to invalidate xref info for a given namestring, so we can reset the info when a fasl with xref info is loaded. o Add a function to find all xref information for a given pathname. Used for saving xref info to a fasl.
-
- Jun 01, 2005
-
-
rtoy authored
-
- May 26, 2005
- May 23, 2005
-
-
rtoy authored
string.
-
rtoy authored
Description: In (peek-char nil s nil foo), if foo happens to be the same character that peek-char returns, the character is removed from the input stream, as if read by read-char. Examples: * (with-input-from-string (s "123") (list (peek-char nil s nil #\1) (read-char s) (read-char s))) (#\1 #\2 #\3) This fix is based on the version proposed by Rudi Schlatte, with minor changes in naming.
-
- May 19, 2005
-
-
rtoy authored
short and fit on one line.
-
- May 17, 2005
-
-
rtoy authored
extend over multiple lines.
-
- May 12, 2005
-
-
rtoy authored
(declare (type fixnum n) (type bar x)) We now get (declare (type fixnum n) (type bar x))
-