1.0.45.21: whitespace damage from ctor patches

[sbcl.git] / src / pcl / sequence.lisp

diff --git a/src/pcl/sequence.lisp b/src/pcl/sequence.lisp
index 46f3f85..295cc71 100644 (file)
--- a/src/pcl/sequence.lisp
+++ b/src/pcl/sequence.lisp
@@ -104,7 +104,12 @@
       (values iterator limit from-end
               #'sequence:iterator-step #'sequence:iterator-endp
               #'sequence:iterator-element #'(setf sequence:iterator-element)
-              #'sequence:iterator-index #'sequence:iterator-copy))))
+              #'sequence:iterator-index #'sequence:iterator-copy)))
+  (:method ((s t) &key from-end start end)
+    (declare (ignore from-end start end))
+    (error 'type-error
+           :datum s
+           :expected-type 'sequence)))
 
 ;;; the simple protocol: the simple iterator returns three values,
 ;;; STATE, LIMIT and FROM-END.