db-postgresql-socket3/command-object.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   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
   9 ;;;; Created:  Sep 2009
  10 ;;;;
  11 ;;;;
  12 ;;;; $Id$
  13 ;;;;
  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
  16 ;;;;
  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.
  20 ;;;;
  21 ;;;; *************************************************************************
  22
  23 (in-package #:clsql-sys)
  24
  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")
  33    ))
  34
  35 (export '(expression parameters prepared-name has-been-prepared command-object))
  36
  37