;;; -*- Mode:LISP; Package:SYSTEM-INTERNALS; Base:10 -*-


(defun find-bad-language ()
  ;; in "LAM6:GJC;SEARCH"
  (system-source-search "SYSTEM" '("FUCK" "SHIT" "PISS" "DAMN" "ASS") :output-filename
			"LM:GJC;BAD-LANGUAGE.TEXT"))