usql/pcl-patch.lisp

   1
   2 ;; Note that this will no longer required for cmucl as of version 19a.
   3
   4 (in-package #+cmu :pcl #+sbcl :sb-pcl)
   5
   6 (defmacro pv-binding1 ((pv calls pv-table-symbol pv-parameters slot-vars)
   7                        &body body)
   8   `(pv-env (,pv ,calls ,pv-table-symbol ,pv-parameters)
   9      (let (,@(mapcar #'(lambda (slot-var p) `(,slot-var (get-slots-or-nil ,p)))
  10                slot-vars pv-parameters))
  11        ,@(mapcar #'(lambda (slot-var) `(declare (ignorable ,slot-var))) slot-vars)
  12        ,@body)))