connect to db

connect.lisp

;; Turn off caching of select queries
(setf clsql:*default-caching* nil)

;; Connection parameters
(defvar *database-type* :odbc)
(defvar *database-name* "RetroGames")
(defvar *database-user* "sa")
(defvar *database-server* "localhost")
(defvar *database-password* "password")

;; Connect to database
(case *database-type*
  ((:mysql :postgresql :postgresql-socket)
   (clsql:connect `(,*database-server*
                    ,*database-name*
                    ,*database-user*
                    ,*database-password*)
                  :database-type *database-type*))
  ((:odbc :aodbc :oracle)
   (clsql:connect `(,*database-name*
                    ,*database-user*
                    ,*database-password*)
                  :database-type *database-type*))
  (:sqlite
   (clsql:connect `(,*database-name*)
                  :database-type *database-type*)))

;; Drop & recreate tables
(ignore-errors
  (clsql:drop-view-from-class 'game))
(clsql:create-view-from-class 'game)