(in-package #:portaCL)

(defvar *implementation* nil)

(defun lisp-implementation-names ()
  "Returns a list of names likely to be used in the name of port files."
  (feature-cond
    (:allegro    '("allegro"))
    (:clisp      '("clisp"))
    (:cmu        '("cmucl" "cmu"))
    (:cormanlisp '("corman" "cormanlisp"))
    (:ecl        '("ecl"))
    (:lispworks  '("lispworks" "lw"))
    (:mcl        '("mcl"))
    (:openmcl    '("clozure" "openmcl" "mcl"))
    (:sbcl       '("sbcl"))
    (:scl        '("scl"))
    (:abcl       '("abcl" "armedbear"))
    (t (restart-case (error 'not-implemented)
         (use-value (value) value)))))

(defun cl-user::implementation (stream object &optional colon-p at-p)
  (declare (ignore object colon-p at-p))
  (write-string *implementation* stream))