Strip a common-lisp file from comments, empty lines, doc strings and overlong strings to count "useful lines of code".