anchor.diff:  ;;;; Programmer:   Kevin M. Rosenberg
   ;;;; Date Started: Mar 2002
   ;;;;
  -;;;; $Id$
  -;;;;
  -;;;; This file, part of CLSQL, is Copyright (c) 2002-2004 by Kevin M. Rosenberg
  +;;;; 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
  
positive.code: ;;;; *************************************************************************
  
  (in-package #:clsql-sys)
  
  (defun number-to-sql-string (num)
    (etypecase num
  
negative.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)))
  