X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=usql%2Fpcl-patch.lisp;fp=usql%2Fpcl-patch.lisp;h=0000000000000000000000000000000000000000;hb=3da1a0ba2b4ded66dca0bec9c4e23457eb7ff079;hp=fd246f868522c788aabbd89b879ee067b0ceb9ab;hpb=ce0e343835a040406678dff74a62d1b0cb56f317;p=clsql.git

diff --git a/usql/pcl-patch.lisp b/usql/pcl-patch.lisp
deleted file mode 100644
index fd246f8..0000000
--- a/usql/pcl-patch.lisp
+++ /dev/null
@@ -1,12 +0,0 @@
-
-;; 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)))