16 lines
683 B
Diff
16 lines
683 B
Diff
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."
|