Changeset 14146


Ignore:
Timestamp:
09/01/12 21:45:33 (9 years ago)
Author:
ehuelsmann
Message:

Re #241: Add test cases.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/test/lisp/abcl/compiler-tests.lisp

    r14143 r14146  
    483483  t)
    484484
     485
     486;;; ticket #241
     487(deftest compiler.4a
     488    (multiple-value-bind
     489          (rv error)
     490        (ignore-errors
     491          (compile nil '(lambda (&rest args &optional x))))
     492      (typep error 'program-error))
     493  t)
     494
     495(deftest compiler.4b
     496    (multiple-value-bind
     497          (rv error)
     498        (ignore-errors
     499          (compile nil '(lambda (&key args &optional x))))
     500      (typep error 'program-error))
     501  t)
Note: See TracChangeset for help on using the changeset viewer.