Changeset 14905 for trunk/source/objc-bridge/fake-cfbundle-path.lisp

Timestamp:

Jul 25, 2011, 5:41:18 PM (10 years ago)

Author:

gb

Message:

um, remember to check this in.

File:

• trunk/source/objc-bridge/fake-cfbundle-path.lisp (modified) (1 diff)

trunk/source/objc-bridge/fake-cfbundle-path.lisp

@@ -30 +30 @@
                     ("OPENMCL-NAME" . ,bundle-name)
                     ("OPENMCL-IDENTIFIER" . ,bundle-id)
-                    ("OPENMCL-VERSION" . ,bundle-version)))
+                    ("OPENMCL-VERSION" . ,bundle-version)
+                    ("OPENMCL-MAJOR-VERSION" . ,(format nil "~d" *openmcl-major-version*))
+                    ("OPENMCL-MINOR-VERSION" . ,(format nil "~d" *openmcl-minor-version*))
+                    ("OPENMCL-REVISION" . ,(if *openmcl-revision* (format nil "-~a" *openmcl-revision*) ""))
+                    ("CURRENT-YEAR" . ,(format nil "~a" (nth-value 5 (decode-universal-time (get-universal-time)))))))
          (executable-dir (merge-pathnames
                            (make-pathname :directory (format nil "Contents/~a/"