From b2b226ae477a8653b1b345e02a06a708ca13d40f Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 27 Oct 2005 14:18:22 +0000
Subject: [PATCH] Removed call to inexistent function PRINT-IHS

---
 src/lsp/top.lsp | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index d5687fb01..67f3ac533 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -608,8 +608,6 @@ file.  When the saved image is invoked, it will start the redefined top-level."
 	      (*print-level* 2)
 	      (*print-length* 4)
 	      (*print-pretty* t))
-	  (when (ihs-visible i)
-	    (print-ihs i))
 	  (do () ((or (> j *frs-top*) (> (frs-ihs j) i)))
 	    (print-frs j)
 	    (incf j)))))