From 2e1ddf6d22e4bc545ced61389020332cd55d6c07 Mon Sep 17 00:00:00 2001 From: Jan Moringen Date: Sat, 2 Jan 2016 17:26:54 +0100 Subject: [PATCH] sb-aclrepl: Remove unused function DO-INSPECT in tests.lisp In addition to being unused, it attempted to call the undefined function SB-ACLREPL::INSPECTOR. --- contrib/sb-aclrepl/tests.lisp | 8 -------- 1 file changed, 8 deletions(-) diff --git a/contrib/sb-aclrepl/tests.lisp b/contrib/sb-aclrepl/tests.lisp index d30808275..051b7a3cf 100644 --- a/contrib/sb-aclrepl/tests.lisp +++ b/contrib/sb-aclrepl/tests.lisp @@ -100,11 +100,6 @@ (let ((sb-aclrepl::*skip-address-display* t)) (sb-aclrepl::display-inspect object strm print skip)))) -(defun do-inspect (object) - (with-output-to-string (strm) - (let ((sb-aclrepl::*skip-address-display* t)) - (sb-aclrepl::inspector `(quote ,object) nil strm)))) - (defun istep (args) (with-output-to-string (strm) (let ((sb-aclrepl::*skip-address-display* t)) @@ -462,6 +457,3 @@ the symbol NIL, which was selected by FIRST (istep '("-"))) "Object has no parent ") - - - -- 2.11.4.GIT