* primitives.lisp: