From 42cc06acd0e4be735d9ed07962e1e2d8dd36209f Mon Sep 17 00:00:00 2001 From: Sabra Crolleton Date: Mon, 18 Sep 2023 19:44:24 -0400 Subject: [PATCH 1/2] Minor rearrangement in postmodern/table.lisp Just reducing some compiler complaints by rearranging the order of parameter *direct-column-slot*, class effective-column-slot and class direct-column-slot. No change in actual code was made. --- postmodern/table.lisp | 44 ++++++++++++++++++++++--------------------- 1 file changed, 23 insertions(+), 21 deletions(-) diff --git a/postmodern/table.lisp b/postmodern/table.lisp index 67af79d..9155594 100644 --- a/postmodern/table.lisp +++ b/postmodern/table.lisp @@ -1,6 +1,29 @@ ;;;; -*- Mode: LISP; Syntax: Ansi-Common-Lisp; Base: 10; Package: POSTMODERN; -*- (in-package :postmodern) +(defparameter *direct-column-slot* nil + "This is used to communicate the fact that a slot is a column to + effective-slot-definition-class.") + +(defclass effective-column-slot (standard-effective-slot-definition) + ((direct-slot :initform *direct-column-slot* :reader slot-column))) + +(defclass direct-column-slot (standard-direct-slot-definition) + ((col-type :initarg :col-type :reader column-type) + (col-default :initarg :col-default :reader column-default) + (col-identity :initarg :col-identity :reader column-identity) + (col-unique :initarg :col-unique :reader column-unique) + (col-collate :initarg :col-collate :reader column-collate) + (col-primary-key :initarg :col-primary-key :reader column-primary-key) + (col-interval :initarg :col-interval :reader column-interval) + (col-check :initarg :col-check :reader column-check) + (col-references :initarg :col-references :reader column-references) + (col-export :initarg :col-export :initform nil :reader column-export) + (col-import :initarg :col-import :initform nil :reader column-import) + (ghost :initform nil :initarg :ghost :reader ghost) + (sql-name :reader slot-sql-name)) + (:documentation "Type of slots that refer to database columns.")) + (defclass dao-class (standard-class) ((direct-keys :initarg :keys :initform nil :reader direct-keys) (effective-keys :reader dao-keys) @@ -216,21 +239,6 @@ such a class)." (list (find-primary-key-column class)))) (build-dao-methods class)) -(defclass direct-column-slot (standard-direct-slot-definition) - ((col-type :initarg :col-type :reader column-type) - (col-default :initarg :col-default :reader column-default) - (col-identity :initarg :col-identity :reader column-identity) - (col-unique :initarg :col-unique :reader column-unique) - (col-collate :initarg :col-collate :reader column-collate) - (col-primary-key :initarg :col-primary-key :reader column-primary-key) - (col-interval :initarg :col-interval :reader column-interval) - (col-check :initarg :col-check :reader column-check) - (col-references :initarg :col-references :reader column-references) - (col-export :initarg :col-export :initform nil :reader column-export) - (col-import :initarg :col-import :initform nil :reader column-import) - (ghost :initform nil :initarg :ghost :reader ghost) - (sql-name :reader slot-sql-name)) - (:documentation "Type of slots that refer to database columns.")) (defmethod shared-initialize :after ((slot direct-column-slot) slot-names &key col-type col-default @@ -253,12 +261,6 @@ such a class)." (find-class 'direct-column-slot) (call-next-method))) -(defparameter *direct-column-slot* nil - "This is used to communicate the fact that a slot is a column to - effective-slot-definition-class.") - -(defclass effective-column-slot (standard-effective-slot-definition) - ((direct-slot :initform *direct-column-slot* :reader slot-column))) (defmethod compute-effective-slot-definition ((class dao-class) name From bb965a05b1cb08ce9c5ab9622d77bf72438865f9 Mon Sep 17 00:00:00 2001 From: Sabra Crolleton Date: Wed, 18 Oct 2023 08:20:41 -0400 Subject: [PATCH 2/2] Updated docs --- CHANGELOG.md | 2 ++ README.md | 2 +- doc/index.html | 22 +++++++++++----------- doc/index.org | 2 +- 4 files changed, 15 insertions(+), 13 deletions(-) diff --git a/CHANGELOG.md b/CHANGELOG.md index a1ff974..ba0ec46 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -1,3 +1,5 @@ +# Changelog 1.33.9 +Fixed bug in thread handling when using binary parameters # Changelog 1.33.8 Dollar Quoted tags are allowed in files. Prior to Postmodern version 1.33.8 only diff --git a/README.md b/README.md index d0a06ec..7ac606c 100644 --- a/README.md +++ b/README.md @@ -4,7 +4,7 @@ A Common Lisp PostgreSQL programming interface --- -Version 1.33.8 +Version 1.33.9 Postmodern is a Common Lisp library for interacting with [PostgreSQL](http://www.postgresql.org) databases. It is under active development. Features are: diff --git a/doc/index.html b/doc/index.html index bed3f31..1445e3b 100644 --- a/doc/index.html +++ b/doc/index.html @@ -1,7 +1,7 @@ - + Postmodern @@ -228,8 +228,8 @@

Table of Contents