Skip to content
Snippets Groups Projects
Commit 46e78e26 authored by wlott's avatar wlott
Browse files

Changed the USER package to the COMMON-LISP-USER package.

.,
parent e2649952
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/code/package.lisp,v 1.13 1991/12/14 08:58:33 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.14 1992/02/12 17:22:45 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -118,7 +118,8 @@ ...@@ -118,7 +118,8 @@
(t (t
(cerror "Make this package." (cerror "Make this package."
"~S is not the name of a package." thing) "~S is not the name of a package." thing)
(make-package thing)))))) (make-package thing))))))
;;;; Package-Hashtables ;;;; Package-Hashtables
;;; ;;;
...@@ -1409,9 +1410,7 @@ ...@@ -1409,9 +1410,7 @@
(makunbound '*initial-symbols*) ; So it gets GC'ed. (makunbound '*initial-symbols*) ; So it gets GC'ed.
;; Make some other packages that should be around in the cold load: ;; Make some other packages that should be around in the cold load:
(in-package "SYSTEM") (make-package "COMMON-LISP-USER" :nicknames '("CL-USER" "USER"))
(in-package "USER")
(in-package "DEBUG")
;; Now do the *deferred-use-packages*: ;; Now do the *deferred-use-packages*:
(dolist (args *deferred-use-packages*) (dolist (args *deferred-use-packages*)
......
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