hacks.lisp

   1 ;; nice, but doesn't work with eldoc, so it's kinda useless
   2 #+(or)
   3 (eval-when (:compile-toplevel :load-toplevel :execute)
   4   (defmacro package-calls (package &body body)
   5     (setf package (find-package package))
   6     `(progn
   7        ,.(mapcar (lambda (form)
   8                    (let (car found)
   9                      (if (and (listp form)
  10                               (setf car (car form))
  11                               (symbolp car)
  12                               (setf found (find-symbol
  13                                            (symbol-name car)
  14                                            package)))
  15                          `(,found ,.(cdr form))
  16                          form)))
  17                  body)))
  18
  19   (defmacro gl (&body body)
  20     `(package-calls #.(find-package '#:gl) ,@body)))