(defparameter EXT::UCS4 ':UCS-4)