print-results fix

[mmontone]

Sorry for not making a pull request.

This version of print-results solves some problems with some queries. Sometimes html-entites:decode-entities fails, and sometimes there's a heap exhaustion error in pprint-description, that this solves by stripping the description up to a maximum length.

(defun print-results (repos space)
  (when repos
    (print-space space)
    (loop :for (title url desc) :in repos
          :repeat *cut-off* :do
       (format t "~&  ~A" (html-entities:decode-entities title))
       (when *url-print?*
         (format t "~%      ~A" (gen-url url space)))
       (when *description-print?*
	 (let ((decoded-desc (or (ignore-errors (html-entities:decode-entities desc))
				 desc)))
         (pprint-description
	  (subseq decoded-desc 0 (min 300 (length decoded-desc)))))))
    (when (< *cut-off* (length repos))
      (format t "~&  .......> ~D" (- (length repos) *cut-off*)))
    (terpri)
    t))