projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.29: Add build flag :sb-xref-for-internals.
[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)
(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.
;;; the simple protocol: the simple iterator returns three values,
;;; STATE, LIMIT and FROM-END.