An implementation of CLIPS in Common Lisp