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 fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv17666/tests
18.104.22.168: LVAR-MATCHES needs to deal with unnamed leaves
...by passing ERRORP=NIL to COMBINATION-FUN-SOURCE-NAME. Also smooth
the return value convention of C-F-S-N by adding a secondary value:
NIL is a valid name for a local function.
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure.lisp,v
retrieving revision 1.207
retrieving revision 1.208
diff -u -d -r1.207 -r1.208
--- compiler.pure.lisp 10 Aug 2009 09:58:46 -0000 1.207
+++ compiler.pure.lisp 11 Aug 2009 11:22:18 -0000 1.208
@@ -3261,3 +3261,9 @@
(assert (not (search "GENERIC"
(disassemble d :stream out)))))))
+(with-test (:name :make-array-unnamed-dimension-leaf)
+ (let ((fun (compile nil `(lambda (stuff)
+ (make-array (map 'list 'length stuff))))))
+ (assert (equalp #2A((0 0 0) (0 0 0))
+ (funcall fun '((1 2) (1 2 3)))))))
Sign up for the SourceForge newsletter: