Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv7316

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.43.82: Make compiling a MAKE-ARRAY call with a bad keyword list signal warning

     * Instead of a crashing inside the guts of the compiler...
     * lp#664373, patch by Stas Boukarev


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1847
retrieving revision 1.1848
diff -u -d -r1.1847 -r1.1848
--- NEWS	30 Oct 2010 11:39:14 -0000	1.1847
+++ NEWS	30 Oct 2010 13:30:12 -0000	1.1848
@@ -89,6 +89,8 @@
     core was reified. 
   * bug fix: Allow UNTRACE of functions that are no longer defined
     (lp#667657, thanks to Attila Lendvai)
+  * bug fix: MAKE-ARRAY calls with invalid keyword argument lists now signal a
+    compile-time warning (lp#664373, thanks to Stas Boukarev)
 
 changes in sbcl-1.0.43 relative to sbcl-1.0.42:
   * incompatible change: FD-STREAMS no longer participate in the serve-event

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5108
retrieving revision 1.5109
diff -u -d -r1.5108 -r1.5109
--- version.lisp-expr	30 Oct 2010 11:47:11 -0000	1.5108
+++ version.lisp-expr	30 Oct 2010 13:30:12 -0000	1.5109
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.43.81"
+"1.0.43.82"

Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv7316/tests

Modified Files:
	array.pure.lisp 
Log Message:
1.0.43.82: Make compiling a MAKE-ARRAY call with a bad keyword list signal warning

     * Instead of a crashing inside the guts of the compiler...
     * lp#664373, patch by Stas Boukarev


Index: array.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/array.pure.lisp,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -d -r1.37 -r1.38
--- array.pure.lisp	7 May 2009 11:11:05 -0000	1.37
+++ array.pure.lisp	30 Oct 2010 13:30:12 -0000	1.38
@@ -277,3 +277,9 @@
                              (eql 6 (type-error-datum e)))
                     :good))))))
 
+(with-test (:name :odd-keys-for-make-array)
+  (assert (eq :good
+              (handler-case
+                  (compile nil '(lambda (m) (make-array m 1)))
+                (simple-warning () :good)))))
+

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv7316/src/compiler

Modified Files:
	array-tran.lisp 
Log Message:
1.0.43.82: Make compiling a MAKE-ARRAY call with a bad keyword list signal warning

     * Instead of a crashing inside the guts of the compiler...
     * lp#664373, patch by Stas Boukarev


Index: array-tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/array-tran.lisp,v
retrieving revision 1.100
retrieving revision 1.101
diff -u -d -r1.100 -r1.101
--- array-tran.lisp	3 Oct 2010 14:50:53 -0000	1.100
+++ array-tran.lisp	30 Oct 2010 13:30:12 -0000	1.101
@@ -337,8 +337,9 @@
 ;;; can pick them apart in the DEFTRANSFORMS, and transform '(3) style
 ;;; dimensions to integer args directly.
 (define-source-transform make-array (dimensions &rest keyargs &environment env)
-  (if (and (fun-lexically-notinline-p 'list)
-           (fun-lexically-notinline-p 'vector))
+  (if (or (and (fun-lexically-notinline-p 'list)
+               (fun-lexically-notinline-p 'vector))
+          (oddp (length keyargs)))
       (values nil t)
       (multiple-value-bind (new-dimensions rank)
           (flet ((constant-dims (dimensions)

Update of /cvsroot/sbcl/sbcl/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv20848/tests

Modified Files:
	stream.impure.lisp 
Log Message:
1.0.43.81: Make :overeager-character-buffering test reap child processes

     * Patch lp#665637 from Josh Elsasser


Index: stream.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/stream.impure.lisp,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- stream.impure.lisp	13 Oct 2010 15:07:30 -0000	1.38
+++ stream.impure.lisp	30 Oct 2010 11:47:11 -0000	1.39
@@ -668,6 +668,9 @@
               (with-open-file (f fifo :direction :input :external-format format)
                 (assert (equal "foobar" (read-line f)))))
          (when proc
+           (ignore-errors
+             (close (process-input proc) :abort t)
+             (process-wait proc))
            (ignore-errors (process-close proc))
            (setf proc nil))
          (when fifo

Update of /cvsroot/sbcl/sbcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv20848

Modified Files:
	version.lisp-expr 
Log Message:
1.0.43.81: Make :overeager-character-buffering test reap child processes

     * Patch lp#665637 from Josh Elsasser


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5107
retrieving revision 1.5108
diff -u -d -r1.5107 -r1.5108
--- version.lisp-expr	30 Oct 2010 11:39:14 -0000	1.5107
+++ version.lisp-expr	30 Oct 2010 11:47:11 -0000	1.5108
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.43.80"
+"1.0.43.81"

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv19194/src/code

Modified Files:
	ntrace.lisp 
Log Message:
1.0.43.80: Allow UNTRACE of functions that are no longer defined

     * Patch lp#667657 from Attila Lendvai


Index: ntrace.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/ntrace.lisp,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- ntrace.lisp	20 Jun 2009 13:48:47 -0000	1.45
+++ ntrace.lisp	30 Oct 2010 11:39:15 -0000	1.46
@@ -124,9 +124,13 @@
                 (error "can't trace special form ~S" x))
                ((macro-function x))
                (t
-                (values (fdefinition x) t))))
+                (values (when (fboundp x)
+                          (fdefinition x))
+                        t))))
         (function x)
-        (t (values (fdefinition x) t)))
+        (t (values (when (fboundp x)
+                     (fdefinition x))
+                   t)))
     (typecase res
       (closure
        (values (sb-kernel:%closure-fun res)
@@ -647,7 +651,8 @@
          (info (gethash fun *traced-funs*)))
     (cond
      ((not info)
-      (warn "Function is not TRACEd: ~S" function-or-name))
+      (when fun
+        (warn "Function is not TRACEd: ~S" function-or-name)))
      (t
       (cond
        ((trace-info-encapsulated info)

Update of /cvsroot/sbcl/sbcl
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv19194

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.43.80: Allow UNTRACE of functions that are no longer defined

     * Patch lp#667657 from Attila Lendvai


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1846
retrieving revision 1.1847
diff -u -d -r1.1846 -r1.1847
--- NEWS	19 Oct 2010 17:15:48 -0000	1.1846
+++ NEWS	30 Oct 2010 11:39:14 -0000	1.1847
@@ -86,7 +86,9 @@
     not just Darwin. (lp#451111)
   * bug fix: SB-BSD-SOCKETS and SB-SIMPLE-STREAMS could leave stale finalizers
     around when core was saved, which could cause undefined behaviour when the
-    core was reified.
+    core was reified. 
+  * bug fix: Allow UNTRACE of functions that are no longer defined
+    (lp#667657, thanks to Attila Lendvai)
 
 changes in sbcl-1.0.43 relative to sbcl-1.0.42:
   * incompatible change: FD-STREAMS no longer participate in the serve-event

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5106
retrieving revision 1.5107
diff -u -d -r1.5106 -r1.5107
--- version.lisp-expr	20 Oct 2010 14:32:14 -0000	1.5106
+++ version.lisp-expr	30 Oct 2010 11:39:14 -0000	1.5107
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.43.79"
+"1.0.43.80"