projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Automated commit for upstream build of version 6.1.1
[clsql.git]
/
tests
/
utils.lisp
diff --git
a/tests/utils.lisp
b/tests/utils.lisp
index 95c97172c941b782fe5f4f47381deed1fcfb8e0b..396e3030f629e99ae7e0f076b8756d7c1fc2ae93 100644
(file)
--- a/
tests/utils.lisp
+++ b/
tests/utils.lisp
@@
-16,6
+16,12
@@
(in-package #:clsql-tests)
+(defun %get-int (v)
+ (etypecase v
+ (string (parse-integer v :junk-allowed t))
+ (integer v)
+ (number (truncate v))))
+
(defvar *config-pathname*
(make-pathname :defaults (user-homedir-pathname)
:name ".clsql-test"