Function Form-P

Part of:

package cl-perec
( form-p < form > )