Skip to content
Snippets Groups Projects
Commit 38914db1 authored by wlott's avatar wlott
Browse files

Eval %in-package directly instead of expecting the eval-when to work,

because it doesn't.
parent 064dc592
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.59 1992/05/15 17:39:00 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.60 1992/05/16 01:11:07 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -987,10 +987,11 @@ ...@@ -987,10 +987,11 @@
(if (atom form) (if (atom form)
(convert-and-maybe-compile form path) (convert-and-maybe-compile form path)
(case (car form) (case (car form)
((make-package old-in-package shadow shadowing-import export ((make-package shadow shadowing-import export
unexport use-package unuse-package import) unexport use-package unuse-package import
old-in-package %in-package)
(process-cold-load-form form path t)) (process-cold-load-form form path t))
((error cerror break signal %in-package) ((error cerror break signal)
(process-cold-load-form form path nil)) (process-cold-load-form form path nil))
((eval-when) ((eval-when)
(unless (>= (length form) 2) (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