Shammer's Philosophy

My private adversaria

2012-04-11から1日間の記事一覧

LISP で Queue を実装その2

LISP で Queue を実装その1 - Shammerismの失敗を回避するためにクラスを使用。 ? (defclass queue () ((internal-list :reader get-internal-list :writer set-internal-list))) #<STANDARD-CLASS QUEUE> ? (defmethod en-queue ((q queue) object) (let ((original-queue (if (sl</standard-class>…