[cmucl-cvs] CMUCL commit: src/code (misc.lisp)

Raymond Toy rtoy at common-lisp.net
Mon Nov 8 13:45:27 UTC 2010


    Date: Monday, November 8, 2010 @ 08:45:27
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: misc.lisp

Oops.  Don't need to translate "" (in lisp-implementation-version).


-----------+
 misc.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/misc.lisp
diff -u src/code/misc.lisp:1.42 src/code/misc.lisp:1.43
--- src/code/misc.lisp:1.42	Wed Oct 13 14:00:44 2010
+++ src/code/misc.lisp	Mon Nov  8 08:45:27 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.42 2010-10-13 18:00:44 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/misc.lisp,v 1.43 2010-11-08 13:45:27 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -182,7 +182,7 @@
 (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 _""))
+	  #+unicode _" Unicode" #-unicode ""))
 
 (defun machine-instance ()
   "Returns a string giving the name of the local machine."




More information about the cmucl-cvs mailing list