/[gcl]/gcl/ansi-tests/ansi-aux.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/ansi-aux.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.58 by pfdietz, Wed Apr 9 02:25:09 2003 UTC revision 1.59 by pfdietz, Sun Apr 20 22:59:25 2003 UTC
# Line 1438  the condition to go uncaught if it canno Line 1438  the condition to go uncaught if it canno
1438    (loop for e on plist by #'cddr    (loop for e on plist by #'cddr
1439          when (eql (car e) prop)          when (eql (car e) prop)
1440          collect (cadr e)))          collect (cadr e)))
1441    
1442    (defmacro def-macro-test (test-name macro-form)
1443      (let ((macro-name (car macro-form)))
1444        (assert (symbolp macro-name))
1445        `(deftest ,test-name
1446           (values
1447            (eqlt (classify-error (funcall (macro-function ',macro-name)))
1448                  'program-error)
1449            (eqlt (classify-error (funcall (macro-function ',macro-name)
1450                                           ',macro-form))
1451                  'program-error)
1452            (eqlt (classify-error (funcall (macro-function ',macro-name)
1453                                           ',macro-form nil nil))
1454                  'program-error))
1455           t t t)))

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26