dev-lisp/cmucl/files/20b-customize-lisp-implementation-version.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

diff -ur cmucl.orig/src/code/misc.lisp cmucl/src/code/misc.lisp
--- cmucl.orig/src/code/misc.lisp	2010-04-20 19:57:45.000000000 +0200
+++ cmucl/src/code/misc.lisp	2010-10-15 02:15:53.064623104 +0200
@@ -181,8 +181,10 @@
 
 (defun lisp-implementation-version ()
   "Returns a string describing the implementation version."
-  (format nil "~A (~X~A)" *lisp-implementation-version* c:byte-fasl-file-version
-	  #+unicode (intl:gettext " Unicode") #-unicode ""))
+  (format nil "~X~A~A"
+          c:byte-fasl-file-version
+          #+unicode "-unicode" #-unicode ""
+          *lisp-implementation-version*))
 
 (defun machine-instance ()
   "Returns a string giving the name of the local machine."