From 98ba072c91899b84296cc0a1e8f6b2ebfc01a99f Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 4 Feb 1994 14:07:17 +0000 Subject: [PATCH] Like, more examples. --- tests/examples.lisp | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/tests/examples.lisp b/tests/examples.lisp index 7ca0805f7..4f8c200a4 100644 --- a/tests/examples.lisp +++ b/tests/examples.lisp @@ -17,3 +17,29 @@ (declare (fixnum x)) (foo x))) +(defun f+ (x y) + (declare (single-float x y)) + (+ x y)) + +(defun if-f+ (x y) + (declare (single-float x y)) + (+ (if (yow) (zunk) x) y)) + +(defun cf+ (x y) + (declare (single-float x y)) + (cons (+ x y) t)) + +(defun set-flo (x) + (declare (single-float x)) + (prog ((var 0.0)) + (setq var (gorp)) + (setq var x) + (return var))) + +(defun if-cf+ (x y) + (declare (single-float x y)) + (cons (if (grue) (+ x y) (snoc)) t)) + +(defun zf+ (x y) + (declare (single-float x y)) + (zork (+ x y))) -- GitLab