専用のパッケージを作ってみてはいかがですか。例えば、`my-stack` というパッケージを作ってみます。

    (defpackage my-stack
      (:use :common-lisp)
      (:shadow :common-lisp push pop)
      (:export stack state push pop))
    
    (in-package :my-stack)
    
    (defclass stack () ((state :accessor state :initform '())))
    
    (defmethod push ((stack-obj stack) elem)
      (let ((new-stack
             (if (state stack-obj) (cons elem (state stack-obj)) (list elem))))
        (setf (state stack-obj) new-stack)))
    
    (defmethod pop ((stack-obj stack))
      (let ((pop-stack (car (state stack-obj))))
        (progn (setf (state stack-obj) (cdr (state stack-obj)))
               pop-stack)))

これを、例えば `my-stack.cl` というファイルに保存して、

    $ sbcl --load stack.cl

ロードします。そして、`my-stack` パッケージに移ります

    * (in-package :my-stack)
    #<PACKAGE "MY-STACK">

    * (setq st (make-instance 'stack))

    * (push st "foo")
    ("foo")
    * (push st "bar")
    ("bar" "foo")
    * (push st "baz")
    ("baz" "bar" "foo")
    * (state st)
    ("baz" "bar" "foo")

    * (pop st)
    "baz"
    * (state st)
    ("bar" "foo")

もしも、デフォルトパッケージにある `push` などを使いたい場合は、パッケージ名を指定して使います。

    * (setq lst '())
    * (common-lisp-user::push "foo" lst)
    ("foo")