RosettaCodeData/Task/Strip-control-codes-and-extended-characters-from-a-string/PicoLisp/strip-control-codes-and-extended-characters-from-a-string.l

(de stripCtrl (Str)
   (pack
      (filter
         '((C)
            (nor (= "^?" C) (> " " C "^A")) )
         (chop Str) ) ) )

(de stripCtrlExt (Str)
   (pack
      (filter
         '((C) (> "^?" C "^_"))
         (chop Str) ) ) )