🚀 go-pugleaf

The following is a useful hack for working around some weak spots
in the byte compiler.  I thought it might be useful to others
so here it is.

For some files on the net it is necessary to load them before 
compiling or other such stuff.  Also, Macros which expand
into top level PROGN's don't compile in byte compiled files.

If you include the following in an emacs lisp file before compiling
it, these problems go away. 

(require;; This stuff is evaluated at load and comile time!!
 (let ((provide (make-symbol "Provide")))
   (provide provide)
   (defvar *read-from-list* nil)
   (defvar *read-recursive* nil)
   (defvar *old-eobp* (symbol-function 'eobp))
   (defvar *old-read* (symbol-function 'read))
   (defun eobp () (or *read-from-list* (funcall *old-eobp*)))
   ;; Redefine read!!
   ;; See definition byte-compile-file in "bytecomp.el" for ramifications
   ;; of this stuff.
   ;; Macroexpands read forms and treats toplevel progn forms as if they
   ;; were read forms.
   ;; When called with an argument other then the compiler input buffer,
   ;; this will revert to the old definition of read!!
   ;; Kludge... Kludge... Kludge...
   (defun read (&optional stream)
     (if (and stream (eq stream (get-buffer " *Compiler Input*")))
	 (let ((r (if *read-from-list* (pop *read-from-list*) (funcall *old-read* stream))))
	   (while (eq 'progn (car (setf r (macroexpand r byte-compile-macro-environment))))
	     (setf *read-from-list* (append (cddr r) *read-from-list*) r (cadr r)))
	   (if (and (consp r) (eq (car r) 'defmacro)) (eval r))
	   r)
       (progn
	 (setq *read-from-list* nil)
	 (fset 'read *old-read*)
	 (fset 'eobp *old-eobp*)
	 (funcall *old-read* stream))))
   provide))