local-time 사용하기

시간/날짜 처리 관련한 package로 local-time이 있다.
설치(ASDF Brief 참조):

CL-USER> (require 'asdf)
NIL
CL-USER> (require 'asdf-install)
......
CL-USER> (asdf-install:install 'local-time)
......

예제:

;;; 현재 시간 얻기
CL-USER> (local-time:now)
@2007-05-25T16:02:30.000

좀더 실용적인 예제 (기념일 계산에 쓰면 될듯):

;;; adds days
;;; eg, (add-days "2007-01-01" 123)
(defun add-days (from days)
  (local-time:make-local-time :day (+ (local-time:local-time-day (local-time:parse-timestring from)) days)))

;;; 오늘 만난 커플의 100일 되는 날은?
CL-USER> (add-days "2007-05-25" 100)
@2007-09-02T00:00:00.000
;;; 9월2일이군요.

happy hackin'

2013-12-30: 그간 local-time package에 변경이 있었던듯... 여튼 오늘 해보니 상기 예제는 다음과 같이 하면 해결된다.

;;; 오늘 만난 커플의 100일 되는 날은?

* (local-time:timestamp+ (local-time:parse-timestring "2013-12-30") 100 :day)

@2014-04-09T09:00:00.000000+09:00

;;; 내년 4월9일이군요.