[Sbcl-commits] CVS: sbcl/src/pcl std-class.lisp,1.106,1.107

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/pcl
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv16973/src/pcl

Modified Files:
	std-class.lisp 
Log Message:
1.0.2.8:
	Two slightly improved comments relating to the extensible 
	sequences checked in in the 1.0.0 series.


Index: std-class.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/pcl/std-class.lisp,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -d -r1.106 -r1.107
--- std-class.lisp	15 Jan 2007 23:23:17 -0000	1.106
+++ std-class.lisp	4 Feb 2007 16:26:50 -0000	1.107
@@ -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