相关疑难解决方法(0)

我在CL写了一个地牢爬虫游戏,我遇到了案例表格的问题.

两件事情:

• Common Lisp抱怨道 Duplicate keyform QUOTE in CASE statement
• (make-instance 'cl-rogue:tile tile-type 'wall) 应打印为"#",但无论我使用哪种图块类型,对象都会打印为"".

代码:

(in-package :cl-user)

(defpackage :cl-rogue
  (:use :common-lisp)
  (:export
    :*rows*
    :*cols*
    :*levels*
    :tile
    :tile-type
    :tile-contents
    :tile-hidden
    :tile-locked
    :tile-closed
    :main))

(in-package :cl-rogue)

(defparameter *cols* 80)
(defparameter *rows* 24)
(defparameter *levels* 26)

班级:

(defclass tile ()
  ((tile-type
    :initarg :tile-type
    :accessor tile-type
    :initform 'floor
    :documentation "Type of tile")
    (tile-contents
      :initarg :tile-contents
      :accessor tile-contents
      :initform '()
      :documentation "Any items the tile holds")
    (tile-hidden
      :initarg :tile-hidden
      :accessor tile-hidden
      :initform nil
      :documentation …