;; nice, but doesn't work with eldoc, so it's kinda useless
#+(or)
(eval-when (:compile-toplevel :load-toplevel :execute)
  (defmacro package-calls (package &body body)
    (setf package (find-package package))
    `(progn
       ,.(mapcar (lambda (form)
                   (let (car found)
                     (if (and (listp form)
                              (setf car (car form))
                              (symbolp car)
                              (setf found (find-symbol
                                           (symbol-name car)
                                           package)))
                         `(,found ,.(cdr form))
                         form)))
                 body)))

  (defmacro gl (&body body)
    `(package-calls #.(find-package '#:gl) ,@body)))