(in-package :lisp-on-lines) (defclass standard-occurence-class (standard-class) )