Remove redundant function print-warning.
authorThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Mon, 22 Apr 2013 15:34:47 +0000 (22 10:34 -0500)
committerThomas M. Hermann <thomas.m.hermann@odonata-research.com>
Mon, 22 Apr 2013 15:34:47 +0000 (22 10:34 -0500)
lisp-unit.lisp

index 392dc43..fb74b4e 100644 (file)
@@ -144,12 +144,6 @@ assertion.")
   "Signal the results for extensibility."
   (setq *signal-results* flag))
 
-;;; Utility
-
-(defun print-warning (warning &optional (stream *error-output*))
-  "May want to handle the warning with HANDLER-CASE."
-  (format stream "~&Warning: ~A~&" warning))
-
 ;;; Global unit test database
 
 (defparameter *test-db* (make-hash-table :test #'eq)