専用のパッケージを作ってみてはいかがですか。例えば、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 my-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")