1 (in-package #:portaCL)
 2 
 3 (defvar *implementation* nil)
 4 
 5 (defun lisp-implementation-names ()
 6   "Returns a list of names likely to be used in the name of port files."
 7   (feature-cond
 8     (:allegro    '("allegro"))
 9     (:clisp      '("clisp"))
10     (:cmu        '("cmucl" "cmu"))
11     (:cormanlisp '("corman" "cormanlisp"))
12     (:ecl        '("ecl"))
13     (:lispworks  '("lispworks" "lw"))
14     (:mcl        '("mcl"))
15     (:openmcl    '("clozure" "openmcl" "mcl"))
16     (:sbcl       '("sbcl"))
17     (:scl        '("scl"))
18     (:abcl       '("abcl" "armedbear"))
19     (t (restart-case (error 'not-implemented)
20          (use-value (value) value)))))
21 
22 (defun cl-user::implementation (stream object &optional colon-p at-p)
23   (declare (ignore object colon-p at-p))
24   (write-string *implementation* stream))