diff --git a/code/package.lisp b/code/package.lisp index a79aaaaf67b5ff0e4ed33c45f5546959bce1cdb7..2cad0e0bd08fc13fab54990c63b629a302615955 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.14 1992/02/12 17:22:45 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/package.lisp,v 1.15 1992/02/24 01:28:57 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -891,7 +891,7 @@ (if where (values symbol where) (let ((symbol (make-symbol (subseq name 0 length)))) - (%primitive c::set-package symbol package) + (%set-symbol-package symbol package) (cond ((eq package *keyword-package*) (add-symbol (package-external-symbols package) symbol) (set symbol symbol)) @@ -993,7 +993,7 @@ (package-external-symbols package)) name) (if (eq (symbol-package symbol) package) - (%primitive c::set-package symbol nil)) + (%set-symbol-package symbol nil)) t) (t nil))))) @@ -1154,7 +1154,7 @@ ;; ;; If any of the symbols are uninterned, make them be owned by Package. (dolist (sym symbols) - (unless (symbol-package sym) (%primitive c::set-package sym package))) + (unless (symbol-package sym) (%set-symbol-package sym package))) (shadowing-import cset package))) ;;; Shadowing-Import -- Public @@ -1198,7 +1198,7 @@ (multiple-value-bind (s w) (find-symbol name package) (when (or (not w) (eq w :inherited)) (setq s (make-symbol name)) - (%primitive c::set-package s package) + (%set-symbol-package s package) (add-symbol internal s)) (pushnew s (package-%shadowing-symbols package)))))) t) @@ -1391,12 +1391,12 @@ ;; Put internal symbols in the internal hashtable and set package. (dolist (symbol (second spec)) (add-symbol internal symbol) - (%primitive c::set-package symbol pkg)) + (%set-symbol-package symbol pkg)) ;; ;; External symbols same, only go in external table. (dolist (symbol (third spec)) (add-symbol external symbol) - (%primitive c::set-package symbol pkg)) + (%set-symbol-package symbol pkg)) ;; ;; Don't set package for Imported symbols. (dolist (symbol (fourth spec))