1 (defpackage :simple-date-system
2 (:use :common-lisp :asdf))
3 (in-package :simple-date-system)
5 (defsystem :simple-date
8 :components ((:file "simple-date"))))
9 :in-order-to ((test-op (test-op :simple-date-tests))))
11 (defsystem :simple-date-postgres-glue
12 :depends-on (:simple-date :cl-postgres)
14 ((:module :simple-date
16 ((:file "cl-postgres-glue")))))
18 (defsystem :simple-date-tests
19 :depends-on (:fiveam :simple-date)
21 ((:module :simple-date
22 :components ((:file "tests"))))
23 :perform (test-op (o c)
24 (uiop:symbol-call :fiveam '#:run! :simple-date)))
26 (defmethod perform :after ((op asdf:load-op) (system (eql (find-system :simple-date))))
27 (when (and (find-package :cl-postgres)
28 (not (find-symbol (symbol-name '#:+postgres-day-offset+) :simple-date)))
29 (asdf:oos 'asdf:load-op :simple-date-postgres-glue)))