From d94bc3ddcb7b378609b68cd03a888cbab10e2a56 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Sat, 12 Feb 1994 00:41:16 +0000 Subject: [PATCH] Fixed the warning in defpackage about no longer using some packages to actually work. --- code/package.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/package.lisp b/code/package.lisp index f02866a8e..8ebfe1597 100644 --- a/code/package.lisp +++ b/code/package.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.35 1994/02/04 15:24:38 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.36 1994/02/12 00:41:16 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -738,7 +738,9 @@ (let ((laterize (set-difference old-use-list new-use-list))) (when laterize (unuse-package laterize package) - (warn "~A used to use the following packages:~% ~S" laterize))))) + (warn "~A used to use the following packages:~% ~S" + name + laterize))))) ;; Import and Intern. (dolist (sym-name interns) (intern sym-name package)) -- GitLab