Steel Bank Common Lisp

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.42.4: fix compiler-macros for WRITE and WRITE-TO-STRING

 * Based on patch by Stas Boukarev, lp#598374 and lp#581564.

 * Handle output-stream designators in WRITE.

 * Avoid name capture in WRITE-TO-STRING.


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1783
retrieving revision 1.1784
diff -u -d -r1.1783 -r1.1784
--- NEWS	30 Aug 2010 11:13:18 -0000	1.1783
+++ NEWS	30 Aug 2010 15:06:46 -0000	1.1784
@@ -5,6 +5,11 @@
     was non-negative. (lp#622958)
   * bug fix: DOTIMES accepted literal non-integer reals. (lp#619393, thanks to
     Roman Marynchak)
+  * bug fix: WRITE-TO-STRING compiler macro binding special variable names,
+    breaking code that tried to write the value of a printer control variable.
+    (lp#581564, thanks to Stas Boukarev)
+  * bug fix: WRITE compiler macro did not handle output stream designators
+    correctly. (lp#598374, thanks to Stas Boukarev)
 
 changes in sbcl-1.0.42 relative to sbcl-1.0.41
   * build changes

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4975
retrieving revision 1.4976
diff -u -d -r1.4975 -r1.4976
--- version.lisp-expr	30 Aug 2010 11:13:18 -0000	1.4975
+++ version.lisp-expr	30 Aug 2010 15:06:46 -0000	1.4976
@@ -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.42.3"
+"1.0.42.4"

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

Modified Files:
	print.lisp 
Log Message:
1.0.42.4: fix compiler-macros for WRITE and WRITE-TO-STRING

 * Based on patch by Stas Boukarev, lp#598374 and lp#581564.

 * Handle output-stream designators in WRITE.

 * Avoid name capture in WRITE-TO-STRING.


Index: print.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/print.lisp,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -d -r1.80 -r1.81
--- print.lisp	16 Jul 2010 07:42:23 -0000	1.80
+++ print.lisp	30 Aug 2010 15:06:46 -0000	1.81
@@ -196,7 +196,7 @@
     (once-only ((object object))
       `(let ,(nreverse bind)
          ,@(when ignore `((declare (ignore ,@ignore))))
-         (output-object ,object stream)
+         (output-object ,object (out-synonym-of stream))
          ,object))))
 
 (defun prin1 (object &optional stream)
@@ -277,9 +277,10 @@
           (push variable ignore))
         (push (list variable value) bind)))
     (if bind
-        `(let ,(nreverse bind)
-           ,@(when ignore `((declare (ignore ,@ignore))))
-           (stringify-object ,object))
+        (once-only ((object object))
+          `(let ,(nreverse bind)
+             ,@(when ignore `((declare (ignore ,@ignore))))
+             (stringify-object ,object)))
         `(stringify-object ,object))))
 
 (defun prin1-to-string (object)

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

Modified Files:
	print.impure.lisp 
Log Message:
1.0.42.4: fix compiler-macros for WRITE and WRITE-TO-STRING

 * Based on patch by Stas Boukarev, lp#598374 and lp#581564.

 * Handle output-stream designators in WRITE.

 * Avoid name capture in WRITE-TO-STRING.


Index: print.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/print.impure.lisp,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- print.impure.lisp	16 Jul 2010 07:42:24 -0000	1.46
+++ print.impure.lisp	30 Aug 2010 15:06:46 -0000	1.47
@@ -483,4 +483,22 @@
   (assert (= 123 (funcall (compile nil (lambda ()
                                          (write 123)))))))
 
+(with-test (:name :write/write-to-string-compiler-macro-lp/598374+581564)
+  (let ((test (compile nil
+                       `(lambda (object &optional output-stream)
+                          (write object
+                                 :stream output-stream)))))
+    (assert (equal "(HELLO WORLD)"
+                   (with-output-to-string (*standard-output*)
+                     (let ((list '(hello world)))
+                       (assert (eq list (funcall test list)))))))
+    (assert (equal "12"
+                   (with-output-to-string (*standard-output*)
+                     (assert (eql 12 (funcall test 12)))))))
+  (let ((test (compile nil
+                       `(lambda ()
+                          (let ((*print-length* 42))
+                            (write-to-string *print-length* :length nil))))))
+    (assert (equal "42" (funcall test)))))
+
 ;;; success

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

Modified Files:
	compiler.pure.lisp 
Log Message:
1.0.42.3: DOTIMES and non-integer counts

 * For non-literal non-integer counts we already did the right thing,
   but eg. literal floats slipped under the radar.

 * Patch by Roman Marynchak, lp#619393.


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.227
retrieving revision 1.228
diff -u -d -r1.227 -r1.228
--- compiler.pure.lisp	30 Aug 2010 10:45:00 -0000	1.227
+++ compiler.pure.lisp	30 Aug 2010 11:13:18 -0000	1.228
@@ -3531,3 +3531,6 @@
                            (loop for n from (+ most-positive-fixnum 1) upto (+ most-positive-fixnum 7)
                                  collect (aref table (- n (+ most-positive-fixnum 1)))))))))
     (assert (equal '(0 1 2 3 4 5 6) (funcall fun)))))
+
+(with-test (:name :dotimes-non-integer-counter-value)
+  (assert (raises-error? (dotimes (i 8.6)) type-error)))

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.42.3: DOTIMES and non-integer counts

 * For non-literal non-integer counts we already did the right thing,
   but eg. literal floats slipped under the radar.

 * Patch by Roman Marynchak, lp#619393.


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1782
retrieving revision 1.1783
diff -u -d -r1.1782 -r1.1783
--- NEWS	30 Aug 2010 10:44:59 -0000	1.1782
+++ NEWS	30 Aug 2010 11:13:18 -0000	1.1783
@@ -3,6 +3,8 @@
   * bug fix: bogus type errors from (AREF A (+ POSITIVE-OFFSET N)) under
     certain circumstances when N was negative but (+ POSITIVE-OFFSET N)
     was non-negative. (lp#622958)
+  * bug fix: DOTIMES accepted literal non-integer reals. (lp#619393, thanks to
+    Roman Marynchak)
 
 changes in sbcl-1.0.42 relative to sbcl-1.0.41
   * build changes

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4974
retrieving revision 1.4975
diff -u -d -r1.4974 -r1.4975
--- version.lisp-expr	30 Aug 2010 10:44:59 -0000	1.4974
+++ version.lisp-expr	30 Aug 2010 11:13:18 -0000	1.4975
@@ -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.42.2"
+"1.0.42.3"

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

Modified Files:
	defboot.lisp 
Log Message:
1.0.42.3: DOTIMES and non-integer counts

 * For non-literal non-integer counts we already did the right thing,
   but eg. literal floats slipped under the radar.

 * Patch by Roman Marynchak, lp#619393.


Index: defboot.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v
retrieving revision 1.73
retrieving revision 1.74
diff -u -d -r1.73 -r1.74
--- defboot.lisp	21 Jun 2009 10:26:24 -0000	1.73
+++ defboot.lisp	30 Aug 2010 11:13:18 -0000	1.74
@@ -328,7 +328,7 @@
 ;;; ASAP, at the cost of being unable to use the standard
 ;;; destructuring mechanisms.
 (defmacro-mundanely dotimes ((var count &optional (result nil)) &body body)
-  (cond ((numberp count)
+  (cond ((integerp count)
         `(do ((,var 0 (1+ ,var)))
              ((>= ,var ,count) ,result)
            (declare (type unsigned-byte ,var))

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.42.2: correct defknown for data-vector-ref-with-offset

 * If the offset is positive, the index can be negative and still
   correct.

 * Fixes lp#622958


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1781
retrieving revision 1.1782
diff -u -d -r1.1781 -r1.1782
--- NEWS	29 Aug 2010 14:13:26 -0000	1.1781
+++ NEWS	30 Aug 2010 10:44:59 -0000	1.1782
@@ -1,4 +1,9 @@
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
+changes relative to sbcl-1.0.42
+  * bug fix: bogus type errors from (AREF A (+ POSITIVE-OFFSET N)) under
+    certain circumstances when N was negative but (+ POSITIVE-OFFSET N)
+    was non-negative. (lp#622958)
+
 changes in sbcl-1.0.42 relative to sbcl-1.0.41
   * build changes
     ** Cross-compilation host is now specified to make.sh using

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4973
retrieving revision 1.4974
diff -u -d -r1.4973 -r1.4974
--- version.lisp-expr	29 Aug 2010 14:33:50 -0000	1.4973
+++ version.lisp-expr	30 Aug 2010 10:44:59 -0000	1.4974
@@ -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.42.1"
+"1.0.42.2"

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

Modified Files:
	fndb.lisp 
Log Message:
1.0.42.2: correct defknown for data-vector-ref-with-offset

 * If the offset is positive, the index can be negative and still
   correct.

 * Fixes lp#622958


Index: fndb.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/fndb.lisp,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -d -r1.169 -r1.170
--- fndb.lisp	4 Aug 2010 17:58:15 -0000	1.169
+++ fndb.lisp	30 Aug 2010 10:44:59 -0000	1.170
@@ -1448,7 +1448,7 @@
 (defknown %check-bound (array index fixnum) index (movable foldable flushable))
 (defknown data-vector-ref (simple-array index) t
   (foldable explicit-check always-translatable))
-(defknown data-vector-ref-with-offset (simple-array index fixnum) t
+(defknown data-vector-ref-with-offset (simple-array fixnum fixnum) t
   (foldable explicit-check always-translatable))
 (defknown data-vector-set (array index t) t
   (unsafe explicit-check always-translatable))

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

Modified Files:
	compiler.pure.lisp 
Log Message:
1.0.42.2: correct defknown for data-vector-ref-with-offset

 * If the offset is positive, the index can be negative and still
   correct.

 * Fixes lp#622958


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.226
retrieving revision 1.227
diff -u -d -r1.226 -r1.227
--- compiler.pure.lisp	30 Mar 2010 10:09:05 -0000	1.226
+++ compiler.pure.lisp	30 Aug 2010 10:45:00 -0000	1.227
@@ -3502,3 +3502,32 @@
                                                (declare (optimize (sb-c::float-accuracy 0)))
                                                (* x -1.0d0)))
                                1))))
+
+(with-test (:name :data-vector-ref-with-offset-neg-index)
+  (let ((fun (compile nil
+                      `(lambda ()
+                         (let ((table (make-array 7
+                                                  :element-type 'fixnum
+                                                  :initial-contents '(0 1 2 3 4 5 6))))
+                           (loop for n from -3 upto 3
+                                 collect (aref table (+ 3 n))))))))
+    (assert (equal '(0 1 2 3 4 5 6) (funcall fun)))))
+
+(with-test (:name :aref-bignum-offset-and-index)
+  ;; These don't get the data-vector-ref-with-offset vop.
+  (let ((fun (compile nil
+                      `(lambda ()
+                         (let ((table (make-array 7
+                                                  :element-type 'fixnum
+                                                  :initial-contents '(0 1 2 3 4 5 6))))
+                           (loop for n from most-negative-fixnum upto (+ most-negative-fixnum 6)
+                                 collect (aref table (+ #.(1+ most-positive-fixnum) n))))))))
+    (assert (equal '(0 1 2 3 4 5 6) (funcall fun))))
+  (let ((fun (compile nil
+                      `(lambda ()
+                         (let ((table (make-array 7
+                                                  :element-type 'fixnum
+                                                  :initial-contents '(0 1 2 3 4 5 6))))
+                           (loop for n from (+ most-positive-fixnum 1) upto (+ most-positive-fixnum 7)
+                                 collect (aref table (- n (+ most-positive-fixnum 1)))))))))
+    (assert (equal '(0 1 2 3 4 5 6) (funcall fun)))))

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

Modified Files:
	version.lisp-expr 
Added Files:
	release.sh 
Log Message:
1.0.42.1: add release script

The script automates many of the tasks involved in performing the minimum
level of sanity checking that I am comfortable with, and enumerates others
that remain unscriptable despite 10 years of user interface "improvements"
at Sourceforge.  It is unlikely to generalise to other release managers'
setups and taste without a little effort.


--- NEW FILE: release.sh ---
#! /bin/sh

set -ex

cd "$1"

sbcl_directory="$(pwd)"

cd "$sbcl_directory"

tmpfile=$(mktemp --tmpdir sbcl-build-$(date +%Y%m%d)-XXXXXXXXX)

./make.sh >$tmpfile 2>&1

./src/runtime/sbcl --version | grep '^SBCL [1-9][0-9]*\.[0-9]\+\.[1-9][0-9]*$'

version=$(./src/runtime/sbcl --version | awk '{print $2}')
grep "^changes in sbcl-$version relative to" NEWS

cd tests
sh ./run-tests.sh >>$tmpfile 2>&1
cd ..

cp ./src/runtime/sbcl /tmp/sbcl-$version
cp ./output/sbcl.core /tmp/sbcl-$version.core

./make.sh "/tmp/sbcl-$version --core /tmp/sbcl-$version.core" > /tmp/sbcl-$version-build-log 2>&1
cd doc && sh ./make-doc.sh

cd ..

rm /tmp/sbcl-$version /tmp/sbcl-$version.core

cp -a "$sbcl_directory" /tmp/sbcl-$version

ln -s /tmp/sbcl-$version /tmp/sbcl-$version-x86-linux
cd /tmp/
sh sbcl-$version/binary-distribution.sh sbcl-$version-x86-linux
sh sbcl-$version/html-distribution.sh sbcl-$version
cd sbcl-$version
sh ./distclean.sh
cd ..
sh sbcl-$version/source-distribution.sh sbcl-$version

awk "BEGIN { state = 0 }
 /^changes in sbcl-/ { state = 0 } 
 /^changes in sbcl-$version/ { state = 1 }
 { if(state == 1) print \$0 }" < sbcl-$version/NEWS > sbcl-$version-release-notes.txt

echo "The SHA256 checksums of the following distribution files are:" > sbcl-$version-crhodes
echo >> sbcl-$version-crhodes
sha256sum sbcl-$version*.tar >> sbcl-$version-crhodes
bzip2 /tmp/sbcl-$version*.tar

echo Bugs fixed by sbcl-$version release > sbcl-$version-bugmail.txt
for bugnum in $(egrep -o "#[1-9][0-9][0-9][0-9][0-9][0-9]+" sbcl-$version-release-notes.txt | sed s/#// | sort -n)
do 
  printf "\n bug %s\n status fixreleased" $bugnum >> sbcl-$version-bugmail.txt
done
echo >> sbcl-$version-bugmail.txt

set +x

echo TODO:
echo
echo cvs commit -m "\"$version: will be tagged as sbcl_$(echo $version | sed 's/\./_/g')\""
echo cvs tag sbcl_$(echo $version | sed 's/\./_/g')
echo gpg -sta /tmp/sbcl-$version-crhodes
echo sftp crhodes,sbcl@...
echo \* cd /home/frs/project/s/sb/sbcl/sbcl
echo \* mkdir $version
echo \* chmod 775 $version
echo \* cd $version
echo \* put sbcl-$version-crhodes.asc
echo \* put sbcl-$version-x86-linux-binary.tar.bz2
echo \* put sbcl-$version-source.tar.bz2
echo \* put sbcl-$version-documentation-html.tar.bz2
echo \* put sbcl-$version-release-notes.txt
echo 
echo perform administrative tasks:
echo 
echo \* https://sourceforge.net/project/admin/?group_id=1373
echo \* In the File Manager interface, click on the release notes file
echo \ \ and tick the release notes box.
echo \* In the File Manager interface, click on the source tarball and
echo \ \ select as default download for all OSes.
echo \* mail sbcl-announce
echo \* check and send sbcl-$version-bugmail.txt to edit@...
echo \ \ '(sign: C-c RET s p)'
echo \* update \#lisp IRC topic
echo \* update sbcl website

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4972
retrieving revision 1.4973
diff -u -d -r1.4972 -r1.4973
--- version.lisp-expr	29 Aug 2010 14:13:27 -0000	1.4972
+++ version.lisp-expr	29 Aug 2010 14:33:50 -0000	1.4973
@@ -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.42"
+"1.0.42.1"

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

Modified Files:
	platform-support-platforms.lisp 
Log Message:
update sbcl-page for 1.0.42 release


Index: platform-support-platforms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/platform-support-platforms.lisp,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -d -r1.122 -r1.123
--- platform-support-platforms.lisp	1 Jul 2010 20:34:23 -0000	1.122
+++ platform-support-platforms.lisp	29 Aug 2010 14:28:32 -0000	1.123
@@ -21,7 +21,7 @@
 (define-status :not-available "not-available" "Not available (porters welcome!)" "X")
 (define-status :not-applicable "not-applicable" "No such system" " ")
 
-(define-port :x86 :linux :available "1.0.40")
+(define-port :x86 :linux :available "1.0.42")
 (define-port :x86-64 :linux :available "1.0.37")
 (define-port :powerpc :linux :available "1.0.28")
 (define-port :mips :linux :available "1.0.23")

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.42: will be tagged as sbcl_1_0_42

Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1780
retrieving revision 1.1781
diff -u -d -r1.1780 -r1.1781
--- NEWS	24 Aug 2010 16:27:02 -0000	1.1780
+++ NEWS	29 Aug 2010 14:13:26 -0000	1.1781
@@ -1,5 +1,5 @@
 ;;;; -*- coding: utf-8; fill-column: 78 -*-
-changes relative to sbcl-1.0.41
+changes in sbcl-1.0.42 relative to sbcl-1.0.41
   * build changes
     ** Cross-compilation host is now specified to make.sh using
        command-line argument --xc-host=<command> instead of a positional

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4971
retrieving revision 1.4972
diff -u -d -r1.4971 -r1.4972
--- version.lisp-expr	24 Aug 2010 16:27:02 -0000	1.4971
+++ version.lisp-expr	29 Aug 2010 14:13:27 -0000	1.4972
@@ -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.41.56"
+"1.0.42"

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.41.56: Fix for asdf-install (launchpad bug #612998)

Reported by Phil Hargett; patch by Jim Wise from Phil's description


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1779
retrieving revision 1.1780
diff -u -d -r1.1779 -r1.1780
--- NEWS	17 Aug 2010 12:26:24 -0000	1.1779
+++ NEWS	24 Aug 2010 16:27:02 -0000	1.1780
@@ -16,6 +16,8 @@
     argument is a floating point zero. (lp#571581, thanks to Roman Marynchak)
   * bug fix: DEFTYPE signals an error for non-list lambda-lists.
     (lp#576594, thanks to Roman Marynchak)
+  * bug fix: make ASDF-INSTALL compatible with the now-included ASDF2.
+    (lp#612998, reported by Phil Hargett; patch from Jim Wise)
 
 changes in sbcl-1.0.41 relative to sbcl-1.0.40:
   * optimization: validity of observed keyword initargs to MAKE-INSTANCE is

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4970
retrieving revision 1.4971
diff -u -d -r1.4970 -r1.4971
--- version.lisp-expr	23 Aug 2010 23:21:27 -0000	1.4970
+++ version.lisp-expr	24 Aug 2010 16:27:02 -0000	1.4971
@@ -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.41.55"
+"1.0.41.56"

Update of /cvsroot/sbcl/sbcl/contrib/asdf-install
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv4789/contrib/asdf-install

Modified Files:
	installer.lisp 
Log Message:
1.0.41.56: Fix for asdf-install (launchpad bug #612998)

Reported by Phil Hargett; patch by Jim Wise from Phil's description


Index: installer.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-install/installer.lisp,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- installer.lisp	15 Mar 2010 09:36:41 -0000	1.23
+++ installer.lisp	24 Aug 2010 16:27:02 -0000	1.24
@@ -200,7 +200,7 @@
     (loop for l = (read-line (process-output proc) nil nil)
           while l
           when (> (mismatch l "[GNUPG:]") 6)
-          do (destructuring-bind (_ tag &rest data) (asdf::split l)
+          do (destructuring-bind (_ tag &rest data) (asdf::split-string l)
                (declare (ignore _))
                (pushnew (cons (intern tag :keyword)
                               data) tags)))

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

Modified Files:
	subr.sh 
Log Message:
1.0.41.55: Solaris fixes

     * Remove bashisms.
     * Conditionalize out some constants and functions that
       don't exist on Solaris.
     * Patch from Jim Wise.


Index: subr.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/subr.sh,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- subr.sh	28 Dec 2007 19:46:57 -0000	1.1
+++ subr.sh	23 Aug 2010 23:21:27 -0000	1.2
@@ -32,8 +32,8 @@
 SBCL_ARGS="--noinform --no-sysinit --no-userinit --noprint --disable-debugger"
 
 # Scripts that use these variables should quote them.
-TEST_BASENAME="$(basename $0)"
-TEST_FILESTEM="$(echo ${TEST_BASENAME%.sh} | sed 's/\./-/g')"
+TEST_BASENAME="`basename $0`"
+TEST_FILESTEM="`echo ${TEST_BASENAME%.sh} | sed 's/\./-/g'`"
 TEST_DIRECTORY="$SBCL_PWD/$TEST_FILESTEM-$$"
 
 # "Ten four" is the closest numerical slang I can find to "OK", so

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.41.55: Solaris fixes

     * Remove bashisms.
     * Conditionalize out some constants and functions that
       don't exist on Solaris.
     * Patch from Jim Wise.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4969
retrieving revision 1.4970
diff -u -d -r1.4969 -r1.4970
--- version.lisp-expr	21 Aug 2010 09:41:15 -0000	1.4969
+++ version.lisp-expr	23 Aug 2010 23:21:27 -0000	1.4970
@@ -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.41.54"
+"1.0.41.55"

Update of /cvsroot/sbcl/sbcl/contrib/sb-posix
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv15511/contrib/sb-posix

Modified Files:
	constants.lisp interface.lisp posix-tests.lisp 
Log Message:
1.0.41.55: Solaris fixes

     * Remove bashisms.
     * Conditionalize out some constants and functions that
       don't exist on Solaris.
     * Patch from Jim Wise.


Index: constants.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/constants.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- constants.lisp	7 Apr 2010 07:23:38 -0000	1.47
+++ constants.lisp	23 Aug 2010 23:21:27 -0000	1.48
@@ -157,7 +157,7 @@
  (:errno ecomm "ECOMM" nil t)
  (:errno eproto "EPROTO" nil t)
  (:errno emultihop "EMULTIHOP" nil t)
- (:errno edotdot "EDOTDOT" nil t)
+#-sunos (:errno edotdot "EDOTDOT" nil t)
  (:errno ebadmsg "EBADMSG" nil t)
  (:errno eoverflow "EOVERFLOW" nil t)
  (:errno enotuniq "ENOTUNIQ" nil t)
@@ -201,13 +201,13 @@
  (:errno ealready "EALREADY" nil t)
  (:errno einprogress "EINPROGRESS" nil t)
  (:errno estale "ESTALE" nil t)
- (:errno euclean "EUCLEAN" nil t)
- (:errno enotnam "ENOTNAM" nil t)
- (:errno enavail "ENAVAIL" nil t)
- (:errno eremoteio "EREMOTEIO" nil t)
- (:errno edquot "EDQUOT" nil t)
- (:errno enomedium "ENOMEDIUM" nil t)
- (:errno emediumtype "EMEDIUMTYPE" nil t)
+#-sunos (:errno euclean "EUCLEAN" nil t)
+#-sunos (:errno enotnam "ENOTNAM" nil t)
+#-sunos (:errno enavail "ENAVAIL" nil t)
+#-sunos (:errno eremoteio "EREMOTEIO" nil t)
+#-sunos (:errno edquot "EDQUOT" nil t)
+#-sunos (:errno enomedium "ENOMEDIUM" nil t)
+#-sunos (:errno emediumtype "EMEDIUMTYPE" nil t)
 
  ;; wait
  (:integer wnohang "WNOHANG")
@@ -223,7 +223,7 @@
  (:integer s-ifreg "S_IFREG" nil t)
  (:integer s-iflnk "S_IFLNK" nil t)
  (:integer s-ifsock "S_IFSOCK" nil t)
- (:integer s-ifwht "S_IFWHT" nil t)
+#-sunos (:integer s-ifwht "S_IFWHT" nil t)
  (:integer s-isuid "S_ISUID" nil t)
  (:integer s-isgid "S_ISGID" nil t)
  (:integer s-isvtx "S_ISVTX" nil t)
@@ -340,9 +340,9 @@
  (:integer o-ndelay "O_NDELAY" nil t)
  (:integer o-sync "O_SYNC" nil t)
  (:integer o-nofollow "O_NOFOLLOW" nil t)
- (:integer o-directory "O_DIRECTORY" nil t)
- (:integer o-direct "O_DIRECT" nil t)
- (:integer o-async "O_ASYNC" nil t)
+#-sunos (:integer o-directory "O_DIRECTORY" nil t)
+#-sunos (:integer o-direct "O_DIRECT" nil t)
+#-sunos (:integer o-async "O_ASYNC" nil t)
  (:integer o-largefile "O_LARGEFILE" nil t)     ; hmm...
  (:integer o-dsync "O_DSYNC" nil t)
  (:integer o-rsync "O_RSYNC" nil t)
@@ -553,7 +553,7 @@
  ;; Additional, non-standard openlog() facilities (most of which
  ;; probably won't be needed by Lisp programs, but here for
  ;; completeness).
- #-win32
+ #-(or win32 sunos)
  (:integer
   log-authpriv "LOG_AUTHPRIV" "openlog() facility for authorization messages" t)
  #-win32
@@ -562,7 +562,7 @@
  #-win32
  (:integer
   log-daemon "LOG_DAEMON" "openlog() facility for arbitrary daemons" t)
- #-win32
+ #-(or win32 sunos)
  (:integer
   log-ftp "LOG_FTP" "openlog() facility for FTP daemons" t)
  #-win32
@@ -611,7 +611,7 @@
   "If supplied to openlog(), do not wait for child processes created by calls to syslog()."
   t)
  ;; Not in SUSv3, but at least Glibc and BSD libc have this
- #-win32
+ #-(or win32 sunos)
  (:integer
   log-perror "LOG_PERROR"
   "If supplied to openlog(), write log messages to the process's standard error descriptor in addition to the logging facility."

Index: interface.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/interface.lisp,v
retrieving revision 1.60
retrieving revision 1.61
diff -u -d -r1.60 -r1.61
--- interface.lisp	12 Jun 2010 20:44:42 -0000	1.60
+++ interface.lisp	23 Aug 2010 23:21:27 -0000	1.61
@@ -262,21 +262,21 @@
 
   ;; uid, gid
   (define-call "geteuid" uid-t never-fails) ; "always successful", it says
-  (define-call "getresuid" uid-t never-fails)
+#-sunos  (define-call "getresuid" uid-t never-fails)
   (define-call "getuid" uid-t never-fails)
   (define-call "seteuid" int minusp (uid uid-t))
-  (define-call "setfsuid" int minusp (uid uid-t))
+#-sunos  (define-call "setfsuid" int minusp (uid uid-t))
   (define-call "setreuid" int minusp (ruid uid-t) (euid uid-t))
-  (define-call "setresuid" int minusp (ruid uid-t) (euid uid-t) (suid uid-t))
+#-sunos  (define-call "setresuid" int minusp (ruid uid-t) (euid uid-t) (suid uid-t))
   (define-call "setuid" int minusp (uid uid-t))
   (define-call "getegid" gid-t never-fails)
   (define-call "getgid" gid-t never-fails)
-  (define-call "getresgid" gid-t never-fails)
+#-sunos  (define-call "getresgid" gid-t never-fails)
   (define-call "setegid" int minusp (gid gid-t))
-  (define-call "setfsgid" int minusp (gid gid-t))
+#-sunos  (define-call "setfsgid" int minusp (gid gid-t))
   (define-call "setgid" int minusp (gid gid-t))
   (define-call "setregid" int minusp (rgid gid-t) (egid gid-t))
-  (define-call "setresgid" int minusp (rgid gid-t) (egid gid-t) (sgid gid-t))
+#-sunos  (define-call "setresgid" int minusp (rgid gid-t) (egid gid-t) (sgid gid-t))
 
   ;; processes, signals
   (define-call "alarm" int never-fails (seconds unsigned))

Index: posix-tests.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-posix/posix-tests.lisp,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- posix-tests.lisp	12 Jun 2010 22:25:31 -0000	1.47
+++ posix-tests.lisp	23 Aug 2010 23:21:27 -0000	1.48
@@ -173,7 +173,9 @@
   #.sb-posix:eisdir
   #+win32
   #.sb-posix::eacces
-  #-(or darwin win32)
+  #+sunos
+  #.sb-posix::einval
+  #-(or darwin win32 sunos)
   #.sb-posix::ebusy)
 
 (deftest rmdir.error.4
@@ -774,7 +776,7 @@
 
 ;#-(or win32 sunos hpux)
 ;;;; mkdtemp is unimplemented on at least Solaris 10
-#-(or win32 hpux)
+#-(or win32 hpux sunos)
 ;;; But it is implemented on OpenSolaris 2008.11
 (deftest mkdtemp.1
     (let ((pathname

Update of /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv15511/contrib/sb-bsd-sockets

Modified Files:
	constants.lisp 
Log Message:
1.0.41.55: Solaris fixes

     * Remove bashisms.
     * Conditionalize out some constants and functions that
       don't exist on Solaris.
     * Patch from Jim Wise.


Index: constants.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-bsd-sockets/constants.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- constants.lisp	30 Jul 2010 11:00:24 -0000	1.25
+++ constants.lisp	23 Aug 2010 23:21:27 -0000	1.26
@@ -47,7 +47,7 @@
            "Send periodic keepalives: if peer does not respond, we get SIGPIPE")
  (:integer so-oobinline "SO_OOBINLINE"
            "Put out-of-band data into the normal input queue when received")
- #-freebsd
+ #+linux
  (:integer so-no-check "SO_NO_CHECK")
  #+linux (:integer so-priority "SO_PRIORITY")
  (:integer so-linger "SO_LINGER"
@@ -85,7 +85,7 @@
  (:integer NO-RECOVERY "NO_RECOVERY" "Non recoverable errors, FORMERR, REFUSED, NOTIMP.")
  (:integer NO-DATA "NO_DATA" "Valid name, no data record of requested type.")
  (:integer NO-ADDRESS "NO_ADDRESS" "No address, look for MX record.")
- #-hpux (:function h-strerror ("hstrerror" c-string (errno int)))
+ #-(or hpux sunos) (:function h-strerror ("hstrerror" c-string (errno int)))
 
  (:integer O-NONBLOCK "O_NONBLOCK")
  (:integer f-getfl "F_GETFL")
@@ -98,7 +98,7 @@
  (:integer msg-eor "MSG_EOR")
  (:integer msg-dontroute "MSG_DONTROUTE")
  (:integer msg-dontwait "MSG_DONTWAIT")
- (:integer msg-nosignal "MSG_NOSIGNAL")
+ #+linux (:integer msg-nosignal "MSG_NOSIGNAL")
  #+linux (:integer msg-confirm "MSG_CONFIRM")
  #+linux (:integer msg-more "MSG_MORE")

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

Modified Files:
	asdf-module.mk 
Log Message:
1.0.41.55: Solaris fixes

     * Remove bashisms.
     * Conditionalize out some constants and functions that
       don't exist on Solaris.
     * Patch from Jim Wise.


Index: asdf-module.mk
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/asdf-module.mk,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -d -r1.21 -r1.22
--- asdf-module.mk	28 Jan 2010 11:36:27 -0000	1.21
+++ asdf-module.mk	23 Aug 2010 23:21:27 -0000	1.22
@@ -11,6 +11,7 @@
 
 ifeq (SunOS,$(UNAME))
   EXTRA_CFLAGS=-D_XOPEN_SOURCE=500 -D__EXTENSIONS__
+  PATH:=/usr/xpg4/bin:${PATH}
 endif
 ifeq (CYGWIN,$(findstring CYGWIN,$(UNAME)))
   EXTRA_CFLAGS=-mno-cygwin

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

Modified Files:
	sbcl-page.asd 
Log Message:
Allow building sbcl-page with asdf2: disable output-translations for news.lisp-expr

Index: sbcl-page.asd
===================================================================
RCS file: /cvsroot/sbcl/sbcl-page/sbcl-page.asd,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- sbcl-page.asd	1 Nov 2008 02:26:40 -0000	1.4
+++ sbcl-page.asd	23 Aug 2010 22:49:30 -0000	1.5
@@ -25,9 +25,10 @@
   (mapcar #'load (asdf::input-files o f)))
 
 (defmethod output-files ((o compile-op) (f news-file))
-  (list
-   (make-pathname :name "news" :type "lisp-expr"
-                  :defaults (component-pathname f))))
+  (values (list
+           (make-pathname :name "news" :type "lisp-expr"
+                          :defaults (component-pathname f)))
+          t))
 
 (defsystem sbcl-page
     :name "sbcl"

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

Modified Files:
	binary-distribution.sh version.lisp-expr 
Log Message:
1.0.41.54: fix binary-distribution.sh for configurable prefixes

 ...that is, also include the file prefix.def, which specifies where
 the system is configured to install. Now that I think of it, it might
 be more elegant to be able to query the runtime about its default
 SBCL_HOME, actually...

 Thanks to Bruce O'Neel.


Index: binary-distribution.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/binary-distribution.sh,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- binary-distribution.sh	4 Jun 2009 18:01:32 -0000	1.19
+++ binary-distribution.sh	21 Aug 2010 09:41:15 -0000	1.20
@@ -11,7 +11,7 @@
 
 b=${1:?"missing base directory name argument"}
 tar -cf $b-binary.tar \
-    $b/output/sbcl.core $b/src/runtime/sbcl \
+    $b/output/sbcl.core $b/src/runtime/sbcl $b/output/prefix.def \
     $b/BUGS $b/COPYING $b/CREDITS $b/INSTALL $b/NEWS $b/README \
     $b/install.sh $b/find-gnumake.sh $b/sbcl-pwd.sh $b/run-sbcl.sh \
     $b/doc/sbcl.1 \

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4968
retrieving revision 1.4969
diff -u -d -r1.4968 -r1.4969
--- version.lisp-expr	18 Aug 2010 14:56:59 -0000	1.4968
+++ version.lisp-expr	21 Aug 2010 09:41:15 -0000	1.4969
@@ -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.41.53"
+"1.0.41.54"

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

Modified Files:
	make.sh version.lisp-expr 
Log Message:
1.0.41.53: more make.sh tweakery, part N

 Aka stuff that was supposed to be in .52, but got left out.

 * Create output/ if necessary for saving the prefix.

 * Put back the semicolon that fell on the floor and rolled into a corner.

 Scripting is hard, dammit.


Index: make.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/make.sh,v
retrieving revision 1.55
retrieving revision 1.56
diff -u -d -r1.55 -r1.56
--- make.sh	18 Aug 2010 14:49:27 -0000	1.55
+++ make.sh	18 Aug 2010 14:56:59 -0000	1.56
@@ -70,7 +70,7 @@
         ;;
       --xc-host=)
         $optarg_ok && SBCL_XC_HOST=$optarg
-        ;
+        ;;
       -*)
         bad_option "Unknown command-line option to $0: \"$option\""
         ;;
@@ -156,6 +156,7 @@
 echo "//Options: --prefix='$SBCL_PREFIX' --xc-host='$SBCL_XC_HOST'"
 
 # Save prefix for make and install.sh.
+mkdir -p output
 echo "SBCL_PREFIX='$SBCL_PREFIX'" > output/prefix.def
 
 # FIXME: Tweak this script, and the rest of the system, to support

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4967
retrieving revision 1.4968
diff -u -d -r1.4967 -r1.4968
--- version.lisp-expr	18 Aug 2010 14:49:27 -0000	1.4967
+++ version.lisp-expr	18 Aug 2010 14:56:59 -0000	1.4968
@@ -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.41.52"
+"1.0.41.53"

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

Modified Files:
	make.sh version.lisp-expr 
Log Message:
1.0.41.52: more make.sh tweakery

 * Empty string as the value for an option is treated as if the option
   wasn't provided at all, which makes scripting builds easier.

 * Temporary support for legacy-style xc host specifications for the
   benefit of clbuild &co. Add a noisy message to the end of the build
   so people will hopefully notice.


Index: make.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/make.sh,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -d -r1.54 -r1.55
--- make.sh	17 Aug 2010 16:06:34 -0000	1.54
+++ make.sh	18 Aug 2010 14:49:27 -0000	1.55
@@ -45,36 +45,53 @@
     exit 1
 }
 
+some_options=false
 for option
 do
+  optarg_ok=true
   # Split --foo=bar into --foo and bar.
   case $option in
       *=*)
-        optarg=`expr "X$option" : '[^=]*=\(.*\)'` || true
+        # For ease of scripting treat skip valued options with empty
+        # values.
+        optarg=`expr "X$option" : '[^=]*=\(.*\)'` || optarg_ok=false
         option=`expr "X$option" : 'X\([^=]*=\).*'`
-	if test -z "$optarg"
-	then
-	    bad_option "Command-line option has no value: $option"
-	fi
-	;;
+        ;;
       *)
         optarg=""
-	;;
+        ;;
   esac
 
   case $option in
       --help | -help | -h)
-	  print_help="yes" ;;
+        print_help="yes" ;;
       --prefix=)
-	  SBCL_PREFIX=$optarg ;;
+        $optarg_ok && SBCL_PREFIX=$optarg
+        ;;
       --xc-host=)
-	  SBCL_XC_HOST=$optarg ;;
-
-  *)
-    bad_option "Unknown command-line option to $0: \"$option\""
+        $optarg_ok && SBCL_XC_HOST=$optarg
+        ;
+      -*)
+        bad_option "Unknown command-line option to $0: \"$option\""
+        ;;
+      *)
+        if $some_options
+        then
+            bad_option "Unknown command-line option to $0: \"$option\""
+        else
+            legacy_xc_spec=$option
+        fi
+        ;;
   esac
+  some_options=true
 done
 
+# Previously XC host was provided as a positional argument. 
+if test -n "$legacy_xc_spec"
+then
+    SBCL_XC_HOST="$legacy_xc_spec"
+fi
+
 if test "$print_help" = "yes"
 then
   cat <<EOF
@@ -222,6 +239,23 @@
 echo
 echo "  sh install.sh"
 
+# This is probably the best place to ensure people will see this.
+if test -n "$legacy_xc_spec"
+then
+    echo <<EOF
+******************************************************************************
+**
+**  Old-style XC-host specification detected: '$SBCL_XC_HOST'
+**
+**  Since 1.0.41.45 SBCL expects the XC-host to be specified using
+**  the --xc-host='myhost' command line option, not with a positional
+**  argument. The legacy style still works, but will not be supported
+**  indefinitely. Please update your build procedure.
+**
+******************************************************************************
+EOF
+fi
+
 build_finished=`date`
 echo
 echo "//build started:  $build_started"

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4966
retrieving revision 1.4967
diff -u -d -r1.4966 -r1.4967
--- version.lisp-expr	17 Aug 2010 16:06:34 -0000	1.4966
+++ version.lisp-expr	18 Aug 2010 14:49:27 -0000	1.4967
@@ -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.41.51"
+"1.0.41.52"

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

Modified Files:
	make.sh version.lisp-expr 
Log Message:
1.0.41.51: eliminate accidental bash-ism from run-sbcl.sh

 Thanks to Josh "Eagle Eye" Elsasser.


Index: make.sh
===================================================================
RCS file: /cvsroot/sbcl/sbcl/make.sh,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- make.sh	16 Aug 2010 11:44:28 -0000	1.53
+++ make.sh	17 Aug 2010 16:06:34 -0000	1.54
@@ -39,7 +39,7 @@
 export SBCL_XC_HOST
 
 # Parse command-line options.
-function bad_option() {
+bad_option() {
     echo $1
     echo "Enter \"$0 --help\" for list of valid options."
     exit 1

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.4965
retrieving revision 1.4966
diff -u -d -r1.4965 -r1.4966
--- version.lisp-expr	17 Aug 2010 12:26:24 -0000	1.4965
+++ version.lisp-expr	17 Aug 2010 16:06:34 -0000	1.4966
@@ -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.41.50"
+"1.0.41.51"

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

Modified Files:
	condition.lisp parse-defmacro.lisp 
Log Message:
1.0.41.50: additional error checking for DEFTYPE &co

 Based on patch by Roman Marynchak.

 * Make PARSE-DEFMACRO check that the lambda-list is actually a list.

 * Define BAD-TYPE as an utility to signal SIMPLE-TYPE-ERRORS, instead
   of having to write the keyword calls everywhere.

 * Fixes https://bugs.launchpad.net/sbcl/+bug/576594


Index: condition.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/condition.lisp,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -d -r1.105 -r1.106
--- condition.lisp	16 Aug 2010 12:53:43 -0000	1.105
+++ condition.lisp	17 Aug 2010 12:26:24 -0000	1.106
@@ -624,6 +624,15 @@
 (define-condition simple-style-warning (simple-condition style-warning) ())
 (define-condition simple-type-error (simple-condition type-error) ())
 
+;; Can't have a function called SIMPLE-TYPE-ERROR or TYPE-ERROR...
+(declaim (ftype (sfunction (t t t &rest t) nil) bad-type))
+(defun bad-type (datum type control &rest arguments)
+  (error 'simple-type-error
+         :datum datum
+         :expected-type type
+         :format-control control
+         :format-arguments arguments))
+
 (define-condition program-error (error) ())
 (define-condition parse-error   (error) ())
 (define-condition control-error (error) ())

Index: parse-defmacro.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/parse-defmacro.lisp,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- parse-defmacro.lisp	24 Apr 2009 10:44:10 -0000	1.29
+++ parse-defmacro.lisp	17 Aug 2010 12:26:24 -0000	1.30
@@ -39,6 +39,9 @@
                        ((:default-default *default-default*))
                        (error-fun 'error)
                        (wrap-block t))
+  (unless (listp lambda-list)
+    (bad-type lambda-list 'list "~S lambda-list is not a list: ~S"
+              context lambda-list))
   (multiple-value-bind (forms declarations documentation)
       (parse-body body :doc-string-allowed doc-string-allowed)
     (let ((*arg-tests* ())