Changeset 16175


Ignore:
Timestamp:
Aug 28, 2014, 9:50:00 PM (5 years ago)
Author:
plkrueger
Message:

Delete extraneous files and small fix to date.lisp

Location:
trunk/cocoa-ide-contrib/krueger/InterfaceProjects
Files:
9 deleted
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cocoa-ide-contrib/krueger/InterfaceProjects/Utilities/date.lisp

    r16077 r16175  
    4242  ;; yy can be 2 or 4 digit year
    4343  ;; any dd greater than the end of the month is reduced to the last day of the month
     44  ;; To avoid complications associated with daylight savings time, we use 12 noon as
     45  ;; the time if not specified.
    4446  (let ((max-dd (if (and (eql mm 2)
    4547                         (not (logtest yy 3))
     
    9294
    9395(defun inc-months (dt num-mm)
    94   ;; this may not do what you expect if the day of the month within dt does not exist in the new month
    95   ;; e.g. 1 month prior to 7/31 is 7/01 hmmm...
    9696  (multiple-value-bind (sec min hr dd mm yr day dst zone)
    9797                       (decode-universal-time dt)
Note: See TracChangeset for help on using the changeset viewer.