Red Hat Linux
Click URL instructions:
Right-click on ad, choose "Copy Link", then paste here →
(This may not be possible with some types of ads)
You seem to have CSS turned off.
Please don't fill out this field.
Briefly describe the problem (required):
Please provide the ad click URL, if possible:
Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv17225/tests
188.8.131.52: sequence optimizations: COPY-SEQ
* Compile-time dispatch to STRING-SUBSEQ*, VECTOR-SUBSEQ*,
LIST-COPY-SEQ*, and SB-SEQUENCE:COPY-SEQ.
* Share code between COPY-LIST and LIST-COPY-SEQ* via light macrology.
* COPY-SEQ on lists should check for improper lists.
RCS file: /cvsroot/sbcl/sbcl/tests/seq.pure.lisp,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- seq.pure.lisp 5 Feb 2006 23:29:16 -0000 1.13
+++ seq.pure.lisp 1 Dec 2007 18:57:59 -0000 1.14
@@ -187,3 +187,10 @@
(assert (string= c "abcde"))
(assert (string= d "beacd"))
(assert (string= e "abced")))
+;;; COPY-SEQ "should be prepared to signal an error if sequence is not
+;;; a proper sequence".
+(locally (declare (optimize safety))
+ (multiple-value-bind (seq err) (ignore-errors (copy-seq '(1 2 3 . 4)))
+ (assert (not seq))
+ (assert (typep err 'type-error))))
Sign up for the SourceForge newsletter: