anchor.diff:  ;; create a view, test for existence, drop it and test again
   (deftest :fddl/view/1
       (with-dataset *ds-fddl*
  -    (progn (clsql:create-view [v1]
  -			      :as [select [a] [b] [c]
  -					  :from [alpha]
  -					  :where [= [a] 1]])
  -	   (values
  -	    (clsql:view-exists-p [v1] :owner *test-database-user*)
  -	    (progn
  -	      (clsql:drop-view [v1] :if-does-not-exist :ignore)
  -	      (clsql:view-exists-p [v1] :owner *test-database-user*)))))
  +      (progn (clsql:create-view [v1]
  +				:as [select [a] [c] [d]
  +					    :from [alpha]
  +					    :where [= [a] 1]])
  +	     (values
  +	       (clsql:view-exists-p [v1])
  +	       (progn
  +		 (clsql:drop-view [v1] :if-does-not-exist :ignore)
  +		 (clsql:view-exists-p [v1])))))
     t nil)
   
     ;; create a view, list its attributes and drop it
   (deftest :fddl/view/2
         (with-dataset *ds-fddl*
   	(progn (clsql:create-view [v1]
  -			      :as [select [a] [b] [c]
  +			      :as [select [a] [c] [d]
   					  :from [alpha]
   					  :where [= [a] 1]])
   	     (unwind-protect
  
positive.code: 		      (clsql:list-attribute-types [alpha]
  						  :owner *test-database-user*))
  	      #'string<)))
    "a" "b" "c" "d" "f")
  
  ;; Attribute types are vendor specific so need to test a range
  (deftest :fddl/attributes/3
  
negative.code: 	(mapcar #'string-downcase
  		(clsql:list-attributes [alpha] :owner *test-database-user*))
  	#'string<)))
    "a" "c" "d" "f")
  
  (deftest :fddl/attributes/2
      (with-dataset *ds-fddl*
  