[Sbcl-commits] CVS: sbcl/tests compiler.pure-cload.lisp,1.15,1.16

[Alexey D. <ade...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8063/tests

Modified Files:
	compiler.pure-cload.lisp 
Log Message:
0.8.18.20:
        * Allocate closures at the beginning of FLET/LABELS form.
        ... fix bug 125.
        * Partial support of stack allocation of dynamic-extent
          closures on x86.


Index: compiler.pure-cload.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/compiler.pure-cload.lisp,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- compiler.pure-cload.lisp	6 Jan 2005 12:48:05 -0000	1.15
+++ compiler.pure-cload.lisp	8 Jan 2005 09:41:51 -0000	1.16
@@ -148,3 +148,12 @@
 ;;; bug 261
 (let ((x (list (the (values &optional fixnum) (eval '(values))))))
   (assert (equal x '(nil))))
+
+;;; Bug 125, reported by Gabe Garza: Python did not preserve identity
+;;; of closures.
+(flet ((test-case (test-pred x)
+         (let ((func (lambda () x)))
+           (list (eq func func)
+                 (funcall test-pred func func)
+                 (delete func (list func))))))
+  (assert (equal '(t t nil) (funcall (eval #'test-case) #'eq 3))))