Changeset 11677


Ignore:
Timestamp:
Feb 2, 2009, 6:32:42 PM (11 years ago)
Author:
gz
Message:

Regression test for bug #321

File:
1 edited

Legend:

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

    r11671 r11677  
    761761         (error () :error))))
    762762  (:error :error))
     763
     764(deftest ccl.bug#321
     765    (handler-case
     766        (progn
     767          (format nil "~a" (make-condition 'style-warning))
     768          :no-error)
     769      (error () :error))
     770  :no-error)
    763771
    764772;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Note: See TracChangeset for help on using the changeset viewer.