Skip to content

Commit

Permalink
Merge pull request #323 from sabracrolleton/master
Browse files Browse the repository at this point in the history
Updated docs for version number
  • Loading branch information
sabracrolleton authored Oct 18, 2023
2 parents 9fc1e4d + 5eccc43 commit f1c819b
Show file tree
Hide file tree
Showing 5 changed files with 38 additions and 34 deletions.
2 changes: 2 additions & 0 deletions CHANGELOG.md
Original file line number Diff line number Diff line change
@@ -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
Expand Down
2 changes: 1 addition & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -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:

Expand Down
22 changes: 11 additions & 11 deletions doc/index.html

Some generated files are not rendered by default. Learn more about how customized files appear on GitHub.

2 changes: 1 addition & 1 deletion doc/index.org
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
#+HTML_HEAD: <style>pre.src{background:#343131;color:white;} </style>
#+OPTIONS: ^:nil

Version 1.33.7
Version 1.33.9

Postmodern is a Common Lisp library for interacting with [[https://postgresql.org][PostgreSQL databases]].
Features are:
Expand Down
44 changes: 23 additions & 21 deletions postmodern/table.lisp
Original file line number Diff line number Diff line change
@@ -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)
Expand Down Expand Up @@ -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
Expand All @@ -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
Expand Down

0 comments on commit f1c819b

Please sign in to comment.