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

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

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

revision 1.27 by pfdietz, Sat Apr 30 21:32:34 2005 UTC revision 1.28 by pfdietz, Fri Jun 24 12:15:36 2005 UTC
# Line 174  Line 174 
174          (t (apply #'warn args)))          (t (apply #'warn args)))
175    nil)    nil)
176    
177  (defun do-test (&optional (name *test*)  (defun do-test (&optional (name *test*) &rest key-args)
178                  &key    (flet ((%parse-key-args
179                  ((:catch-errors *catch-errors*) *catch-errors*)            (&key
180                  ((:compile *compile-tests*) *compile-tests*))             ((:catch-errors *catch-errors*) *catch-errors*)
181    (do-entry (get-entry name)))             ((:compile *compile-tests*) *compile-tests*))
182              (do-entry (get-entry name))))
183        (apply #'%parse-key-args key-args)))
184    
185  (defun my-aref (a &rest args)  (defun my-aref (a &rest args)
186    (apply #'aref a args))    (apply #'aref a args))

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

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