Douglas Katzman | 23 Nov 15:47 2014
Picon
Picon

master: Refactor b6ed0e20d468099b62d27095db7d18f76d8886d2

The branch "master" has been updated in SBCL:
       via  9ae04408e9d009a8ab6ce3250b5fd3b8ade94093 (commit)
      from  32210d57279546a94e78e26ad7aef3f88bb89b2d (commit)

- Log -----------------------------------------------------------------
commit 9ae04408e9d009a8ab6ce3250b5fd3b8ade94093
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sun Nov 23 09:45:41 2014 -0500

    Refactor b6ed0e20d468099b62d27095db7d18f76d8886d2

    The description of the aforementioned commit wasn't quite
    right - it meant "no defstruct-description".
    This diff looks better with whitespace ignored.
---
 src/code/defstruct.lisp        |    2 +-
 src/code/target-defstruct.lisp |  143 ++++++++++++++++++----------------------
 2 files changed, 64 insertions(+), 81 deletions(-)

diff --git a/src/code/defstruct.lisp b/src/code/defstruct.lisp
index e5666a1..9390b05 100644
--- a/src/code/defstruct.lisp
+++ b/src/code/defstruct.lisp
 <at>  <at>  -212,7 +212,7  <at>  <at> 
   ;; the same name as an inherited accessor (which we don't want to
   ;; shadow)") but that behavior doesn't seem to be specified by (or
   ;; even particularly consistent with) ANSI, so it's gone in SBCL.)
-  (accessor-name nil)
+  (accessor-name nil :type symbol)
   default                       ; default value expression
(Continue reading)

Douglas Katzman | 23 Nov 07:50 2014
Picon
Picon

master: Some improvements to the low-level debugger.

The branch "master" has been updated in SBCL:
       via  32210d57279546a94e78e26ad7aef3f88bb89b2d (commit)
      from  4ec2cd58af023512d60249bbaca6514edc93b6b9 (commit)

- Log -----------------------------------------------------------------
commit 32210d57279546a94e78e26ad7aef3f88bb89b2d
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sun Nov 23 01:47:15 2014 -0500

    Some improvements to the low-level debugger.

    - fix printing of UCS4 strings
    - make "p *A-SYMBOL*" work if *A-SYMBOL* has a UCS4 name
    - generate 'classoid.h' from Genesis, and print instances
      with their classoid's name
---
 src/compiler/generic/genesis.lisp |    5 ++-
 src/runtime/gc-common.c           |   43 +++++++++++++++
 src/runtime/print.c               |  106 +++++++++++++++++++++++--------------
 src/runtime/search.c              |   27 +++++++++-
 4 files changed, 138 insertions(+), 43 deletions(-)

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index df6e813..b7496d1 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
 <at>  <at>  -3083,7 +3083,9  <at>  <at>  core and return a descriptor to it."
     (format t "#ifndef LANGUAGE_ASSEMBLY~2%")
     (format t "struct ~A {~%" (cstring (dd-name dd)))
     (format t "    lispobj header;~%")
(Continue reading)

Douglas Katzman | 23 Nov 07:25 2014
Picon
Picon

master: Fix some warnings from Darwin C compiler

The branch "master" has been updated in SBCL:
       via  4ec2cd58af023512d60249bbaca6514edc93b6b9 (commit)
      from  afbae954761ff3771859d23294b72310c296d9e7 (commit)

- Log -----------------------------------------------------------------
commit 4ec2cd58af023512d60249bbaca6514edc93b6b9
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sun Nov 23 01:24:56 2014 -0500

    Fix some warnings from Darwin C compiler
---
 src/runtime/x86-64-darwin-os.h |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/runtime/x86-64-darwin-os.h b/src/runtime/x86-64-darwin-os.h
index 53b2230..2433c2d 100644
--- a/src/runtime/x86-64-darwin-os.h
+++ b/src/runtime/x86-64-darwin-os.h
 <at>  <at>  -11,7 +11,7  <at>  <at>  static inline os_context_t *arch_os_get_context(void **void_context)
 }

 #if __DARWIN_UNIX03
-#define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->__ss.__##stem
+#define CONTEXT_ADDR_FROM_STEM(stem) (os_context_register_t*)&context->uc_mcontext->__ss.__##stem
 #else
 #define CONTEXT_ADDR_FROM_STEM(stem) &context->uc_mcontext->ss.stem
 #endif /* __DARWIN_UNIX03 */

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

(Continue reading)

Douglas Katzman | 23 Nov 00:25 2014
Picon
Picon

master: x86-64: Integrate Paul Khuong's interleaved raw slot feature.

The branch "master" has been updated in SBCL:
       via  afbae954761ff3771859d23294b72310c296d9e7 (commit)
      from  b28269263324108a112c7fde04273ecdaff52cad (commit)

- Log -----------------------------------------------------------------
commit afbae954761ff3771859d23294b72310c296d9e7
Author: Douglas Katzman <dougk <at> google.com>
Date:   Sat Nov 22 17:29:15 2014 -0500

    x86-64: Integrate Paul Khuong's interleaved raw slot feature.
    
    with significant amounts of conditionalization
    and the new implementation of EQUALP and other fixes by me.
---
 NEWS                                    |    3 +
 contrib/sb-introspect/introspect.lisp   |   12 +-
 make-config.sh                          |    1 +
 package-data-list.lisp-expr             |   11 ++-
 src/code/class.lisp                     |   55 ++++++----
 src/code/condition.lisp                 |    2 +-
 src/code/defbangstruct.lisp             |    4 +-
 src/code/defstruct.lisp                 |   66 +++++++----
 src/code/early-raw-slots.lisp           |  132 +++++++++++++++++++++
 src/code/fop.lisp                       |   35 ++++--
 src/code/pred.lisp                      |   47 ++++++--
 src/code/room.lisp                      |    3 +-
 src/code/sharpm.lisp                    |   16 +--
 src/code/target-defstruct.lisp          |   98 ++++++++++++----
 src/code/target-sxhash.lisp             |   26 +++--
 src/compiler/dump.lisp                  |   12 ++-
(Continue reading)

Douglas Katzman | 20 Nov 05:46 2014
Picon
Picon

master: Disable test of compute-pollfds if inapplicable

The branch "master" has been updated in SBCL:
       via  b28269263324108a112c7fde04273ecdaff52cad (commit)
      from  1891fa69bddd2cab9180b3fa9c7fcb3206174790 (commit)

- Log -----------------------------------------------------------------
commit b28269263324108a112c7fde04273ecdaff52cad
Author: Douglas Katzman <dougk <at> google.com>
Date:   Wed Nov 19 23:45:07 2014 -0500

    Disable test of compute-pollfds if inapplicable
---
 tests/serve-event.pure.lisp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/tests/serve-event.pure.lisp b/tests/serve-event.pure.lisp
index 89572c5..46e1fd6 100644
--- a/tests/serve-event.pure.lisp
+++ b/tests/serve-event.pure.lisp
 <at>  <at>  -16,6 +16,7  <at>  <at> 
 ;; Tests for SERVE-EVENT are somewhat lacking,
 ;; although RUN-PROGRAM exercises some multiplexed I/O.
 ;; At any rate, this tests that the utility function COMPUTE-POLLFDS is sane.
+#+os-provides-poll ; can't use :skipped-on. (sb-unix symbols don't exist)
 (test-util:with-test (:name :compute-pollfds)
   (labels ((try (list how)
              (multiple-value-bind (pollfds count map)

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

hooks/post-receive
(Continue reading)

Douglas Katzman | 20 Nov 05:30 2014
Picon
Picon

master: Fix bug in collecting condition-classoid-class-slots

The branch "master" has been updated in SBCL:
       via  1891fa69bddd2cab9180b3fa9c7fcb3206174790 (commit)
      from  65a44db5d5c3c4079a44a572d3a43743ecfc1b1d (commit)

- Log -----------------------------------------------------------------
commit 1891fa69bddd2cab9180b3fa9c7fcb3206174790
Author: Douglas Katzman <dougk <at> google.com>
Date:   Wed Nov 19 23:29:18 2014 -0500

    Fix bug in collecting condition-classoid-class-slots

    Also fix test from 5c6f48ae which wasn't testing anything.
---
 src/code/condition.lisp     |    5 +++--
 tests/condition.impure.lisp |   21 ++++++++++++++++++++-
 2 files changed, 23 insertions(+), 3 deletions(-)

diff --git a/src/code/condition.lisp b/src/code/condition.lisp
index 17a9844..7f8af8b 100644
--- a/src/code/condition.lisp
+++ b/src/code/condition.lisp
 <at>  <at>  -416,7 +416,7  <at>  <at> 
     (sb!c:with-source-location (source-location)
       (setf (layout-source-location layout)
             source-location))
-    (let ((class (find-classoid name)))
+    (let ((class (find-classoid name))) ; FIXME: rename to 'classoid'
       (setf (condition-classoid-slots class) slots
             (condition-classoid-direct-default-initargs class) direct-default-initargs
             (fdocumentation name 'type) documentation)
(Continue reading)

Douglas Katzman | 19 Nov 20:24 2014
Picon
Picon

master: Two fewer C compiler warnings.

The branch "master" has been updated in SBCL:
       via  65a44db5d5c3c4079a44a572d3a43743ecfc1b1d (commit)
      from  fd153e7037bbadf830e2cd30f3d20df2ad680b84 (commit)

- Log -----------------------------------------------------------------
commit 65a44db5d5c3c4079a44a572d3a43743ecfc1b1d
Author: Douglas Katzman <dougk <at> google.com>
Date:   Wed Nov 19 14:23:38 2014 -0500

    Two fewer C compiler warnings.
---
 src/runtime/breakpoint.c |    2 +-
 src/runtime/gc-common.c  |    1 +
 2 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/src/runtime/breakpoint.c b/src/runtime/breakpoint.c
index 1eeb581..fed184a 100644
--- a/src/runtime/breakpoint.c
+++ b/src/runtime/breakpoint.c
 <at>  <at>  -121,7 +121,7  <at>  <at>  static long compute_offset(os_context_t *context, lispobj code)
             return 0;
         else {
             uword_t offset = pc - code_start;
-            if (offset >= fixnum_value(codeptr->code_size))
+            if (offset >= (uword_t)fixnum_value(codeptr->code_size))
                 return 0;
             else
                 return make_fixnum(offset);
diff --git a/src/runtime/gc-common.c b/src/runtime/gc-common.c
index 7a2dd33..9e22fe2 100644
(Continue reading)

Douglas Katzman | 19 Nov 20:23 2014
Picon
Picon

master: Use poll() always in SERVE-EVENT if it's available.

The branch "master" has been updated in SBCL:
       via  fd153e7037bbadf830e2cd30f3d20df2ad680b84 (commit)
      from  50a07a06d3baeb2cfcb2b0bdfa3a3f0d1002d714 (commit)

- Log -----------------------------------------------------------------
commit fd153e7037bbadf830e2cd30f3d20df2ad680b84
Author: Douglas Katzman <dougk <at> google.com>
Date:   Wed Nov 19 14:03:30 2014 -0500

    Use poll() always in SERVE-EVENT if it's available.

    This was put through some production testing,
    so it should be good to go, but to paraphrase Martin
    "people will surely complain if they don't like it"
---
 NEWS                             |    3 +
 package-data-list.lisp-expr      |    8 +-
 src/code/serve-event.lisp        |  272 ++++++++++++++++++++++++++++++++++----
 src/code/unix.lisp               |    9 ++
 tests/serve-event.pure.lisp      |   84 ++++++++++++
 tools-for-build/grovel-headers.c |    2 +
 6 files changed, 348 insertions(+), 30 deletions(-)

diff --git a/NEWS b/NEWS
index 463c8ed..730d7bb 100644
--- a/NEWS
+++ b/NEWS
 <at>  <at>  -1,5 +1,8  <at>  <at> 
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
 changes relative to sbcl-1.2.5:
(Continue reading)

Douglas Katzman | 19 Nov 02:27 2014
Picon
Picon

master: Silence a bunch of C compiler diagnostics

The branch "master" has been updated in SBCL:
       via  50a07a06d3baeb2cfcb2b0bdfa3a3f0d1002d714 (commit)
      from  f44dca4ba102ce4da9d99e35ad658e6f991f8cab (commit)

- Log -----------------------------------------------------------------
commit 50a07a06d3baeb2cfcb2b0bdfa3a3f0d1002d714
Author: Douglas Katzman <dougk <at> google.com>
Date:   Tue Nov 18 20:26:45 2014 -0500

    Silence a bunch of C compiler diagnostics
---
 src/runtime/interr.c          |    2 +-
 src/runtime/linux-os.c        |    2 ++
 src/runtime/x86-64-arch.c     |    2 +-
 src/runtime/x86-64-linux-os.c |   13 +++++++------
 4 files changed, 11 insertions(+), 8 deletions(-)

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index bdf5d9b..72d71a3 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
 <at>  <at>  -167,7 +167,7  <at>  <at>  describe_internal_error(os_context_t *context)
     len = *ptr++;
     printf("Internal error #%d \"%s\" at %p\n", *ptr,
            internal_error_descriptions[*ptr],
-           *os_context_pc_addr(context));
+           (void*)*os_context_pc_addr(context));
     ptr++;
     len--;
     while (len > 0) {
(Continue reading)

Douglas Katzman | 18 Nov 23:18 2014
Picon
Picon

master: Cleanup some obsolete SB-UNIX symbols from package-data-list

The branch "master" has been updated in SBCL:
       via  f44dca4ba102ce4da9d99e35ad658e6f991f8cab (commit)
      from  1f796644cfe622f161e020ec5e8a7d273e67de5d (commit)

- Log -----------------------------------------------------------------
commit f44dca4ba102ce4da9d99e35ad658e6f991f8cab
Author: Douglas Katzman <dougk <at> google.com>
Date:   Tue Nov 18 17:04:09 2014 -0500

    Cleanup some obsolete SB-UNIX symbols from package-data-list

    Terminal/keyboard ioctls are not used anywhere in Lisp,
    and sgtty was superseded by termios long ago.
    O_NOCTTY is needed and is moved with the other O_ flags.
    SB-MKSTEMP was listed twice.
---
 package-data-list.lisp-expr |   32 +++++---------------------------
 1 files changed, 5 insertions(+), 27 deletions(-)

diff --git a/package-data-list.lisp-expr b/package-data-list.lisp-expr
index 5172d7e..f58668a 100644
--- a/package-data-list.lisp-expr
+++ b/package-data-list.lisp-expr
 <at>  <at>  -2684,9 +2684,7  <at>  <at>  no guarantees of interface stability."
                "F-GETOWN" "F-SETFD" "F-SETFL" "F-SETOWN" "FAPPEND" "FASYNC"
                "FCREAT" "FEXCL" "FIONREAD" "FNDELAY" "FTRUNC" "F_OK" "GID-T"
                "INO-T" "UNIX-ACCESS" "UNIX-SETITIMER" "UNIX-GETITIMER"
-               "KBDCGET" "KBDCRESET"
-               "KBDCRST" "KBDCSET" "KBDCSSTD" "KBDGCLICK" "KBDSCLICK" "KBDSGET"
-               "L_INCR" "L_SET" "L_XTND" "O_APPEND" "O_CREAT" "O_EXCL"
(Continue reading)

Douglas Katzman | 18 Nov 19:01 2014
Picon
Picon

master: Name the RAW-SLOT-DATA-COMPARER functions human-readably.

The branch "master" has been updated in SBCL:
       via  1f796644cfe622f161e020ec5e8a7d273e67de5d (commit)
      from  fd660e0efecbf1f5286a0d12ee0ccd3672b6b400 (commit)

- Log -----------------------------------------------------------------
commit 1f796644cfe622f161e020ec5e8a7d273e67de5d
Author: Douglas Katzman <dougk <at> google.com>
Date:   Tue Nov 18 12:47:30 2014 -0500

    Name the RAW-SLOT-DATA-COMPARER functions human-readably.
---
 src/code/cross-misc.lisp      |    4 ++++
 src/code/early-raw-slots.lisp |    4 +++-
 2 files changed, 7 insertions(+), 1 deletions(-)

diff --git a/src/code/cross-misc.lisp b/src/code/cross-misc.lisp
index 22b79db..ade94fb 100644
--- a/src/code/cross-misc.lisp
+++ b/src/code/cross-misc.lisp
 <at>  <at>  -17,6 +17,10  <at>  <at> 
 (defmacro truly-the (type expr)
   `(the ,type ,expr))

+(defmacro named-lambda (name args &body body)
+  (declare (ignore name))
+  `#'(lambda ,args , <at> body))
+
 ;;; Interrupt control isn't an issue in the cross-compiler: we don't
 ;;; use address-dependent (and thus GC-dependent) hashes, and we only
 ;;; have a single thread of control.
(Continue reading)


Gmane