From ee98390489513e6eb9ee4f08a93c93bb1b67b0fa Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Wed, 17 May 2006 19:57:55 +0100 Subject: [PATCH] frontend: Use a temporary package rather than one with a funny name. Organization: Straylight/Edgeware From: Mark Wooding --- frontend.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/frontend.lisp b/frontend.lisp index 161e16d..5aaadf5 100644 --- a/frontend.lisp +++ b/frontend.lisp @@ -41,8 +41,7 @@ (define-program (defun main () (with-unix-error-reporting () - (let ((seq 54) - (files nil)) + (let ((files nil)) (unless (option-parse-try (do-options () (nil (rest) @@ -51,10 +50,10 @@ (defun main () (setf files rest)))) (die-usage)) (dolist (f files) - (let ((*package* (make-package (format nil "zone.scratch-~A" - (incf seq)) + (let ((*package* (make-package "ZONE.SCRATCH" :use '(#:common-lisp #:net #:zone)))) - (load f :verbose nil :print nil :if-does-not-exist :error))) + (load f :verbose nil :print nil :if-does-not-exist :error) + (delete-package *package*))) (zone-save opt-zones)))) ;;;----- That's all, folks -------------------------------------------------- -- [mdw]