Martin Simmons writes:
Pascal> (defun implementation-id () Pascal> (format nil "~A-~A-~A" Pascal> (first-word (lisp-implementation-type)) Pascal> (first-word (lisp-implementation-version)) Pascal> (first-word (machine-type))));;implementation-id
I see that the #+cmu code does that already.
That's just one more proof of the evilness of #+ and #-.