エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
Common LispでSingletonなクラスを作る(CLOS) - Qiita
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Common LispでSingletonなクラスを作る(CLOS) - Qiita
Common LispでSingletonなクラスをCLOSで書くとどうなるのか? 考えてみた結果以下のような感じになった... Common LispでSingletonなクラスをCLOSで書くとどうなるのか? 考えてみた結果以下のような感じになった。 (defpackage foo (:use cl cl-user) (:export foo get-instance)) (in-package :foo) ;; fooクラスを定義する。 (defclass foo () ()) ;; +instance+にインスタンスを格納。(この時点ではコンストラクタは呼び出し可能) (defvar +instance+ (make-instance 'foo)) ;; 新しいインスタンスを作れなくするためにコンストラクタを呼び出せないようにする (defmethod initialize-instance :around ((this foo) &key) (error "can't create instance."))