Changeset 11642


Ignore:
Timestamp:
Jan 23, 2009, 1:14:25 PM (11 years ago)
Author:
gz
Message:

Add regression test

File:
1 edited

Legend:

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

    r11602 r11642  
    738738                                 lower-bound)))))
    739739  #.most-negative-fixnum)
     740
     741
     742(deftest ccl.51790
     743    (let ((var))
     744      (setq var t)
     745      (list
     746       (handler-case (format nil "~:[First case;second case~]" var)
     747         (error () :error))
     748       (handler-case (format nil "~:[First case;second case~]" (not var))
     749         (error () :error))))
     750  (:error :error))
    740751
    741752;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.