Alexey Dejneka | 1 Jul 2003 07:23
Picon

CVS: sbcl/src/compiler fndb.lisp,1.73,1.74

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv13869/src/compiler

Modified Files:
	fndb.lisp 
Log Message:
0.8.1.13:
        * Index argument of LAST and [N]BUTLAST may be a bignum (from
          Paul Dietz' test suite).

Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- fndb.lisp	30 Jun 2003 07:06:48 -0000	1.73
+++ fndb.lisp	1 Jul 2003 05:23:06 -0000	1.74
 <at>  <at>  -686,7 +686,7  <at>  <at> 
 (defknown list-length (list) (or index null) (foldable unsafely-flushable))
 (defknown nth (unsigned-byte list) t (foldable flushable))
 (defknown nthcdr (unsigned-byte list) t (foldable unsafely-flushable))
-(defknown last (list &optional index) t (foldable flushable))
+(defknown last (list &optional unsigned-byte) t (foldable flushable))
 (defknown list (&rest t) list (movable flushable unsafe))
 (defknown list* (t &rest t) t (movable flushable unsafe))
 (defknown make-list (index &key (:initial-element t)) list
 <at>  <at>  -707,8 +707,8  <at>  <at> 
 (defknown nconc (&rest t) t ())

(Continue reading)

Alexey Dejneka | 1 Jul 2003 07:23
Picon

CVS: sbcl/tests list.pure.lisp,1.9,1.10

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv13869/tests

Modified Files:
	list.pure.lisp 
Log Message:
0.8.1.13:
        * Index argument of LAST and [N]BUTLAST may be a bignum (from
          Paul Dietz' test suite).

Index: list.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/list.pure.lisp,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- list.pure.lisp	30 Jun 2003 07:06:48 -0000	1.9
+++ list.pure.lisp	1 Jul 2003 05:23:06 -0000	1.10
 <at>  <at>  -124,3 +124,8  <at>  <at> 
   (assert (eq (nth (* 1440 most-positive-fixnum) s) 'c))
   (setf (nth (* 1440 most-positive-fixnum) s) 14)
   (assert (eq (nth (* 1440 most-positive-fixnum) s) 14)))
+
+(let ((s (copy-list '(1 2 3))))
+  (assert (eq s (last s (* 1440 most-positive-fixnum))))
+  (assert (null (butlast s (* 1440 most-positive-fixnum))))
+  (assert (null (nbutlast s (* 1440 most-positive-fixnum)))))

-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
(Continue reading)

Alexey Dejneka | 1 Jul 2003 07:23
Picon

CVS: sbcl NEWS,1.352,1.353 version.lisp-expr,1.1087,1.1088

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv13869

Modified Files:
	NEWS version.lisp-expr 
Log Message:
0.8.1.13:
        * Index argument of LAST and [N]BUTLAST may be a bignum (from
          Paul Dietz' test suite).

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.352
retrieving revision 1.353
diff -u -d -r1.352 -r1.353
--- NEWS	30 Jun 2003 07:06:48 -0000	1.352
+++ NEWS	1 Jul 2003 05:23:06 -0000	1.353
 <at>  <at>  -1903,6 +1903,8  <at>  <at> 
   * bug fix: CERROR accepts a function as its first argument.
   * bug fix: NTH an NTHCDR accept a bignum as index
     arguments. (reported by Adam Warner)
+  * fixed some bugs revealed by Paul Dietz' test suite:
+    ** LAST and [N]BUTLAST should accept a bignum.

 planned incompatible changes in 0.8.x:
   * (not done yet, but planned:) When the profiling interface settles

Index: version.lisp-expr
===================================================================
(Continue reading)

Alexey Dejneka | 1 Jul 2003 07:23
Picon

CVS: sbcl/src/code list.lisp,1.22,1.23

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv13869/src/code

Modified Files:
	list.lisp 
Log Message:
0.8.1.13:
        * Index argument of LAST and [N]BUTLAST may be a bignum (from
          Paul Dietz' test suite).

Index: list.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/list.lisp,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- list.lisp	30 Jun 2003 07:06:48 -0000	1.22
+++ list.lisp	1 Jul 2003 05:23:06 -0000	1.23
 <at>  <at>  -11,6 +11,8  <at>  <at> 

 (in-package "SB!IMPL")

+;;; Limitation: no list might have more than INDEX conses.
+
 ;;;; KLUDGE: comment from CMU CL, what does it mean?
 ;;;;   NSUBLIS, things at the beginning broken.
 ;;;; -- WHN 20000127
 <at>  <at>  -231,14 +233,15  <at>  <at> 
 (defun last (list &optional (n 1))
   #!+sb-doc
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:36
Picon

CVS: sbcl/src/code cross-char.lisp,NONE,1.1

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv17923/src/code

Added Files:
	cross-char.lisp 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

--- NEW FILE: cross-char.lisp ---
;;;; cross-compile-time-only replacements for unportable character
;;;; stuff

;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:36
Picon

CVS: sbcl/src/cold defun-load-or-cload-xcompiler.lisp,1.12,1.13

Update of /cvsroot/sbcl/sbcl/src/cold
In directory sc8-pr-cvs1:/tmp/cvs-serv17923/src/cold

Modified Files:
	defun-load-or-cload-xcompiler.lisp 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

Index: defun-load-or-cload-xcompiler.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/cold/defun-load-or-cload-xcompiler.lisp,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- defun-load-or-cload-xcompiler.lisp	27 Jun 2003 10:07:44 -0000	1.12
+++ defun-load-or-cload-xcompiler.lisp	2 Jul 2003 08:36:57 -0000	1.13
 <at>  <at>  -92,7 +92,9  <at>  <at> 
                     ;; existence in xc and target
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:36
Picon

CVS: sbcl/src/compiler srctran.lisp,1.67,1.68

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1:/tmp/cvs-serv17923/src/compiler

Modified Files:
	srctran.lisp 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

Index: srctran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/srctran.lisp,v
retrieving revision 1.67
retrieving revision 1.68
diff -u -d -r1.67 -r1.68
--- srctran.lisp	14 Jun 2003 08:10:42 -0000	1.67
+++ srctran.lisp	2 Jul 2003 08:36:57 -0000	1.68
 <at>  <at>  -2956,6 +2956,24  <at>  <at> 
 #-sb-xc-host ; (See CROSS-FLOAT-INFINITY-KLUDGE.)
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:36
Picon

CVS: sbcl NEWS,1.353,1.354 OPTIMIZATIONS,1.9,1.10 build-order.lisp-expr,1.33,1.34 version.lisp-expr,1.1088,1.1089

Update of /cvsroot/sbcl/sbcl
In directory sc8-pr-cvs1:/tmp/cvs-serv17923

Modified Files:
	NEWS OPTIMIZATIONS build-order.lisp-expr version.lisp-expr 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.353
retrieving revision 1.354
diff -u -d -r1.353 -r1.354
--- NEWS	1 Jul 2003 05:23:06 -0000	1.353
+++ NEWS	2 Jul 2003 08:36:56 -0000	1.354
 <at>  <at>  -1903,6 +1903,8  <at>  <at> 
   * bug fix: CERROR accepts a function as its first argument.
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:36
Picon

CVS: sbcl/src/compiler/x86 char.lisp,1.4,1.5

Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs1:/tmp/cvs-serv17923/src/compiler/x86

Modified Files:
	char.lisp 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

Index: char.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/char.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- char.lisp	16 Jan 2002 15:40:15 -0000	1.4
+++ char.lisp	2 Jul 2003 08:36:57 -0000	1.5
 <at>  <at>  -138,3 +138,27  <at>  <at> 
 (define-vop (fast-char>/base-char base-char-compare)
(Continue reading)

Christophe Rhodes | 2 Jul 2003 10:37
Picon

CVS: sbcl/tests seq.impure.lisp,1.18,1.19

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv17923/tests

Modified Files:
	seq.impure.lisp 
Log Message:
0.8.1.14:
	Fix OPTIMIZATIONS #1b on x86, at Gilbert Baumann's request (on
	#lisp IRC 2003-07-01)
	... new VOPs for base-char comparisons with constant second 
		argument;
	... new transforms for CHAR< and CHAR> to ensure that any constant
		argument is second;
	... don't fall into the trap of assuming that the world is ASCII;
		instead, define SB!XC:CODE-CHAR and SB!XC:CHAR-CODE that
		deal with converting STANDARD-CHARs to and from ASCII codes;
	... in the interest of the sanity of those with slow machines, refactor
		tests/seq.impure.lisp slightly so that it takes somewhat less
		time than the cosmological epoch to run

Index: seq.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/seq.impure.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- seq.impure.lisp	3 Feb 2003 15:41:49 -0000	1.18
+++ seq.impure.lisp	2 Jul 2003 08:36:57 -0000	1.19
 <at>  <at>  -76,7 +76,7  <at>  <at> 
 	      (when (or warnings-p failure-p)
(Continue reading)


Gmane