;; Wraper for using component-find.lisp from CGI/Perl search facility of the CLib browser
(unless (find-package :km) (make-package :km))(in-package :km)(setq *using-km-package* t)

(setf *default-pathname-defaults* "/usr/spool/net/www/users/mfkb/RKF/smedict/")
(load "/usr/spool/net/www/users/mfkb/RKF/smedict/component-find.lisp")


(defun component-find-pp (word build)
  (mapcar #'(lambda (entry)
	      (format t "===~a#~a#~a===~%" (first entry) (second entry) (fourth entry)  ))
	  (component-find-integrated word build)))