Douglas Katzman | 15 Nov 20:37 2014
Picon
Picon

master: Fix comment affected by change 1e9b2eeb4d8d07e6282dc6a747661134ccda8f4c

The branch "master" has been updated in SBCL:
       via  7f8179c2b819253458d511bb863ac58f876c89fe (commit)
      from  6bdb4d7309a4aae6df5d299709cb409e227e5808 (commit)

- Log -----------------------------------------------------------------
commit 7f8179c2b819253458d511bb863ac58f876c89fe
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Nov 15 14:36:20 2014 -0500

    Fix comment affected by change 1e9b2eeb4d8d07e6282dc6a747661134ccda8f4c
---
 src/code/target-alieneval.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/code/target-alieneval.lisp b/src/code/target-alieneval.lisp
index 817d9b5..c2d820f 100644
--- a/src/code/target-alieneval.lisp
+++ b/src/code/target-alieneval.lisp
 <at>  <at>  -324,7 +324,7  <at>  <at>  Examples:
          :format-control "~A: malloc() of ~S bytes failed."
          :format-arguments (list (strerror errno) bytes)))

-;;; Allocate a block of memory at least BITS bits long and return a
+;;; Allocate a block of memory at least BYTES bytes long and return a
 ;;; system area pointer to it.
 #!-sb-fluid (declaim (inline %make-alien))
 (defun %make-alien (bytes)

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

(Continue reading)

Douglas Katzman | 15 Nov 16:18 2014
Picon
Picon

master: SLOT-EXISTS-P can use LAYOUT-SLOT-TABLE for O(1) performance.

The branch "master" has been updated in SBCL:
       via  6bdb4d7309a4aae6df5d299709cb409e227e5808 (commit)
      from  ea264887b5e3fc106a234c55867cbee4b10368b0 (commit)

- Log -----------------------------------------------------------------
commit 6bdb4d7309a4aae6df5d299709cb409e227e5808
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Nov 15 10:03:39 2014 -0500

    SLOT-EXISTS-P can use LAYOUT-SLOT-TABLE for O(1) performance.
---
 src/pcl/slots.lisp            |    6 ++----
 tests/mop-2.impure-cload.lisp |    9 +++++++++
 2 files changed, 11 insertions(+), 4 deletions(-)

diff --git a/src/pcl/slots.lisp b/src/pcl/slots.lisp
index 9042e2c..6cce8ab 100644
--- a/src/pcl/slots.lisp
+++ b/src/pcl/slots.lisp
 <at>  <at>  -267,13 +267,11  <at>  <at> 
            (bug "Bogus slot-cell in SLOT-MAKUNBOUND: ~S" cell))))
   object)

-;; I guess we don't care enough to use the hash-based lookup mechanism here.
-;; Also note that CLHS "encourages" implementors to base this on
+;; Note that CLHS "encourages" implementors to base this on
 ;; SLOT-EXISTS-P-USING-CLASS, whereas 88-002R made no such claim,
 ;; however Appendix D of AMOP sketches out such an implementation.
 (defun slot-exists-p (object slot-name)
-  (let ((class (class-of object)))
(Continue reading)

stassats | 14 Nov 21:56 2014
Picon
Picon

master: Fix trace :encapsulate nil on x86.

The branch "master" has been updated in SBCL:
       via  ea264887b5e3fc106a234c55867cbee4b10368b0 (commit)
      from  308cb136d3b143cff7f6d2d0105aa725453212ba (commit)

- Log -----------------------------------------------------------------
commit ea264887b5e3fc106a234c55867cbee4b10368b0
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Fri Nov 14 20:24:23 2014 +0300

    Fix trace :encapsulate nil on x86.

    It never actually worked, it construct a bogus code object without
    provision for the fixup vector.
---
 src/code/debug-int.lisp  |   14 ++++++++++----
 src/runtime/breakpoint.c |   13 +++++++++----
 2 files changed, 19 insertions(+), 8 deletions(-)

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index c3c5659..27e6b0f 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
 <at>  <at>  -502,7 +502,10  <at>  <at> 
 ;;; debug-info slot is :BOGUS-LRA, then the REAL-LRA-SLOT contains the
 ;;; real component to continue executing, as opposed to the bogus
 ;;; component which appeared in some frame's LRA location.
-(defconstant real-lra-slot sb!vm:code-constants-offset)
+(defconstant real-lra-slot
+  ;; X86 stores a fixup vector at the first constant slot
+  #!-x86 sb!vm:code-constants-offset
(Continue reading)

Krzysztof Drewniak | 14 Nov 19:46 2014
Picon
Picon

master: Update the documentation and tests to account for the removal of the UNICODE1_ prefix on UNICODE 1 names.

The branch "master" has been updated in SBCL:
       via  308cb136d3b143cff7f6d2d0105aa725453212ba (commit)
      from  8186fc645e289806e33b8243c80998609a65a0fe (commit)

- Log -----------------------------------------------------------------
commit 308cb136d3b143cff7f6d2d0105aa725453212ba
Author: Krzysztof Drewniak <krzysdrewniak <at> gmail.com>
Date:   Fri Nov 14 12:26:09 2014 -0600

    Update the documentation and tests to account for the removal of the UNICODE1_ prefix on UNICODE 1 names.
---
 doc/manual/beyond-ansi.texinfo       |    6 +++-
 tests/unicode-properties.impure.lisp |   37 +++++++++++++++++++++++++++++----
 2 files changed, 36 insertions(+), 7 deletions(-)

diff --git a/doc/manual/beyond-ansi.texinfo b/doc/manual/beyond-ansi.texinfo
index e3dc117..d10e6b6 100644
--- a/doc/manual/beyond-ansi.texinfo
+++ b/doc/manual/beyond-ansi.texinfo
 <at>  <at>  -724,7 +724,9  <at>  <at>  by giving its hexadecimal codepoint preceded by a ``U'', an optional
 character directly into your source code if it can be encoded in your
 file. If a character had an assigned name in Unicode 1.0 that was
 distinct from its current name, you may also use that name (with spaces
-replaced by underscares) prefixed by ``UNICODE1_'' to specify the character.
+replaced by underscares) to specify the character, unless the name is
+already associated with a codepoint in the latest Unicode standard (such
+as ``BELL'').

 For example, you can specify the codepoint U+00E1 (``Latin
 Small Letter A With Acute'') as
(Continue reading)

Douglas Katzman | 14 Nov 18:54 2014
Picon
Picon

master: Remove FIXME that seems to refer to nothing in particular.

The branch "master" has been updated in SBCL:
       via  8186fc645e289806e33b8243c80998609a65a0fe (commit)
      from  f0d06fd7e4509fb53880e3b02a6f7079fdaff2d2 (commit)

- Log -----------------------------------------------------------------
commit 8186fc645e289806e33b8243c80998609a65a0fe
Author: Douglas Katzman <dougk <at> google.com>
Date:   Fri Nov 14 12:23:04 2014 -0500

    Remove FIXME that seems to refer to nothing in particular.
---
 src/code/target-package.lisp |    2 --
 1 files changed, 0 insertions(+), 2 deletions(-)

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index b460ef2..9add1a0 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
 <at>  <at>  -598,8 +598,6  <at>  <at>  REMOVE-PACKAGE-LOCAL-NICKNAME, and the DEFPACKAGE option :LOCAL-NICKNAMES."
                    (ash sxhash -8) (ash sxhash -16) (ash sxhash -19))
            255)))

-;;; FIXME: should be wrapped in EVAL-WHEN (COMPILE EXECUTE)
-
 ;;; Add a symbol to a package hashtable. The symbol is assumed
 ;;; not to be present.
 (defun add-symbol (table symbol)

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

(Continue reading)

stassats | 14 Nov 17:53 2014
Picon
Picon

master: More character normalization speed ups.

The branch "master" has been updated in SBCL:
       via  d8c3aba43288ffc2290fb9fd01cc5f32b21183bf (commit)
      from  ec9e01d7912b595e64327c417cf39cd4365818fe (commit)

- Log -----------------------------------------------------------------
commit d8c3aba43288ffc2290fb9fd01cc5f32b21183bf
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Fri Nov 14 18:37:38 2014 +0300

    More character normalization speed ups.

    Sort combiners while doing decompose-string.
    Now normalizing a string is actually faster than calling
    QUICK-NORMALIZATION-CHECK, so, stop doing it.
---
 src/code/target-extensions.lisp |    4 +-
 src/code/target-unicode.lisp    |  141 ++++++++++++++++-----------------------
 2 files changed, 60 insertions(+), 85 deletions(-)

diff --git a/src/code/target-extensions.lisp b/src/code/target-extensions.lisp
index 4977084..a9dcbf6 100644
--- a/src/code/target-extensions.lisp
+++ b/src/code/target-extensions.lisp
 <at>  <at>  -68,8 +68,8  <at>  <at>  exit(3) directly will circumvent these hooks.")
              (when (< start end)
                (let* ((i (+ start (truncate (- end start) 2)))
                       (elt (svref vector (truly-the index (* 2 i)))))
-                 (declare (integer elt)
-                          (index i))
+                 (declare (type integer elt)
(Continue reading)

stassats | 14 Nov 17:53 2014
Picon
Picon

master: Remove NIL from *bidi-mirroring-glyphs*.

The branch "master" has been updated in SBCL:
       via  f0d06fd7e4509fb53880e3b02a6f7079fdaff2d2 (commit)
      from  d8c3aba43288ffc2290fb9fd01cc5f32b21183bf (commit)

- Log -----------------------------------------------------------------
commit f0d06fd7e4509fb53880e3b02a6f7079fdaff2d2
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Fri Nov 14 18:50:52 2014 +0300

    Remove NIL from *bidi-mirroring-glyphs*.

    Properly parse BidiMirroring.txt
---
 tools-for-build/ucd.lisp |   11 ++++++-----
 1 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/tools-for-build/ucd.lisp b/tools-for-build/ucd.lisp
index c14f259..05ca0d9 100644
--- a/tools-for-build/ucd.lisp
+++ b/tools-for-build/ucd.lisp
 <at>  <at>  -748,11 +748,12  <at>  <at>  Length should be adjusted when the standard changes.")
   (with-open-file (s (make-pathname :name "BidiMirroring" :type "txt"
                                     :defaults *unicode-character-database*))
     (loop for line = (read-line s nil nil) while line
-       unless (eql 0 (position #\# line))
-       collect
-         (mapcar
-          #'(lambda (c) (parse-codepoints c :singleton-list nil))
-          (split-string (subseq line 0 (position #\# line)) #\;))))
+          when (and (plusp (length line))
(Continue reading)

stassats | 14 Nov 17:53 2014
Picon
Picon

master: Speed up string decomposition.

The branch "master" has been updated in SBCL:
       via  ec9e01d7912b595e64327c417cf39cd4365818fe (commit)
      from  1356a850748fdd55080e767c893cfdcb152ae32a (commit)

- Log -----------------------------------------------------------------
commit ec9e01d7912b595e64327c417cf39cd4365818fe
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Fri Nov 14 04:52:06 2014 +0300

    Speed up string decomposition.

    Reduce consing.
    Recursively expand canonical decompositions at build time.
---
 src/code/target-unicode.lisp |  120 ++++++++++++++++++++----------------------
 tools-for-build/ucd.lisp     |   69 +++++++++++++++++++-----
 2 files changed, 112 insertions(+), 77 deletions(-)

diff --git a/src/code/target-unicode.lisp b/src/code/target-unicode.lisp
index 2455994..f201263 100644
--- a/src/code/target-unicode.lisp
+++ b/src/code/target-unicode.lisp
 <at>  <at>  -514,7 +514,8  <at>  <at>  disappears when accents are placed on top of it. and NIL otherwise"
                      (+ 4 (misc-index char)))))
     (values (clear-flag 7 value) (logbitp 7 value))))

-(defun char-decomposition (char length)
+(defun char-decomposition (char length callback)
+  (declare (function callback))
   ;; Caller should have gotten length from char-decomposition-info
(Continue reading)

Douglas Katzman | 14 Nov 02:54 2014
Picon
Picon

master: Make cold-stderr work even earlier so that strings can be printed ASAP.

The branch "master" has been updated in SBCL:
       via  1356a850748fdd55080e767c893cfdcb152ae32a (commit)
      from  06ccf13ed3eb4a2b0574ec610eeb51cb40f375c3 (commit)

- Log -----------------------------------------------------------------
commit 1356a850748fdd55080e767c893cfdcb152ae32a
Author: Douglas Katzman <dougk <at> google.com>
Date:   Thu Nov 13 20:53:18 2014 -0500

    Make cold-stderr work even earlier so that strings can be printed ASAP.
---
 src/code/cold-init.lisp |   23 ++++++++++++-----------
 src/code/fd-stream.lisp |    4 ++--
 2 files changed, 14 insertions(+), 13 deletions(-)

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index 581a122..4e07978 100644
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
 <at>  <at>  -112,6 +112,16  <at>  <at> 
   #!+sb-doc "Give the world a shove and hope it spins."

   (/show0 "entering !COLD-INIT")
+  #!-win32
+  (progn
+    (setq *error-output* (!make-cold-stderr-stream)
+          *standard-output* *error-output*
+          *trace-output* *error-output*
+          *readtable* (make-readtable)
+          *previous-case* nil
(Continue reading)

Douglas Katzman | 14 Nov 02:36 2014
Picon
Picon

master: Ensure that all interned symbols have a precomputed hash.

The branch "master" has been updated in SBCL:
       via  06ccf13ed3eb4a2b0574ec610eeb51cb40f375c3 (commit)
      from  a1dfa892824adb3331f007bf0cb8c9f05b0afc5e (commit)

- Log -----------------------------------------------------------------
commit 06ccf13ed3eb4a2b0574ec610eeb51cb40f375c3
Author: Douglas Katzman <dougk <at> google.com>
Date:   Thu Nov 13 20:24:45 2014 -0500

    Ensure that all interned symbols have a precomputed hash.
---
 package-data-list.lisp-expr       |    1 +
 src/code/package.lisp             |   11 ++-
 src/code/sxhash.lisp              |    9 +--
 src/code/symbol.lisp              |   38 +++++++++-
 src/code/target-package.lisp      |  146 +++++++++++++++++++-----------------
 src/code/target-sxhash.lisp       |    5 -
 src/compiler/generic/vm-fndb.lisp |    3 +-
 src/compiler/x86-64/cell.lisp     |    2 +-
 src/pcl/slots-boot.lisp           |    6 +-
 tests/info.impure.lisp            |    2 +-
 tests/packages.impure.lisp        |    2 +-
 11 files changed, 132 insertions(+), 93 deletions(-)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 0e8569e..5172d7e 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
 <at>  <at>  -1567,6 +1567,7  <at>  <at>  is a good idea, but see SB-SYS re. blurring of boundaries."
                "FLOAT-WAIT" "DYNAMIC-SPACE-FREE-POINTER" "DYNAMIC-USAGE"
(Continue reading)

stassats | 13 Nov 20:44 2014
Picon
Picon

master: Remove UNICODE1_ from unicode-1 character name database.

The branch "master" has been updated in SBCL:
       via  a1dfa892824adb3331f007bf0cb8c9f05b0afc5e (commit)
      from  8545dc9d366624af73c8bad69671bc12897be7d9 (commit)

- Log -----------------------------------------------------------------
commit a1dfa892824adb3331f007bf0cb8c9f05b0afc5e
Author: Stas Boukarev <stassats <at> gmail.com>
Date:   Thu Nov 13 22:30:41 2014 +0300

    Remove UNICODE1_ from unicode-1 character name database.

    The way it's used, there's no chance of collision with normal Unicode
    names, the only visible change is that what previously was
    #\UNICODE1_START_OF_HEADING now is #\START_OF_HEADING.
---
 src/code/target-unicode.lisp |    5 ++---
 tools-for-build/ucd.lisp     |    6 +-----
 2 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/src/code/target-unicode.lisp b/src/code/target-unicode.lisp
index bbc0d35..2455994 100644
--- a/src/code/target-unicode.lisp
+++ b/src/code/target-unicode.lisp
 <at>  <at>  -364,8 +364,7  <at>  <at>  is only included for backwards compatibility."
          (h-code (double-vector-binary-search char-code
                                               **unicode-1-char-name-database**)))
     (when h-code
-      ;; Remove UNICODE1_ prefix
-      (subseq (huffman-decode h-code **unicode-character-name-huffman-tree**) 9))))
+      (huffman-decode h-code **unicode-character-name-huffman-tree**))))
(Continue reading)


Gmane