stassats | 20 Apr 12:56 2014
Picon
Picon

master: Fix clos.pure.lisp.

The branch "master" has been updated in SBCL:
       via  2ea1111db2af14bdc4ccebf4d5e2cf81f4e22183 (commit)
      from  458751734a48b2e41fa9088ccdf63c3e7ee4d226 (commit)

- Log -----------------------------------------------------------------
commit 2ea1111db2af14bdc4ccebf4d5e2cf81f4e22183
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Sun Apr 20 14:55:47 2014 +0400

    Fix clos.pure.lisp.

    clos.pure stumbles on anonymous class created by mop.pure.
---
 tests/clos.pure.lisp |   42 +++++++++++++++++++++++-------------------
 tests/mop.pure.lisp  |    9 +++++----
 2 files changed, 28 insertions(+), 23 deletions(-)

diff --git a/tests/clos.pure.lisp b/tests/clos.pure.lisp
index ae8b524..b424a40 100644
--- a/tests/clos.pure.lisp
+++ b/tests/clos.pure.lisp
 <at>  <at>  -48,29 +48,33  <at>  <at> 
   (assert (equal result (remove-duplicates result))))

 ;;; this one's user-observable
-(assert (typep #'(setf class-name) 'generic-function))
+(with-test (:name :type-of-setf-class-name)
+ (assert (typep #'(setf class-name) 'generic-function)))

 ;;; CLHS 1.4.4.5.  We could test for this by defining methods
(Continue reading)

stassats | 20 Apr 12:06 2014
Picon
Picon

master: Run specified tests in the order they were supplied.

The branch "master" has been updated in SBCL:
       via  458751734a48b2e41fa9088ccdf63c3e7ee4d226 (commit)
      from  cc56b5900b4b9fe93ea8a664953ef1c2f0d7223f (commit)

- Log -----------------------------------------------------------------
commit 458751734a48b2e41fa9088ccdf63c3e7ee4d226
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Sun Apr 20 14:06:01 2014 +0400

    Run specified tests in the order they were supplied.

    Run a before b in ./run-tests.sh a b, instead of the reverse.
---
 tests/run-tests.lisp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 3d8c3d4..ff0ae26 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
 <at>  <at>  -29,6 +29,7  <at>  <at> 
           ((string= arg "--no-color"))
           (t
            (push (truename (parse-namestring arg)) *explicit-test-files*))))
+  (setf *explicit-test-files* (nreverse *explicit-test-files*))
   (pure-runner (pure-load-files) #'load-test)
   (pure-runner (pure-cload-files) #'cload-test)
   (impure-runner (impure-load-files) #'load-test)

-----------------------------------------------------------------------
(Continue reading)

Douglas Katzman | 19 Apr 23:24 2014
Picon
Picon

master: Fix describe of a package without sb-package-locks

The branch "master" has been updated in SBCL:
       via  cc56b5900b4b9fe93ea8a664953ef1c2f0d7223f (commit)
      from  189dd8be262c6abddd9c85d67aa1dfbe0efcdc8d (commit)

- Log -----------------------------------------------------------------
commit cc56b5900b4b9fe93ea8a664953ef1c2f0d7223f
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 17:23:46 2014 -0400

    Fix describe of a package without sb-package-locks
---
 src/code/describe.lisp |   36 ++++++++++++++++--------------------
 1 files changed, 16 insertions(+), 20 deletions(-)

diff --git a/src/code/describe.lisp b/src/code/describe.lisp
index da5082b..b8e807e 100644
--- a/src/code/describe.lisp
+++ b/src/code/describe.lisp
 <at>  <at>  -397,28 +397,24  <at>  <at> 
                    #'string<))
            (out (label list)
              (describe-stuff label list stream :escape nil)))
-      (let ((implemented (humanize (package-implemented-by-list package)))
-            (implements (humanize (package-implements-list package)))
-            (nicks (humanize (package-nicknames package)))
-            (uses (humanize (package-use-list package)))
-            (used (humanize (package-used-by-list package)))
-            (shadows (humanize (package-shadowing-symbols package)))
-            (this (list (package-name package)))
-            (exports nil))
(Continue reading)

Douglas Katzman | 19 Apr 23:17 2014
Picon
Picon

master: Rename SYMBOL-FDEFINITION to SYMBOL-FDEFN and similarly INFO-VECTOR-

The branch "master" has been updated in SBCL:
       via  189dd8be262c6abddd9c85d67aa1dfbe0efcdc8d (commit)
      from  c6909a95b6f67412d28c2ae3443a092ef2f074cb (commit)

- Log -----------------------------------------------------------------
commit 189dd8be262c6abddd9c85d67aa1dfbe0efcdc8d
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 17:12:30 2014 -0400

    Rename SYMBOL-FDEFINITION to SYMBOL-FDEFN and similarly INFO-VECTOR-
    
    This is to avoid a false connotation that SYMBOL-FDEFINITION is just
    FDEFINITION but restricted to symbols (which would be SYMBOL-FUNCTION)
---
 package-data-list.lisp-expr           |    6 ++--
 src/code/fdefinition.lisp             |   50 ++++++++++++++++-----------------
 src/code/fop.lisp                     |    4 +-
 src/code/symbol.lisp                  |    2 +-
 src/compiler/generic/target-core.lisp |    2 +-
 src/compiler/info-vector.lisp         |    6 ++--
 tests/info.impure.lisp                |    8 ++--
 7 files changed, 38 insertions(+), 40 deletions(-)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index fc1e353..1c4c83b 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
 <at>  <at>  -949,12 +949,12  <at>  <at>  possibly temporarily, because it might be used internally."
                "+FDEFN-TYPE-NUM+"
                "CLEAR-INFO"
(Continue reading)

Douglas Katzman | 19 Apr 23:07 2014
Picon
Picon

master: Fix chill without package locks

The branch "master" has been updated in SBCL:
       via  c6909a95b6f67412d28c2ae3443a092ef2f074cb (commit)
      from  5b3bde4ae4ad88221916b1bec8a4633b8d619c05 (commit)

- Log -----------------------------------------------------------------
commit c6909a95b6f67412d28c2ae3443a092ef2f074cb
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 17:06:29 2014 -0400

    Fix chill without package locks
---
 src/cold/chill.lisp |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/cold/chill.lisp b/src/cold/chill.lisp
index 1156698..9c3639f 100644
--- a/src/cold/chill.lisp
+++ b/src/cold/chill.lisp
 <at>  <at>  -30,11 +30,11  <at>  <at> 
 ;;; backend-subfeatures
 (setf sb-cold:*shebang-backend-subfeatures* sb-c:*backend-subfeatures*)

-(handler-bind ((sb-ext:package-locked-error #'continue))
+(handler-bind (#+sb-package-locks (sb-ext:package-locked-error #'continue))
   ;; The nickname SB!XC now refers to the CL package.
   (rename-package "COMMON-LISP" "COMMON-LISP"
                   (cons "SB!XC" (package-nicknames "CL")))
-  (sb-ext:unlock-package "CL")
+  #+sb-package-locks (sb-ext:unlock-package "CL")

(Continue reading)

Douglas Katzman | 19 Apr 22:37 2014
Picon
Picon

master: Rename size_small_boxed to size_tiny_boxed (respectively "trans_")

The branch "master" has been updated in SBCL:
       via  5b3bde4ae4ad88221916b1bec8a4633b8d619c05 (commit)
      from  7297d4392990e746809907cd98d91b8a5fd0fe7b (commit)

- Log -----------------------------------------------------------------
commit 5b3bde4ae4ad88221916b1bec8a4633b8d619c05
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 16:32:48 2014 -0400

    Rename size_small_boxed to size_tiny_boxed (respectively "trans_")

    This change connotes that it is not merely the opposite of "large"
    thus implying applicablity to anything not on a large object page.
---
 src/runtime/gc-common.c |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 20ce187..a5e79da 100644
--- a/src/runtime/gc-common.c
+++ b/src/runtime/gc-common.c
 <at>  <at>  -697,7 +697,7  <at>  <at>  size_boxed(lispobj *where)
 }

 static lispobj
-trans_small_boxed(lispobj object)
+trans_tiny_boxed(lispobj object)
 {
     lispobj header;
     uword_t length;
(Continue reading)

Douglas Katzman | 19 Apr 21:37 2014
Picon
Picon

master: Move FIND-FDEFINITION to where it properly belongs

The branch "master" has been updated in SBCL:
       via  7297d4392990e746809907cd98d91b8a5fd0fe7b (commit)
      from  dd417c3ef2b65d9cafd895add5cd96e7e8e3f958 (commit)

- Log -----------------------------------------------------------------
commit 7297d4392990e746809907cd98d91b8a5fd0fe7b
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 15:37:15 2014 -0400

    Move FIND-FDEFINITION to where it properly belongs

    Also removed unused function FDEFINITION-OBJECT
---
 package-data-list.lisp-expr     |   14 +++++++---
 src/code/fdefinition.lisp       |   53 ++++++++++++++++++++++++++++----------
 src/compiler/generic/parms.lisp |    1 -
 src/compiler/globaldb.lisp      |   44 --------------------------------
 4 files changed, 49 insertions(+), 63 deletions(-)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 5658bf3..fc1e353 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
 <at>  <at>  -945,13 +945,20  <at>  <at>  possibly temporarily, because it might be used internally."
                ;; INFO stuff doesn't belong in a user-visible package, we
                ;; should be able to change it without apology.
                "*INFO-ENVIRONMENT*"
+               "+INFOS-PER-WORD+"
+               "+FDEFN-TYPE-NUM+"
                "CLEAR-INFO"
(Continue reading)

Douglas Katzman | 19 Apr 21:34 2014
Picon
Picon

master: Another fix for build without package locks

The branch "master" has been updated in SBCL:
       via  dd417c3ef2b65d9cafd895add5cd96e7e8e3f958 (commit)
      from  95729c41267906f8eee83f4da6c73152927b4205 (commit)

- Log -----------------------------------------------------------------
commit dd417c3ef2b65d9cafd895add5cd96e7e8e3f958
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 15:33:51 2014 -0400

    Another fix for build without package locks
---
 src/code/target-package.lisp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index f46fa81..9186476 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
 <at>  <at>  -890,6 +890,7  <at>  <at>  implementation it is ~S." *default-package-use-list*)
                      (mapcar #'package-name use-list))
                     (dolist (p use-list)
                       (unuse-package package p))))
+                #!+sb-package-locks
                 (dolist (p (package-implements-list package))
                   (remove-implementation-package package p))
                 (with-package-graph ()

-----------------------------------------------------------------------

hooks/post-receive
(Continue reading)

stassats | 19 Apr 18:52 2014
Picon
Picon

master: Optimize (array character (*)) type test.

The branch "master" has been updated in SBCL:
       via  95729c41267906f8eee83f4da6c73152927b4205 (commit)
      from  76a10d02fef07b0162a90374979d8852afa9b0a0 (commit)

- Log -----------------------------------------------------------------
commit 95729c41267906f8eee83f4da6c73152927b4205
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Sat Apr 19 20:50:06 2014 +0400

    Optimize (array character (*)) type test.

    Group SIMPLE-CHARACTER-STRING-WIDETAG and
    COMPLEX-CHARACTER-STRING-WIDETAG together.
---
 src/compiler/generic/early-objdef.lisp |    4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/compiler/generic/early-objdef.lisp b/src/compiler/generic/early-objdef.lisp
index 0f1ace4..de32f39 100644
--- a/src/compiler/generic/early-objdef.lisp
+++ b/src/compiler/generic/early-objdef.lisp
 <at>  <at>  -233,9 +233,9  <at>  <at> 
   simple-base-string-widetag                ; 11011110
   #!+sb-unicode
   simple-character-string-widetag
-  complex-base-string-widetag               ; 11100110
   #!+sb-unicode
-  complex-character-string-widetag          ; 11101010
+  complex-character-string-widetag          ; 11100110
+  complex-base-string-widetag               ; 11101010
(Continue reading)

stassats | 19 Apr 18:45 2014
Picon
Picon

master: Optimize (coerce x 'list).

The branch "master" has been updated in SBCL:
       via  76a10d02fef07b0162a90374979d8852afa9b0a0 (commit)
      from  151592236a4241fe8701610c7112c24e90a0583b (commit)

- Log -----------------------------------------------------------------
commit 76a10d02fef07b0162a90374979d8852afa9b0a0
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Sat Apr 19 20:29:01 2014 +0400

    Optimize (coerce x 'list).

    Transform into a call to COERCE-TO-LIST.
---
 NEWS                       |    3 ++-
 src/code/coerce.lisp       |   15 +++++++++++++--
 src/compiler/typetran.lisp |    2 ++
 tests/type.pure.lisp       |    5 +++--
 4 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/NEWS b/NEWS
index 1ebca79..3d936c6 100644
--- a/NEWS
+++ b/NEWS
 <at>  <at>  -1,6 +1,7  <at>  <at> 
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
 changes relative to sbcl-1.1.17:
-  * optimization: (coerce x 'complex) is now as efficient as (complex x).
+  * optimization: COERCE is now more effecient for more cases when the type is
+    known at compile-time.
     (lp#1309815)
(Continue reading)

Douglas Katzman | 19 Apr 18:40 2014
Picon
Picon

master: Don't say "macro" in an error message about special operators.

The branch "master" has been updated in SBCL:
       via  151592236a4241fe8701610c7112c24e90a0583b (commit)
      from  392e2b25e258b6afdec81ddd8328fe7aa85b08df (commit)

- Log -----------------------------------------------------------------
commit 151592236a4241fe8701610c7112c24e90a0583b
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Apr 19 12:37:07 2014 -0400

    Don't say "macro" in an error message about special operators.
---
 src/code/coerce.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/code/coerce.lisp b/src/code/coerce.lisp
index f6db6d5..c7cf0fb 100644
--- a/src/code/coerce.lisp
+++ b/src/code/coerce.lisp
 <at>  <at>  -65,7 +65,7  <at>  <at> 
       (:macro
        (error "~S names a macro." object))
       (:special-form
-       (error "~S names a macro." object))
+       (error "~S names a special operator." object))
       (t
        (fdefinition object)))))

-----------------------------------------------------------------------

hooks/post-receive
(Continue reading)


Gmane