with-compilation-unit in mk-defsystem

[Bob R. <ro...@rg...>]

   FWIW, here's another fix I've been meaning to send for ages.  It
saves me a lot of trouble tracking down spurious warnings about
inter-file forward references.

					-- Bob Rogers
					   ESS Technology, Inc.
					   http://rgrjr.dyndns.org/icancad/

P.S. I'm sending this to your cs.nyu.edu address because cons.org said
"User unknown" just now.

------------------------------------------------------------------------
*** defsystem.lisp.~2~	Mon Dec  3 13:10:16 2001
--- defsystem.lisp	Fri Dec 14 16:56:57 2001
***************
*** 3137,3143 ****
  			       (minimal-load *minimal-load*))
    (unwind-protect
        ;; Protect the undribble.
!       (progn
  	(when *reset-full-pathname-table* (clear-full-pathname-tables))
  	(when dribble (dribble dribble))
  	(when test (setq verbose t))
--- 3137,3146 ----
  			       (minimal-load *minimal-load*))
    (unwind-protect
        ;; Protect the undribble.
!       ;; [changed progn to with-compilation-unit, for lisps that can handle it.
!       ;; -- bo...@rg..., 12-Oct-00.]
!       (#+:cltl2 with-compilation-unit #+:cltl2 ()
!        #-:cltl2 progn
  	(when *reset-full-pathname-table* (clear-full-pathname-tables))
  	(when dribble (dribble dribble))
  	(when test (setq verbose t))