X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ftime.lisp;h=d147a5933b73936f27f9487ea6a8d5590ddfb370;hb=bd0ba0f214518e8d72ff2d44de5a1e3e4b02af2c;hp=e0d70c191e42b039613e71ff03a61f2d47e7a8d4;hpb=ed7ba4dad8a79726fdfeba5aa12e276ea852c540;p=sbcl.git

diff --git a/src/pcl/time.lisp b/src/pcl/time.lisp
index e0d70c1..d147a59 100644
--- a/src/pcl/time.lisp
+++ b/src/pcl/time.lisp
@@ -139,7 +139,7 @@
   (lambda () (slot-value object 'function)))
 ||#
 
-(defun do-tests ()
+(defun run-tests ()
   (dolist (doc+form (reverse *tests*))
     (format t "~&~%~A~%" (car doc+form))
     (pprint (cdr doc+form))