;;; LKB code patches

#-(or :lkb-v5.3 :lkb-v5.4)
(in-package :cl-user)
#+(:lkb-v5.3 :lkb-v5.4)
(in-package :lkb)

;;; Temporary hacks

(in-package :mrs)


(defun prune-semi (&key (lex lkb::*lexdb*))
  (loop 
      for x in (lkb::get-raw-records lex "select name from lex_cache right join semi_mod using (name) limit 0")
      do
	(lkb::run-command lex (format nil "DELETE FROM semi_mod WHERE name=~a" 
				      (lkb::psql-quote-literal (car x))))
	(lkb::run-command lex (format nil "DELETE FROM semi_pred WHERE lex_id=~a" 
				      (lkb::psql-quote-literal (car x))))	
	))



;;; end temporary hacks