Skip to main content
本文に 3 文字追加
ソース リンク
user4986
user4986

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

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

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

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