(let ((args (command-line-arguments)))
  (cond ((null? args)
         (print "using default .csirc code")
         ;; ...
         )
        (else
         (let ((profile (string->symbol (car args))))
           (case profile
             ((foo) (load "path/to/foo"))
             ;; ...
             )))))