Changeset 13150


Ignore:
Timestamp:
Oct 30, 2009, 11:40:40 PM (10 years ago)
Author:
gz
Message:

add regression tests for bugs #617 and #620

File:
1 edited

Legend:

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

    r13091 r13150  
    15801580  :symbol-macro
    15811581  :special)
     1582
     1583(deftest ccl.bug#617
     1584    (flet ((test ()
     1585             (declare (optimize (speed 1) (safety 1)))
     1586             (symbol-macrolet ((inc 0.5))
     1587               (loop with y = 0 do (incf y inc) while (< y 2)))))
     1588      (test))
     1589  nil)
     1590
     1591(deftest ccl.bug#620
     1592    (progn
     1593      (test-compile (test-source-file "(defun ccl.bug#620.fn (buckets x y)
     1594                                        (declare (type (simple-array t (* *)) buckets))
     1595                                        (let ((result (aref buckets x y)))
     1596                                            result))"))
     1597      :win)
     1598  :win)
Note: See TracChangeset for help on using the changeset viewer.