projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r10190: 06 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
sql
/
utils.lisp
diff --git
a/sql/utils.lisp
b/sql/utils.lisp
index a23a820ff0231b108c92c526da089ab1e4743c01..0e40b1de6a6312cf7cca7183c5164aee402f0716 100644
(file)
--- a/
sql/utils.lisp
+++ b/
sql/utils.lisp
@@
-56,21
+56,15
@@
(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))
- (setf (char escaped i)
- (cond ((equal (char unescaped i) #\-)
- #\_)
- ;; ...
- (t
- (char unescaped i)))))
- escaped))
+ (substitute #\_ #\- unescaped)))
(defmacro without-interrupts (&body body)
(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)