#!/usr/bin/newlisp ;; spellcheck.newlisp - benchmark - newLISP 8.3.0 or later (context 'MAIN) (define (main) (set 'infile (open "Usr.Dict.Words" "read")) (while (set 'word (read-line infile)) (sym word 'Dictionary)) (close infile) (while (set 'word (read-line)) (if (not (sym word 'Dictionary nil)) (println word)))) (main) ;; eof