(in-package :cl-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (shadow 'array))

(format t "~A::~A~%"
        (package-name (symbol-package 'array))
        'array)

;; load or compile in slime
;; => COMMON-LISP-USER::ARRAY

;; load fasl in fresh image
;; => COMMON-LISP::ARRAY