0.8.0.2:

[sbcl.git] / src / pcl / time.lisp

diff --git a/src/pcl/time.lisp b/src/pcl/time.lisp
index e0d70c1..d147a59 100644 (file)
--- 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))