X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fseq.lisp;h=84636949e0eedb6b19c77215054aaf8d7935b4f2;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=472b41b989214944be04f71b32ec434f0d502b16;hpb=b6aa15328871678a3475e82c150b251dffb49ba1;p=sbcl.git

diff --git a/src/code/seq.lisp b/src/code/seq.lisp
index 472b41b..8463694 100644
--- a/src/code/seq.lisp
+++ b/src/code/seq.lisp
@@ -56,7 +56,7 @@
 	     :datum vector
 	     :expected-type `(vector ,declared-length)
 	     :format-control
-	     "Vector length (~D) doesn't match declared length (~D)."
+	     "Vector length (~W) doesn't match declared length (~W)."
 	     :format-arguments (list actual-length declared-length))))
   vector)
 (defun sequence-of-checked-length-given-type (sequence result-type)
@@ -879,6 +879,16 @@
 		;; obviously correct solution is to make Python smart
 		;; enough that we can use an inline function instead
 		;; of a compiler macro (as above). -- WHN 20000410
+		;;
+		;; FIXME: The DEFINE-COMPILER-MACRO here can be
+		;; important for performance, and it'd be good to have
+		;; it be visible throughout the compilation of all the
+		;; target SBCL code. That could be done by defining
+		;; SB-XC:DEFINE-COMPILER-MACRO and using it here,
+		;; moving this DEFQUANTIFIER stuff (and perhaps other
+		;; inline definitions in seq.lisp as well) into a new
+		;; seq.lisp, and moving remaining target-only stuff
+		;; from the old seq.lisp into target-seq.lisp.
 		(define-compiler-macro ,name (pred first-seq &rest more-seqs)
 		  (let ((elements (make-gensym-list (1+ (length more-seqs))))
 			(blockname (gensym "BLOCK")))