(blog ‘lucindo)

Brincando um pouco com Postmodern:

(eval-when (:compile-toplevel :load-toplevel :execute)
(require :postmodern))

(defpackage :pg-test
(:use :cl :postmodern))

(in-package :pg-test)

(defparameter *db-name* “lucindo”)
(defparameter *db-user* “lucindo”)
(defparameter *db-pass* “”)
(defparameter *db-host* “localhost”)

;; global connection
(eval-when (:execute)
(connect-toplevel *db-name* *db-user* *db-pass* *db-host*))

;; defines a table (and a CLOS class)
(deftable user ()
((id :type integer
:initarg :id
[…]