From 0cb75ba42eb24fc8fbc24806d932322cb4741ffe Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Sun, 4 Feb 2007 16:26:47 +0000 Subject: [PATCH] 1.0.2.8: Two slightly improved comments relating to the extensible sequences checked in in the 1.0.0 series. --- src/code/seq.lisp | 5 +++-- src/pcl/std-class.lisp | 4 +++- version.lisp-expr | 2 +- 3 files changed, 7 insertions(+), 4 deletions(-) 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" -- 1.7.10.4