From: Christophe Rhodes <csr21@cantab.net>
Date: Sun, 4 Feb 2007 16:26:47 +0000 (+0000)
Subject: 1.0.2.8:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=0cb75ba42eb24fc8fbc24806d932322cb4741ffe;p=sbcl.git

1.0.2.8:
	Two slightly improved comments relating to the extensible
	sequences checked in in the 1.0.0 series.
---

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 8099663..6ff9ebc 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -2521,8 +2521,9 @@
          ,@(loop for type in types
                  collect `(,type (,fun (the ,type ,var))))))))
 
-;;; originally in array.lisp; probably best to put it back there and
-;;; make DOSEQUENCE and SEQ-DISPATCH be in early-seq.lisp.
+;;; FIXME: this was originally in array.lisp; it might be better to
+;;; put it back there, and make DOSEQUENCE and SEQ-DISPATCH be in
+;;; a new early-seq.lisp file.
 (defun fill-data-vector (vector dimensions initial-contents)
   (let ((index 0))
     (labels ((frob (axis dims contents)
diff --git a/src/pcl/std-class.lisp b/src/pcl/std-class.lisp
index 502fe7c..e01d9a8 100644
--- a/src/pcl/std-class.lisp
+++ b/src/pcl/std-class.lisp
@@ -1521,7 +1521,9 @@
       ;; layout-depthoid).  Is there any way we can provide a useful
       ;; error message?  -- CSR, 2005-05-03
       (eq s *the-class-file-stream*) (eq s *the-class-string-stream*)
-      ;; TODO
+      ;; This probably shouldn't be mixed in with certain other
+      ;; classes, too, but it seems to work both with STANDARD-OBJECT
+      ;; and FUNCALLABLE-STANDARD-OBJECT
       (eq s *the-class-sequence*)))
 
 ;;; Some necessary methods for FORWARD-REFERENCED-CLASS
diff --git a/version.lisp-expr b/version.lisp-expr
index 9f1acac..5de724a 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.2.7"
+"1.0.2.8"