Nikodemus Siivola | 11 Sep 2009 15:20
Picon

CVS: sbcl/src/runtime coreparse.c,1.42,1.43

Update of /cvsroot/sbcl/sbcl/src/runtime
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5294/src/runtime

Modified Files:
	coreparse.c 
Log Message:
1.0.31.3: fix saving runtime options from executable cores

  Runtime options used to be clobbered from the executable core even
  if there were none saved there.

  Patch by Zach Beane.

  Fixes https://bugs.launchpad.net/sbcl/+bug/411925

Index: coreparse.c
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/runtime/coreparse.c,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- coreparse.c	3 Jan 2009 15:59:44 -0000	1.42
+++ coreparse.c	11 Sep 2009 13:20:00 -0000	1.43
 <at>  <at>  -83,12 +83,16  <at>  <at> 
 void
 maybe_initialize_runtime_options(int fd)
 {
+    struct runtime_options *new_runtime_options;
     off_t end_offset = sizeof(lispobj) +
         sizeof(os_vm_offset_t) +
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 15:20
Picon

CVS: sbcl/tests core.test.sh,1.8,1.9

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5294/tests

Modified Files:
	core.test.sh 
Log Message:
1.0.31.3: fix saving runtime options from executable cores

  Runtime options used to be clobbered from the executable core even
  if there were none saved there.

  Patch by Zach Beane.

  Fixes https://bugs.launchpad.net/sbcl/+bug/411925

Index: core.test.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/core.test.sh,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- core.test.sh	12 May 2009 11:00:14 -0000	1.8
+++ core.test.sh	11 Sep 2009 13:20:00 -0000	1.9
 <at>  <at>  -85,4 +85,23  <at>  <at> 
   exit 1
 fi

+# saving runtime options _from_ executable cores
+run_sbcl <<EOF
+  (save-lisp-and-die "$tmpcore" :executable t)
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 15:20
Picon

CVS: sbcl NEWS, 1.1606, 1.1607 version.lisp-expr, 1.4610, 1.4611

Update of /cvsroot/sbcl/sbcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv5294

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.31.3: fix saving runtime options from executable cores

  Runtime options used to be clobbered from the executable core even
  if there were none saved there.

  Patch by Zach Beane.

  Fixes https://bugs.launchpad.net/sbcl/+bug/411925

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1606
retrieving revision 1.1607
diff -u -d -r1.1606 -r1.1607
--- NEWS	27 Aug 2009 20:50:29 -0000	1.1606
+++ NEWS	11 Sep 2009 13:19:59 -0000	1.1607
 <at>  <at>  -1,4 +1,9  <at>  <at> 
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
+changes relative to sbcl-1.0.31
+  * bug fix: SAVE-LISP-AND-DIE option :SAVE-RUNTIME-OPTIONS did not work
+    correctly when starting from an executable core without saved runtime
+    options (reported by Faré Rideau, thanks to Zach Beane)
+
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 16:49
Picon

CVS: sbcl/src/pcl fixup.lisp,1.11,1.12

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17743/src/pcl

Modified Files:
	fixup.lisp 
Log Message:
1.0.31.4: misuse of ABORT-IR1-TRANSFORM

 Should have been GIVE-UP-IR1-TRANSFORM.

Index: fixup.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/fixup.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- fixup.lisp	6 Aug 2009 15:57:26 -0000	1.11
+++ fixup.lisp	11 Sep 2009 14:49:35 -0000	1.12
 <at>  <at>  -74,6 +74,6  <at>  <at> 
                   ;; Safe code wants to check the type, and the global
                   ;; accessor won't do that. Also see the comment in the
                   ;; compiler-macro.
-                  (abort-ir1-transform "cannot use optimized accessor in safe code")
+                  (give-up-ir1-transform "cannot use optimized accessor in safe code")
                   `(sb-pcl::accessor-set-slot-value object ',c-slot-name new-value))))
         (give-up-ir1-transform "slot name is not an interned symbol"))))

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
trial. Simplify your report design, integration and deployment - and focus on 
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 16:49
Picon

CVS: sbcl NEWS, 1.1607, 1.1608 version.lisp-expr, 1.4611, 1.4612

Update of /cvsroot/sbcl/sbcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17743

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.31.4: misuse of ABORT-IR1-TRANSFORM

 Should have been GIVE-UP-IR1-TRANSFORM.

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1607
retrieving revision 1.1608
diff -u -d -r1.1607 -r1.1608
--- NEWS	11 Sep 2009 13:19:59 -0000	1.1607
+++ NEWS	11 Sep 2009 14:49:34 -0000	1.1608
 <at>  <at>  -3,6 +3,8  <at>  <at> 
   * bug fix: SAVE-LISP-AND-DIE option :SAVE-RUNTIME-OPTIONS did not work
     correctly when starting from an executable core without saved runtime
     options (reported by Faré Rideau, thanks to Zach Beane)
+  * bug fix: (SETF SLOT-VALUE) signalled a warning which should have been
+    an optimization note instead. (reported by Martin Cracauer)

 changes in sbcl-1.0.31 relative to sbcl-1.0.30:
   * improvement: stack allocation is should now be possible in all nested

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

Nikodemus Siivola | 11 Sep 2009 16:49
Picon

CVS: sbcl/tests compiler.pure.lisp,1.212,1.213

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17743/tests

Modified Files:
	compiler.pure.lisp 
Log Message:
1.0.31.4: misuse of ABORT-IR1-TRANSFORM

 Should have been GIVE-UP-IR1-TRANSFORM.

Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.212
retrieving revision 1.213
diff -u -d -r1.212 -r1.213
--- compiler.pure.lisp	26 Aug 2009 17:01:49 -0000	1.212
+++ compiler.pure.lisp	11 Sep 2009 14:49:35 -0000	1.213
 <at>  <at>  -3320,3 +3320,14  <at>  <at> 
                                         (type double-float r))
                                (list q r))))))
     (assert (equal (funcall fun 1.0d0) '(1 0.0d0)))))
+
+(with-test (:name :set-slot-value-no-warning)
+  (let ((notes 0))
+    (handler-bind ((warning #'error)
+                   (sb-ext:compiler-note (lambda (c)
+                                           (declare (ignore c))
+                                           (incf notes))))
+      (compile nil `(lambda (x y)
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 17:35
Picon

CVS: sbcl/src/pcl boot.lisp,1.154,1.155

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv25422/src/pcl

Modified Files:
	boot.lisp 
Log Message:
1.0.31.5: WITH-SLOTS on THE forms

 Thanks to David Tolpin.

Index: boot.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/boot.lisp,v
retrieving revision 1.154
retrieving revision 1.155
diff -u -d -r1.154 -r1.155
--- boot.lisp	30 Jul 2009 13:36:43 -0000	1.154
+++ boot.lisp	11 Sep 2009 15:35:57 -0000	1.155
 <at>  <at>  -2724,7 +2724,7  <at>  <at> 

 (defun extract-the (form)
   (cond ((and (consp form) (eq (car form) 'the))
-         (aver (proper-list-of-length-p 3))
+         (aver (proper-list-of-length-p form 3))
          (third form))
         (t
          form)))

------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day 
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 17:35
Picon

CVS: sbcl/tests compiler.impure.lisp,1.112,1.113

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv25422/tests

Modified Files:
	compiler.impure.lisp 
Log Message:
1.0.31.5: WITH-SLOTS on THE forms

 Thanks to David Tolpin.

Index: compiler.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -d -r1.112 -r1.113
--- compiler.impure.lisp	6 Aug 2009 15:57:26 -0000	1.112
+++ compiler.impure.lisp	11 Sep 2009 15:35:57 -0000	1.113
 <at>  <at>  -1159,6 +1159,13  <at>  <at> 
                             (make-something-known-to-be-a-struct :x "X" :y "Y")
                             #\x #\y)))
     (assert (not (ctu:find-named-callees f)))))
+
+(defclass some-slot-thing ()
+  ((slot :initarg :slot)))
+(with-test (:name :with-slots-the)
+  (let ((x (make-instance 'some-slot-thing :slot "foo")))
+    (with-slots (slot) (the some-slot-thing x)
+      (assert (equal "foo" slot)))))
 
(Continue reading)

Nikodemus Siivola | 11 Sep 2009 17:35
Picon

CVS: sbcl NEWS, 1.1608, 1.1609 version.lisp-expr, 1.4612, 1.4613

Update of /cvsroot/sbcl/sbcl
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv25422

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.31.5: WITH-SLOTS on THE forms

 Thanks to David Tolpin.

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1608
retrieving revision 1.1609
diff -u -d -r1.1608 -r1.1609
--- NEWS	11 Sep 2009 14:49:34 -0000	1.1608
+++ NEWS	11 Sep 2009 15:35:56 -0000	1.1609
 <at>  <at>  -5,6 +5,7  <at>  <at> 
     options (reported by Faré Rideau, thanks to Zach Beane)
   * bug fix: (SETF SLOT-VALUE) signalled a warning which should have been
     an optimization note instead. (reported by Martin Cracauer)
+  * bug fix: WITH-SLOTS did not work with THE forms. (thanks to David Tolpin)

 changes in sbcl-1.0.31 relative to sbcl-1.0.30:
   * improvement: stack allocation is should now be possible in all nested

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
(Continue reading)

Nikodemus Siivola | 12 Sep 2009 08:40
Picon

CVS: sbcl/tests clos.impure.lisp,1.104,1.105

Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv18739/tests

Modified Files:
	clos.impure.lisp 
Log Message:
1.0.31.6: better error reporting for bogus parameter specializer names

  https://bugs.launchpad.net/sbcl/+bug/414788

Index: clos.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/clos.impure.lisp,v
retrieving revision 1.104
retrieving revision 1.105
diff -u -d -r1.104 -r1.105
--- clos.impure.lisp	29 Jul 2009 14:48:51 -0000	1.104
+++ clos.impure.lisp	12 Sep 2009 06:40:03 -0000	1.105
 <at>  <at>  -1743,5 +1743,15  <at>  <at> 
   (assert (eq :defined-method
               (sb-int:info :function
                            :where-from 'i-dont-want-to-be-clobbered-2))))
+
+(with-test (:name :bogus-parameter-specializer-name-error)
+  (assert (eq :ok
+              (handler-case
+                  (eval `(defmethod #:fii ((x "a string")) 'string))
+                (sb-int:reference-condition (c)
+                  (when (member '(:ansi-cl :macro defmethod)
+                                (sb-int:reference-condition-references c)
(Continue reading)


Gmane