X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fsequence.lisp;h=295cc71f37509e20f818612cb6b531c1341c130b;hb=a2fd28fb6d0b3d8d230a7c933db352f80891ac1c;hp=46f3f850770907a91c4d80f496d6adf406d26b94;hpb=6822034325136cde4e14773c83c3769b42721306;p=sbcl.git

diff --git a/src/pcl/sequence.lisp b/src/pcl/sequence.lisp
index 46f3f85..295cc71 100644
--- 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.