Function Sql-Boolean->Boolean

Part of:

package cl-perec
( sql-boolean->boolean < val > )
TODO eliminate this fn