- (let ((result (funcall %lisp-cli-fn ,@ll)))
- (case result
- (#.SQL_SUCCESS
- SQL_SUCCESS)
- (#.SQL_SUCCESS_WITH_INFO
- (format *standard-output* "sucess with info")
- SQL_SUCCESS)
- (#.SQL_ERROR
- (error 'sql-database-error
- :error-id result
- :message
- (format nil "DB2 error" result)))
- (t
- (error 'sql-database-error
- :message
- (format nil "DB2 unknown error, code=~A" result)))))))))
-
+ (let ((result (funcall %lisp-cli-fn ,@ll)))
+ (case result
+ (#.SQL_SUCCESS
+ SQL_SUCCESS)
+ (#.SQL_SUCCESS_WITH_INFO
+ (format *standard-output* "sucess with info")
+ SQL_SUCCESS)
+ (#.SQL_ERROR
+ (error 'sql-database-error
+ :error-id result
+ :message
+ (format nil "DB2 error" result)))
+ (t
+ (error 'sql-database-error
+ :message
+ (format nil "DB2 unknown error, code=~A" result)))))))))
+