anchor.diff:  ;;;; *************************************************************************
   
   (in-package #:clsql-sys)
  +
  +(defvar +whitespace-chars+
  +  '(#\space #\tab #\newline #\return
  +    ;; Tested: sbcl, allegrocl, and clisp use #\no-break_space
  +    ;; lispworks uses #\no-break-space
  +    #+lispworks #\no-break-space
  +    #-lispworks #\no-break_space
  +    )
  +  "List of whitespace characters for this lisp implementation.")
   
   (defun number-to-sql-string (num)
     (etypecase num
  
positive.code:     (string-upcase str)))
  
  (defun ensure-keyword (name)
    "Returns keyword for a name"
    (etypecase name
      (keyword name)
      (string (nth-value 0 (intern (symbol-name-default-case name) :keyword)))
  
negative.code: ;;;; Programmer:   Kevin M. Rosenberg
  ;;;; Date Started: Mar 2002
  ;;;;
  ;;;; This file, part of CLSQL, is Copyright (c) 2002-2010 by Kevin M. Rosenberg
  ;;;;
  ;;;; CLSQL users are granted the rights to distribute and use this software
  ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  