Changeset 7281

Timestamp:

Sep 24, 2007, 2:42:55 AM (13 years ago)

Author:

gb

Message:

APPLICATION-VERSION-STRING (which probably was used to support
"get info", back in the day) is just LISP-IMPLEMENTATION-VERSION.

File:

• trunk/ccl/level-1/l1-application.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-application.lisp

@@ -183 +183 @@
   "Return a string which (arbitrarily) represents the application version.
 Default version returns OpenMCL version info."
-  (format nil "~&~d.~d~@[.~d~]~@[-~a~]~&"
-          *openmcl-major-version*
-          *openmcl-minor-version*
-          (unless (zerop *openmcl-revision*)
-            *openmcl-revision*)
-          *openmcl-suffix*))
+  (lisp-implementation-version))
 
 (defmethod application-ui-operation ((a application) operation &rest args)