* uffi/make.sh, db-mysql/make.sh: Remove files
* uffi/Makefile, db-mysql/Makefile: Add support for cygwin compilation.
Refactor to remove need to make.sh shell scripts.
- * clsql.asd: Add support for loop extensions for clisp.
+ * clsql.asd: Add support for loop extensions for clisp. Support clisp via cffi.
* sql/loop-extension.lisp: Define loop-record-iteration-path in CLSQL-SYS
package rather than CL-USER. Add support for ansi-loop on clisp.
* sql/ansi-loop.lisp: New file to support iteration on clisp.
(defpackage #:clsql-system (:use #:asdf #:cl))
(in-package #:clsql-system)
+#+clisp
+(progn
+ (asdf:operate 'asdf:load-op 'cffi)
+ (asdf:operate 'asdf:load-op 'cffi-uffi-compat)
+ (asdf:defsystem uffi :depends-on (cffi-uffi-compat)))
+
;; need to load uffi for below perform :after method
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (find-package 'uffi)
(defmethod database-output-sql ((tee (eql t)) database)
(if database
(let ((val (database-output-sql-as-type 'boolean t database (database-type database))))
- (if val
- (typecase val
- (string val)
- (t (format nil "~A" val)))
- "'Y'"))
+ (when val
+ (typecase val
+ (string (format nil "'~A'" val))
+ (integer (format nil "~A" val)))))
"'Y'"))
#+nil(defmethod database-output-sql ((tee (eql t)) database)