Changeset 14704 for trunk/tests


Ignore:
Timestamp:
Mar 30, 2011, 11:58:56 PM (8 years ago)
Author:
rme
Message:

Test for ticket:840.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tests/ansi-tests/ccl.lsp

    r14682 r14704  
    17801780      (floating-point-overflow (c) c)))
    17811781  :win)
     1782
     1783(deftest ccl.bug#840
     1784  (progn
     1785    (fmakunbound 'test.bug#840a)
     1786    (fmakunbound 'test.bug#840b)
     1787    (test-compile (test-source-file "(in-package :cl-test)
     1788                                     (declaim (inline test.bug#840a))
     1789                                     (defun test.bug#840a (x)
     1790                                       (+ x 42))
     1791                                     (defun test.bug#840b ()
     1792                                       (flet ((test.bug#840a (x y)
     1793                                                (+ x y)))
     1794                                         (test.bug#840a 1 2)))")
     1795                  :load t)
     1796    :win)
     1797  :win)
     1798
Note: See TracChangeset for help on using the changeset viewer.