Steel Bank Common Lisp

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

Modified Files:
	aliencomp.lisp 
Log Message:
1.0.43.23: enable let-conversion for open-coded ALIEN-FUNCALL calls

 Otherwise DEBUG > SPEED prevents let-conversion, and leads to
 %SAP-ALIEN being left in the code.

 Fixes lp#654485.


Index: aliencomp.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/aliencomp.lisp,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- aliencomp.lisp	6 May 2009 21:12:09 -0000	1.39
+++ aliencomp.lisp	4 Oct 2010 11:26:10 -0000	1.40
@@ -706,6 +706,7 @@
               (setf body `(invoke-with-saved-fp-and-pc (lambda () ,body))))
             (/noshow "returning from DEFTRANSFORM ALIEN-FUNCALL" (params) body)
             `(lambda (function ,@(params))
+               (declare (optimize (let-conversion 3)))
                ,body)))))))
 
 (defoptimizer (%alien-funcall derive-type) ((function type &rest args))

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

Modified Files:
	alien.impure.lisp 
Log Message:
1.0.43.23: enable let-conversion for open-coded ALIEN-FUNCALL calls

 Otherwise DEBUG > SPEED prevents let-conversion, and leads to
 %SAP-ALIEN being left in the code.

 Fixes lp#654485.


Index: alien.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/alien.impure.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- alien.impure.lisp	8 Aug 2010 01:14:23 -0000	1.25
+++ alien.impure.lisp	4 Oct 2010 11:26:10 -0000	1.26
@@ -294,4 +294,17 @@
     (verify (signed 16)   #x003f8042 #x-7fbe)
     (verify (signed 16)   #x003f7042 #x7042)))
 
+(with-test (:name :bug-654485)
+  ;; DEBUG 2 used to prevent let-conversion of the open-coded ALIEN-FUNCALL body,
+  ;; which in turn led the dreaded %SAP-ALIEN note.
+  (handler-case
+      (compile nil
+               `(lambda (program argv)
+                  (declare (optimize (debug 2)))
+                  (with-alien ((sys-execv1 (function int c-string (* c-string)) :extern
+                                           "execv"))
+                    (values (alien-funcall sys-execv1 program argv)))))
+    (compiler-note (n)
+      (error n))))
+
 ;;; success

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.43.23: enable let-conversion for open-coded ALIEN-FUNCALL calls

 Otherwise DEBUG > SPEED prevents let-conversion, and leads to
 %SAP-ALIEN being left in the code.

 Fixes lp#654485.


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1823
retrieving revision 1.1824
diff -u -d -r1.1823 -r1.1824
--- NEWS	4 Oct 2010 10:43:39 -0000	1.1823
+++ NEWS	4 Oct 2010 11:26:10 -0000	1.1824
@@ -25,6 +25,8 @@
   * bug fix: compile-times no longer scale linearly with the size of
     quoted lists in source-code. (lp#654289)
   * bug fix: better errors for unknown external-formats in OPEN. (lp#561974)
+  * bug fix: DEBUG>SPEED no longer degrades ALIEN-FUNCALL performance quite
+    so badly. (lp#654485)
 
 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.5049
retrieving revision 1.5050
diff -u -d -r1.5049 -r1.5050
--- version.lisp-expr	4 Oct 2010 10:43:39 -0000	1.5049
+++ version.lisp-expr	4 Oct 2010 11:26:10 -0000	1.5050
@@ -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.22"
+"1.0.43.23"

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

Modified Files:
	external-format.impure.lisp 
Log Message:
1.0.43.22: better errors for invalid :EXTERNAL-FORMAT arguments

 Affects OPEN & RUN-PROGRAM. String <-> octets conversions did
 the right thing already.


Index: external-format.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/external-format.impure.lisp,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- external-format.impure.lisp	1 May 2010 00:15:10 -0000	1.28
+++ external-format.impure.lisp	4 Oct 2010 10:43:40 -0000	1.29
@@ -991,5 +991,34 @@
       (write-string string s))
     (with-open-file (s *test-path* :external-format :utf-32be)
       (assert (string= " ???? " (read-line s))))))
+
+(with-test (:name :invalid-external-format)
+  (labels ((test-error (e)
+             (assert (typep e 'error))
+             (unless (equal "Undefined external-format: :BAD-FORMAT"
+                            (princ-to-string e))
+               (error "Bad error:~%  ~A" e)))
+           (test (direction)
+             (test-error
+              (handler-case
+                  (open "/dev/null" :direction direction :external-format :bad-format
+                        :if-exists :overwrite)
+                (error (e) e)))))
+    (test :input)
+    (test :output)
+    (test :io)
+    (test-error
+     (handler-case
+         (run-program "sh" '() :input :stream :external-format :bad-format)
+       (error (e) e)))
+    (test-error
+     (handler-case
+         (string-to-octets "foobar" :external-format :bad-format)
+       (error (e) e)))
+    (test-error
+     (let ((octets (string-to-octets "foobar" :external-format :latin1)))
+       (handler-case
+           (octets-to-string octets :external-format :bad-format)
+         (error (e) e))))))
 
 ;;;; success

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

Modified Files:
	fd-stream.lisp 
Log Message:
1.0.43.22: better errors for invalid :EXTERNAL-FORMAT arguments

 Affects OPEN & RUN-PROGRAM. String <-> octets conversions did
 the right thing already.


Index: fd-stream.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/fd-stream.lisp,v
retrieving revision 1.149
retrieving revision 1.150
diff -u -d -r1.149 -r1.150
--- fd-stream.lisp	30 Sep 2010 08:23:34 -0000	1.149
+++ fd-stream.lisp	4 Oct 2010 10:43:40 -0000	1.150
@@ -851,7 +851,7 @@
 
 (defun get-external-format-or-lose (external-format)
   (or (get-external-format external-format)
-      (error "Undefined external-format ~A" external-format)))
+      (error "Undefined external-format: ~S" external-format)))
 
 (defun external-format-keyword (external-format)
   (typecase external-format
@@ -871,17 +871,16 @@
 ;;; number of bytes per element.
 (defun pick-output-routine (type buffering &optional external-format)
   (when (subtypep type 'character)
-    (let ((entry (get-external-format external-format)))
-      (when entry
-        (return-from pick-output-routine
-          (values (ecase buffering
-                    (:none (ef-write-char-none-buffered-fun entry))
-                    (:line (ef-write-char-line-buffered-fun entry))
-                    (:full (ef-write-char-full-buffered-fun entry)))
-                  'character
-                  1
-                  (ef-write-n-bytes-fun entry)
-                  (canonize-external-format external-format entry))))))
+    (let ((entry (get-external-format-or-lose external-format)))
+      (return-from pick-output-routine
+        (values (ecase buffering
+                  (:none (ef-write-char-none-buffered-fun entry))
+                  (:line (ef-write-char-line-buffered-fun entry))
+                  (:full (ef-write-char-full-buffered-fun entry)))
+                'character
+                1
+                (ef-write-n-bytes-fun entry)
+                (canonize-external-format external-format entry)))))
   (dolist (entry *output-routines*)
     (when (and (subtypep type (first entry))
                (eq buffering (second entry))
@@ -1221,14 +1220,13 @@
 ;;; bytes per element (and for character types string input routine).
 (defun pick-input-routine (type &optional external-format)
   (when (subtypep type 'character)
-    (let ((entry (get-external-format external-format)))
-      (when entry
-        (return-from pick-input-routine
-          (values (ef-read-char-fun entry)
-                  'character
-                  1
-                  (ef-read-n-chars-fun entry)
-                  (canonize-external-format external-format entry))))))
+    (let ((entry (get-external-format-or-lose external-format)))
+      (return-from pick-input-routine
+        (values (ef-read-char-fun entry)
+                'character
+                1
+                (ef-read-n-chars-fun entry)
+                (canonize-external-format external-format entry)))))
   (dolist (entry *input-routines*)
     (when (and (subtypep type (first entry))
                (or (not (fourth entry))

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.43.22: better errors for invalid :EXTERNAL-FORMAT arguments

 Affects OPEN & RUN-PROGRAM. String <-> octets conversions did
 the right thing already.


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1822
retrieving revision 1.1823
diff -u -d -r1.1822 -r1.1823
--- NEWS	4 Oct 2010 09:31:02 -0000	1.1822
+++ NEWS	4 Oct 2010 10:43:39 -0000	1.1823
@@ -24,6 +24,7 @@
   * bug fix: non-unicode builds no longer fail (broken since 1.0.36.15).
   * bug fix: compile-times no longer scale linearly with the size of
     quoted lists in source-code. (lp#654289)
+  * bug fix: better errors for unknown external-formats in OPEN. (lp#561974)
 
 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.5048
retrieving revision 1.5049
diff -u -d -r1.5048 -r1.5049
--- version.lisp-expr	4 Oct 2010 09:51:59 -0000	1.5048
+++ version.lisp-expr	4 Oct 2010 10:43:39 -0000	1.5049
@@ -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.21"
+"1.0.43.22"

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

Modified Files:
	COPYING version.lisp-expr 
Log Message:
1.0.43.21: typo in COPYING file

 Spotted by Jean-Philippe Paradis.


Index: COPYING
===================================================================
RCS file: /cvsroot/sbcl/sbcl/COPYING,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- COPYING	1 Jun 2006 09:14:25 -0000	1.3
+++ COPYING	4 Oct 2010 09:51:59 -0000	1.4
@@ -7,9 +7,9 @@
 (from MIT and Symbolics) and in the PCL implementation of CLOS (from
 Xerox).
 
-After CMU CL was was released into the public domain, it was
-maintained by volunteers, who continued the tradition of releasing
-their work into the public domain.
+After CMU CL was released into the public domain, it was maintained by
+volunteers, who continued the tradition of releasing their work into
+the public domain.
 
 All changes to SBCL since the fork from CMU CL have been released into
 the public domain in jurisdictions where this is possible, or under

Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5047
retrieving revision 1.5048
diff -u -d -r1.5047 -r1.5048
--- version.lisp-expr	4 Oct 2010 09:31:02 -0000	1.5047
+++ version.lisp-expr	4 Oct 2010 09:51:59 -0000	1.5048
@@ -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.20"
+"1.0.43.21"

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

Modified Files:
	NEWS version.lisp-expr 
Log Message:
1.0.43.20: missing NEWS for 1.0.43.19

 EOM


Index: NEWS
===================================================================
RCS file: /cvsroot/sbcl/sbcl/NEWS,v
retrieving revision 1.1821
retrieving revision 1.1822
diff -u -d -r1.1821 -r1.1822
--- NEWS	3 Oct 2010 14:52:26 -0000	1.1821
+++ NEWS	4 Oct 2010 09:31:02 -0000	1.1822
@@ -22,6 +22,8 @@
        Kalyanov Dmitry)
     ** bug fix: run-sbcl.sh now works on Cygwin. (thanks to Kalyanov Dmitry)
   * bug fix: non-unicode builds no longer fail (broken since 1.0.36.15).
+  * bug fix: compile-times no longer scale linearly with the size of
+    quoted lists in source-code. (lp#654289)
 
 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.5046
retrieving revision 1.5047
diff -u -d -r1.5046 -r1.5047
--- version.lisp-expr	4 Oct 2010 09:27:56 -0000	1.5046
+++ version.lisp-expr	4 Oct 2010 09:31:02 -0000	1.5047
@@ -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.19"
+"1.0.43.20"

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.43.19: don't record source-paths for sub-parts of quoted constants

 Fixes the performance-half of lp#654289.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5045
retrieving revision 1.5046
diff -u -d -r1.5045 -r1.5046
--- version.lisp-expr	4 Oct 2010 09:15:32 -0000	1.5045
+++ version.lisp-expr	4 Oct 2010 09:27:56 -0000	1.5046
@@ -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.18"
+"1.0.43.19"

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

Modified Files:
	compiler.pure.lisp 
Log Message:
1.0.43.19: don't record source-paths for sub-parts of quoted constants

 Fixes the performance-half of lp#654289.


Index: compiler.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.234
retrieving revision 1.235
diff -u -d -r1.234 -r1.235
--- compiler.pure.lisp	30 Sep 2010 07:15:57 -0000	1.234
+++ compiler.pure.lisp	4 Oct 2010 09:27:57 -0000	1.235
@@ -3559,9 +3559,26 @@
                 ((and warning (not style-warning)) ()
                   :warning)))))
 
-(with-test (:name :bug)
+(with-test (:name :bug-646796)
   (assert 42
           (funcall
            (compile nil
                     `(lambda ()
                        (load-time-value (the (values fixnum) 42)))))))
+
+(with-test (:name :bug-654289)
+  (let* ((big (labels ((make-tree (n acc)
+                         (cond ((zerop n) acc)
+                               (t (make-tree (1- n) (cons acc acc))))))
+                (make-tree 10000 nil)))
+         (small '((1) (2) (3)))
+         (t0 (get-internal-run-time))
+         (f1 (compile nil `(lambda (x) (eq x (quote ,big)))))
+         (t1 (get-internal-run-time))
+         (f2 (compile nil `(lambda (x) (eq x (quote ,small)))))
+         (t2 (get-internal-run-time)))
+    (assert (funcall f1 big))
+    (assert (funcall f2 small))
+    ;; Compile time should not explode just because there's a big constant
+    ;; object in the source.
+    (assert (> 10 (abs (- (- t1 t0) (- t2 t1)))))))

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

Modified Files:
	ir1tran.lisp 
Log Message:
1.0.43.19: don't record source-paths for sub-parts of quoted constants

 Fixes the performance-half of lp#654289.


Index: ir1tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/ir1tran.lisp,v
retrieving revision 1.180
retrieving revision 1.181
diff -u -d -r1.180 -r1.181
--- ir1tran.lisp	20 Sep 2010 08:24:51 -0000	1.180
+++ ir1tran.lisp	4 Oct 2010 09:27:56 -0000	1.181
@@ -487,16 +487,19 @@
           (trail form))
       (declare (fixnum pos))
       (macrolet ((frob ()
-                   '(progn
+                   `(progn
                       (when (atom subform) (return))
                       (let ((fm (car subform)))
-                        (if (consp fm)
-                            ;; If it's a cons, recurse
-                            (sub-find-source-paths fm (cons pos path))
-                            ;; Otherwise store the containing form. It's
-                            ;; not perfect, but better than nothing.
-                            (unless (zerop pos)
-                              (note-source-path subform pos path)))
+                        (cond ((consp fm)
+                               ;; If it's a cons, recurse.
+                               (sub-find-source-paths fm (cons pos path)))
+                              ((eq 'quote fm)
+                               ;; Don't look into quoted constants.
+                               (return))
+                              ((not (zerop pos))
+                               ;; Otherwise store the containing form. It's not
+                               ;; perfect, but better than nothing.
+                               (note-source-path subform pos path)))
                         (incf pos))
                       (setq subform (cdr subform))
                       (when (eq subform trail) (return)))))

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.43.18: index SB-EXT:*EVALUATOR-MODE* under #'EVAL in the manual

 Looking for "Interpreter" in the concept index isn't probably the
 first thing most people do.

 Fixes the documentation half of lp#654289.


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5044
retrieving revision 1.5045
diff -u -d -r1.5044 -r1.5045
--- version.lisp-expr	4 Oct 2010 02:12:53 -0000	1.5044
+++ version.lisp-expr	4 Oct 2010 09:15:32 -0000	1.5045
@@ -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.17"
+"1.0.43.18"

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

Modified Files:
	compiler.texinfo 
Log Message:
1.0.43.18: index SB-EXT:*EVALUATOR-MODE* under #'EVAL in the manual

 Looking for "Interpreter" in the concept index isn't probably the
 first thing most people do.

 Fixes the documentation half of lp#654289.


Index: compiler.texinfo
===================================================================
RCS file: /cvsroot/sbcl/sbcl/doc/manual/compiler.texinfo,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -d -r1.23 -r1.24
--- compiler.texinfo	6 Jun 2010 20:43:58 -0000	1.23
+++ compiler.texinfo	4 Oct 2010 09:15:32 -0000	1.24
@@ -1114,15 +1114,15 @@
 @comment  node-name,  next,  previous,  up
 @section Interpreter
 @cindex Interpreter
+@findex @cl{eval}
 @vindex @sbext{@earmuffs{evaluator-mode}}
 
 By default SBCL implements @code{eval} by calling the native code
-compiler. SBCL also includes an interpreter for use in special cases
-where using the compiler is undesirable, for example due to compilation
-overhead. Unlike in some other Lisp implementations, in SBCL interpreted
-code is not safer or more debuggable than compiled code.
+compiler.
 
-Switching between the compiler and the interpreter is done using the
-special variable @code{sb-ext:*evaluator-mode*}. As of 0.9.17, valid
-values for @code{sb-ext:*evaluator-mode*} are @code{:compile} and
-@...}.
+SBCL also includes an interpreter for use in special cases where using
+the compiler is undesirable, for example due to compilation overhead.
+Unlike in some other Lisp implementations, in SBCL interpreted code is
+not safer or more debuggable than compiled code.
+
+@include var-sb-ext-star-evaluator-mode-star.texinfo

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

Modified Files:
	version.lisp-expr 
Log Message:
1.0.43.17: fix static symbols for array dispatch tables

The array dispatch tables have gone through several renamings.  Unfortunately,
the references to the names in compiler/generic/parms.lisp have not been
renamed as well.  Do so, and micro-optimize generic array access slightly.

(Optimizing SYMBOL-VALUE on static/global symbols would help as well...)


Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.5043
retrieving revision 1.5044
diff -u -d -r1.5043 -r1.5044
--- version.lisp-expr	3 Oct 2010 14:50:53 -0000	1.5043
+++ version.lisp-expr	4 Oct 2010 02:12:53 -0000	1.5044
@@ -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.16"
+"1.0.43.17"

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

Modified Files:
	parms.lisp 
Log Message:
1.0.43.17: fix static symbols for array dispatch tables

The array dispatch tables have gone through several renamings.  Unfortunately,
the references to the names in compiler/generic/parms.lisp have not been
renamed as well.  Do so, and micro-optimize generic array access slightly.

(Optimizing SYMBOL-VALUE on static/global symbols would help as well...)


Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/generic/parms.lisp,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- parms.lisp	30 Sep 2010 08:36:38 -0000	1.20
+++ parms.lisp	4 Oct 2010 02:12:54 -0000	1.21
@@ -88,10 +88,10 @@
     #!+sb-thread *tls-index-lock*
 
     ;; Dispatch tables for generic array access
-    sb!impl::*data-vector-reffers*
-    sb!impl::*data-vector-setters*
-    sb!impl::*data-vector-reffers/check-bounds*
-    sb!impl::*data-vector-setters/check-bounds*
+    sb!impl::%%data-vector-reffers%%
+    sb!impl::%%data-vector-reffers/check-bounds%%
+    sb!impl::%%data-vector-setters%%
+    sb!impl::%%data-vector-setters/check-bounds%%
 
     ;; non-x86oid gencgc object pinning
     #!+(and gencgc (not (or x86 x86-64)))