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 vz-cvs-3.sog:/tmp/cvs-serv24235/tests
126.96.36.199: limit open coding from MEMBER, ASSOC, &co
Open coding massive lists doesn't really help, and a sufficiently
long list can blow the stack during compilation.
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.257
retrieving revision 1.258
diff -u -d -r1.257 -r1.258
--- compiler.pure.lisp 21 Apr 2011 11:06:15 -0000 1.257
+++ compiler.pure.lisp 21 Apr 2011 11:08:12 -0000 1.258
@@ -3867,3 +3867,10 @@
'((:ordinary . ordinary-lambda-list))))))
+(with-test (:name :member-on-long-constant-list)
+ ;; This used to blow stack with a sufficiently long list.
+ (let ((cycle (list t)))
+ (nconc cycle cycle)
+ (compile nil `(lambda (x)
+ (member x ',cycle)))))
Sign up for the SourceForge newsletter: