Skip to content
Snippets Groups Projects
Commit 6b9d2523 authored by wlott's avatar wlott
Browse files

Don't special case IN-PACKAGE, because it's now a macro. Instead, special

case OLD-IN-PACKAGE and %IN-PACKAGE.  The IN-PACKAGE macro looks at its
arguments and picks the correct one to expand into.
parent da261119
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.58 1992/04/21 04:13:53 wlott Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.59 1992/05/15 17:39:00 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -987,10 +987,10 @@
(if (atom form)
(convert-and-maybe-compile form path)
(case (car form)
((make-package in-package shadow shadowing-import export
((make-package old-in-package shadow shadowing-import export
unexport use-package unuse-package import)
(process-cold-load-form form path t))
((error cerror break signal)
((error cerror break signal %in-package)
(process-cold-load-form form path nil))
((eval-when)
(unless (>= (length form) 2)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment