dev-lisp/cmucl/files/21a-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	2011-10-25 05:31:39.000000000 +0200
+++ cmucl/src/code/misc.lisp	2012-01-31 21:46:49.441273068 +0100
@@ -187,8 +187,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 _" 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."