repos
/
portaCL
/ annotate_shade
summary
|
shortlog
|
log
|
tree
|
commit
|
commitdiff
|
headdiff
|
annotate
|
headblob
|
headfilediff
|
filehistory
normal
|
plain
|
shade
|
zebra
Initial checkin
Annotate for file /name-parts.lisp
2009-07-17 pix
1
(in-package #:portaCL)
05:24:52 '
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))