projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10077: * multiple: Apply patch from Joerg Hoehle with multiple
[clsql.git]
/
sql
/
utils.lisp
diff --git
a/sql/utils.lisp
b/sql/utils.lisp
index a23a820ff0231b108c92c526da089ab1e4743c01..362d16c178529ae67659996c181bbe5f2e4aac73 100644
(file)
--- a/
sql/utils.lisp
+++ b/
sql/utils.lisp
@@
-56,7
+56,9
@@
(symbol (symbol-name identifier))
(string identifier)))
(escaped (make-string (length unescaped))))
(symbol (symbol-name identifier))
(string identifier)))
(escaped (make-string (length unescaped))))
- (dotimes (i (length unescaped))
+ (substitute #\_ #\- unescaped)))
+
+(dotimes (i (length unescaped))
(setf (char escaped i)
(cond ((equal (char unescaped i) #\-)
#\_)
(setf (char escaped i)
(cond ((equal (char unescaped i) #\-)
#\_)
@@
-66,11
+68,12
@@
escaped))
(defmacro without-interrupts (&body body)
escaped))
(defmacro without-interrupts (&body body)
- #+lispworks `(mp:without-preemption ,@body)
#+allegro `(mp:without-scheduling ,@body)
#+allegro `(mp:without-scheduling ,@body)
+ #+clisp `(progn ,@body)
#+cmu `(system:without-interrupts ,@body)
#+cmu `(system:without-interrupts ,@body)
- #+sbcl `(sb-sys::without-interrupts ,@body)
- #+openmcl `(ccl:without-interrupts ,@body))
+ #+lispworks `(mp:without-preemption ,@body)
+ #+openmcl `(ccl:without-interrupts ,@body)
+ #+sbcl `(sb-sys::without-interrupts ,@body))
(defun make-process-lock (name)
#+allegro (mp:make-process-lock :name name)
(defun make-process-lock (name)
#+allegro (mp:make-process-lock :name name)