;;; -*- Mode:LISP; Readtable:ZL; Package:li; Base:8.; Cold-load: T -*-


(defun progv-test ()
  (MULTIPLE-VALUE-BIND (VARS VALS)
      (ATTRIBUTE-BINDINGS-FROM-LIST
	*fasl-file-plist*
	FDEFINE-FILE-PATHNAME)
    (PROGV VARS VALS
	   (LET ((*PACKAGE* *PACKAGE*))
	     (SETQ LAST-FASL-FILE-PACKAGE *PACKAGE*)
	     (FASL-TOP-LEVEL)))))