r8821: integrate usql support

[clsql.git] / usql / pcl-patch.lisp

diff --git a/usql/pcl-patch.lisp b/usql/pcl-patch.lisp
new file mode 100644 (file)
index 0000000..fd246f8
--- /dev/null
+++ b/usql/pcl-patch.lisp
@@ -0,0 +1,12 @@
+
+;; Note that this will no longer required for cmucl as of version 19a. 
+
+(in-package #+cmu :pcl #+sbcl :sb-pcl)
+
+(defmacro pv-binding1 ((pv calls pv-table-symbol pv-parameters slot-vars) 
+                      &body body)
+  `(pv-env (,pv ,calls ,pv-table-symbol ,pv-parameters)
+     (let (,@(mapcar #'(lambda (slot-var p) `(,slot-var (get-slots-or-nil ,p)))
+              slot-vars pv-parameters))
+       ,@(mapcar #'(lambda (slot-var) `(declare (ignorable ,slot-var))) slot-vars)
+       ,@body)))