Changeset 7281


Ignore:
Timestamp:
Sep 24, 2007, 2:42:55 AM (12 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-application.lisp

    r6970 r7281  
    183183  "Return a string which (arbitrarily) represents the application version.
    184184Default version returns OpenMCL version info."
    185   (format nil "~&~d.~d~@[.~d~]~@[-~a~]~&"
    186           *openmcl-major-version*
    187           *openmcl-minor-version*
    188           (unless (zerop *openmcl-revision*)
    189             *openmcl-revision*)
    190           *openmcl-suffix*))
     185  (lisp-implementation-version))
    191186
    192187(defmethod application-ui-operation ((a application) operation &rest args)
Note: See TracChangeset for help on using the changeset viewer.