From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Sat, 8 Sep 2007 15:54:16 +0000 (+0000)
Subject: 1.0.9.44: clean up PV-TABLE constructor
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=fe124f3fad91ea52851f20f9cd73823d71f39ad1;p=sbcl.git

1.0.9.44: clean up PV-TABLE constructor
---

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index ea6ea96..fa09faa 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -45,29 +45,13 @@
          (when (eq ,slot-name sn) (return-from loop pos))
          (incf pos)))))
 
+(declaim (inline make-pv-table))
 (defstruct (pv-table (:predicate pv-tablep)
-                     (:constructor make-pv-table-internal
-                                   (slot-name-lists))
                      (:copier nil))
   (cache nil :type (or cache null))
   (pv-size 0 :type fixnum)
   (slot-name-lists nil :type list))
 
-#-sb-fluid (declaim (sb-ext:freeze-type pv-table))
-
-;;; FIXME: The comment below seem to indicate that this was intended
-;;; to be actually used, however, it isn't anymore, and was commented
-;;; out at 0.9.13.47. Also removed was code in MAKE-PV-TABLE that
-;;; pushed each new PV-TABLE onto this list. --NS 2006-06-18
-;;;
-;;;   help new slot-value-using-class methods affect fast iv access
-;;;
-;;;  (defvar *all-pv-table-list* nil)
-
-(declaim (inline make-pv-table))
-(defun make-pv-table (&key slot-name-lists)
-  (make-pv-table-internal slot-name-lists))
-
 (defun make-pv-table-type-declaration (var)
   `(type pv-table ,var))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index ad4ce67..5304362 100644
--- 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.9.43"
+"1.0.9.44"