1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
5 ;;;; Name: postgresql-socket-sql.sql
6 ;;;; Purpose: High-level PostgreSQL interface using socket
7 ;;;; Authors: Russ Tyndall (at Acceleration.net) based on original code by
8 ;;;; Kevin M. Rosenberg based on original code by Pierre R. Mai
14 ;;;; This file, part of CLSQL, is Copyright (c) 2002-2007 by Kevin M. Rosenberg
15 ;;;; and Copyright (c) 1999-2001 by Pierre R. Mai
17 ;;;; CLSQL users are granted the rights to distribute and use this software
18 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
19 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
21 ;;;; *************************************************************************
23 (in-package #:clsql-sys)
25 (defclass command-object ()
26 ((expression :accessor expression :initarg :expression :initform nil)
27 (parameters :accessor parameters :initarg :parameters :initform nil)
28 (prepared-name :accessor prepared-name :initarg :prepared-name :initform ""
29 :documentation "If we want this to be a prepared statement, give it a name
30 to identify it to this session")
31 (has-been-prepared :accessor has-been-prepared :initarg :has-been-prepared :initform nil
32 :documentation "Have we already prepared this command object")
35 (export '(expression parameters prepared-name has-been-prepared command-object))