common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add test files.

Browse source
This commit is contained in:
Charles Zhang 2020-02-14 17:37:57 -08:00
parent 429d78462f
commit c267624bd0
2 changed files with 19 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
tests/block-compile-test-2.lisp Normal file
View file

@ -0,0 +1,7 @@
(defun foo1 (x y)
(bar2 x y))
(defun bar2 (x y)
(if (zerop x)
y
(foo1 (1- x) (* y x))))

12
tests/block-compile-test.lisp Normal file
View file

@ -0,0 +1,12 @@
;; test forward reference
(defun foo2 (x)
(bar2 x))
(defun bar2 (x)
(1+ (baz2 (+ 3 x))))
;; test backward reference
(defun baz2 (x)
(if (zerop x)
(foo2 x)
x))