Removed call to inexistent function PRINT-IHS

This commit is contained in:
jjgarcia 2005-10-27 14:18:22 +00:00
parent cc57385a24
commit b2b226ae47

View file

@ -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)))))