- (time-1 (clsql-base:parse-timestring "2002-01-01 10:00:00"))
- (time-2 (clsql-base:parse-timestring "2002-01-01 11:00:00"))
- (time-3 (clsql-base:parse-timestring "2002-01-01 12:00:00"))
- (time-4 (clsql-base:parse-timestring "2002-01-01 13:00:00"))
- (time-5 (clsql-base:parse-timestring "2002-01-01 14:00:00"))
- (time-6 (clsql-base:parse-timestring "2002-01-01 15:00:00")))
- (setf interval-list (clsql-base:interval-push interval-list (clsql-base:make-interval :start time-1 :end time-6 :type :open)))
- (setf interval-list (clsql-base:interval-push interval-list (clsql-base:make-interval :start time-2 :end time-3 :type :closed)))
- (setf interval-list (clsql-base:interval-push interval-list (clsql-base:make-interval :start time-4 :end time-5 :type :closed)))
- (setf interval-list (clsql-base:interval-edit interval-list time-1 time-1 time-4))
+ (time-1 (clsql:parse-timestring "2002-01-01 10:00:00"))
+ (time-2 (clsql:parse-timestring "2002-01-01 11:00:00"))
+ (time-3 (clsql:parse-timestring "2002-01-01 12:00:00"))
+ (time-4 (clsql:parse-timestring "2002-01-01 13:00:00"))
+ (time-5 (clsql:parse-timestring "2002-01-01 14:00:00"))
+ (time-6 (clsql:parse-timestring "2002-01-01 15:00:00")))
+ (setf interval-list (clsql:interval-push interval-list (clsql:make-interval :start time-1 :end time-6 :type :open)))
+ (setf interval-list (clsql:interval-push interval-list (clsql:make-interval :start time-2 :end time-3 :type :closed)))
+ (setf interval-list (clsql:interval-push interval-list (clsql:make-interval :start time-4 :end time-5 :type :closed)))
+ (setf interval-list (clsql:interval-edit interval-list time-1 time-1 time-4))