From c6efd322f45f7a88164d5d0a55c4811a92b0ce87 Mon Sep 17 00:00:00 2001
From: "Thomas M. Hermann" <thomas.m.hermann@odonata-research.com>
Date: Mon, 22 Apr 2013 10:34:47 -0500
Subject: [PATCH] Remove redundant function print-warning.

---
 lisp-unit.lisp | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/lisp-unit.lisp b/lisp-unit.lisp
index 392dc43..fb74b4e 100644
--- a/lisp-unit.lisp
+++ b/lisp-unit.lisp
@@ -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)
-- 
2.11.4.GIT