Changeset 14704

Timestamp:

Mar 30, 2011, 4:58:56 PM (14 years ago)

Author:

R. Matthew Emerson

Message:

Test for ticket:840.

File:

• trunk/tests/ansi-tests/ccl.lsp (modified) (1 diff)

trunk/tests/ansi-tests/ccl.lsp

@@ -1780 +1780 @@
       (floating-point-overflow (c) c)))
   :win)
+
+(deftest ccl.bug#840
+  (progn
+    (fmakunbound 'test.bug#840a)
+    (fmakunbound 'test.bug#840b)
+    (test-compile (test-source-file "(in-package :cl-test)
+                                     (declaim (inline test.bug#840a))
+                                     (defun test.bug#840a (x)
+                                       (+ x 42))
+                                     (defun test.bug#840b ()
+                                       (flet ((test.bug#840a (x y)
+                                                (+ x y)))
+                                         (test.bug#840a 1 2)))")
+                  :load t)
+    :win)
+  :win)
+