add PASS-RAW-P parameter to MAP-CONCAT
coerce value to MAT-CTYPE in (SETF MREF)
make WITH-ONES default to *DEFAULT-MAT-CTYPE* in effect at runtime

... as opposed to compile time.
translate more float related constants in DEFINE-LISP-KERNEL

... to their respective double float versions.