(load-cpl ()   ; le core
          t    ; env mini
          t    ; edit
          t    ; env moy
          t    ; chargeur
          t    ; compilo
)

(de init-complice (msg)
    (unless  (let ((file (getenv "CPCMDFILE")) )
                  (when file
                        (loadfile file t)
                        t)))
    (core-init-std msg))

(add-feature (if (eq 0.0 0.0)
                 '31BITFLOATS
                 '64BITFLOTS))

(save-std #:system:name "Systeme Complice" 'init-complice)