/[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.13 by pfdietz, Sun Jul 27 03:47:37 2003 UTC revision 1.14 by pfdietz, Fri Aug 1 23:51:41 2003 UTC
# Line 157  Line 157 
157    nil)    nil)
158    
159  (defun do-test (&optional (name *test*))  (defun do-test (&optional (name *test*))
160    (do-entry (get-entry name)))    #-sbcl (do-entry (get-entry name))
161      #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
162                           (do-entry (get-entry name))))
163    
164  (defun my-aref (a &rest args)  (defun my-aref (a &rest args)
165    (apply #'aref a args))    (apply #'aref a args))
# Line 312  Line 314 
314          (do-entries stream))))          (do-entries stream))))
315    
316  (defun do-entries (s)  (defun do-entries (s)
317      #-sbcl (do-entries* s)
318      #+sbcl (handler-bind ((sb-ext:code-deletion-note #'muffle-warning))
319                           (do-entries* s)))
320    
321    (defun do-entries* (s)
322    (format s "~&Doing ~A pending test~:P ~    (format s "~&Doing ~A pending test~:P ~
323               of ~A tests total.~%"               of ~A tests total.~%"
324            (count t (the list (cdr *entries*)) :key #'pend)            (count t (the list (cdr *entries*)) :key #'pend)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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