;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: sql-classes.lisp,v 1.65 2003/05/04 01:37:18 kevin Exp $
+;;;; $Id: sql-classes.lisp,v 1.66 2003/05/04 01:39:04 kevin Exp $
;;;;
;;;; This file, part of UMLisp, is
;;;; Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
`((typecase ,where-value
(number
(write-to-string ,where-value))
- (nil
+ (null
" is null")
(t
(format nil ,(if like "'%~A%'" "'~A'") ,where-value)))))