(in-package snepsul) (load "/projects/stn2/CVA/defun_noun.cl") (define-primaction defN (object1) (defineNoun object1))