1.0.8.20: replace PVREF by SVREF

* PVREF was a trivial wrapper macro around SVREF, and used in only
  src/pcl/vector.lisp. This is easier to read for me at least.

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 5870bfe..fb0d537 100644 (file)
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -225,9 +225,6 @@
 (defun make-pv-type-declaration (var)
   `(type simple-vector ,var))
 
-(defmacro pvref (pv index)
-  `(svref ,pv ,index))
-
 (defmacro copy-pv (pv)
   `(copy-seq ,pv))
 
@@ -295,7 +292,7 @@
           (let ((map (svref pv-map i)))
             (when map
               (aver (= (car map) 0))
-              (setf (pvref pv i) (cdr map))))))
+              (setf (svref pv i) (cdr map))))))
       (when (memq cwrapper wrappers)
         (let ((param 0))
           (dolist (wrapper wrappers)
@@ -303,7 +300,7 @@
               (dotimes-fixnum (i pv-size)
                 (let ((map (svref pv-map i)))
                   (when (and map (= (car map) param))
-                    (setf (pvref pv i) (cdr map))))))
+                    (setf (svref pv i) (cdr map))))))
             (incf param))))))
 \f
 (defun can-optimize-access (form required-parameters env)
@@ -552,7 +549,7 @@
       (let* ((index (gensym))
              (value index))
         `(locally (declare #.*optimize-speed*)
-          (let ((,index (pvref ,pv ,pv-offset)))
+          (let ((,index (svref ,pv ,pv-offset)))
             (setq ,value (typecase ,index
                            ;; FIXME: the line marked by KLUDGE below
                            ;; (and the analogous spot in
@@ -592,7 +589,7 @@
       default
       (let* ((index (gensym)))
         `(locally (declare #.*optimize-speed*)
-          (let ((,index (pvref ,pv ,pv-offset)))
+          (let ((,index (svref ,pv ,pv-offset)))
             (typecase ,index
               ,@(when (or (null kind) (eq kind :instance))
                   `((fixnum (and ,slots
@@ -624,7 +621,7 @@
       default
       (let* ((index (gensym)))
         `(locally (declare #.*optimize-speed*)
-          (let ((,index (pvref ,pv ,pv-offset)))
+          (let ((,index (svref ,pv ,pv-offset)))
             (typecase ,index
               ,@(when (or (null kind) (eq kind :instance))
                   `((fixnum (not (and ,slots

diff --git a/version.lisp-expr b/version.lisp-expr
index 1b0ee49..f62a8cb 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -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.8.19"
+"1.0.8.20"