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