Question

我是Lisp的初学者。我有两个functions，一个defparameter和一个defstruct。每次将书传递给inputBook时，我都希望书的标题（字符串）成为defparameter的名称。这可能吗？我试图硬编码下面的字符串，它说“MobyDick”，但我收到一个错误。这甚至可能吗？

我尝试简单地使用传递给title的参数，但是如果您尝试将另一本书传递到该函数中，则它们都分配给title但最后一个已通过将打印，而不是第一个，而不是两个。那么我怎么能这样做，以便我有没有列表或哈希表的那么多“书”？

如果后者不可能，我怎么能改变代码，以便defparameter创建（唯一）任意数量的书籍，并通过getAuthor函数访问？那有意义吗？（请参阅下面的功能。）

(defstruct book()
    (title) ;;title of the book, type string
    (author) ;;author of the book, type string
    (date))  ;; date of the book, type string or int

(defun inputBook(title author month year)
    (defparameter "MobyDick" ;;I want this to use the parameter title
        (make-book :title title
                   :author author
                   :date '(month year))))

(defun getAuthor (book)
    (write (book-author book)))

许多人提前感谢！另外，我是初学者。我一直在谷歌搜索，我在这里难过。

Answer 1

你可能想要一些看起来像这样的东西，而不是顶级变量的疯狂。

(defvar *books* (make-hash-table))

(defun bookp (title)
  (nth-value 1 (gethash title *books*)))

(defun remove-book (title)
  (remhash title *books*))

(defun book (title)
  (nth-value 0 (gethash title *books*)))

(defun (setf book) (new title)
  (setf (gethash title *books*) new))

然后，例如：

> (setf (book 'moby) (make-book ...))
> (book 'moby)
> (bookp 'moby)
> (remove-book 'moby)

Answer 2

使用具有任意名称的符号具有典型的缺点：您可以覆盖现有符号的值。因此，为它设置一个单独的包是有用的，它不会从其他包中导入符号。

最好是有一个哈希表，它会从字符串映射到书籍对象。

带符号的代码草图：

(defstruct book
  (title)  ;; title of the book,  type string
  (author) ;; author of the book, type string
  (date))  ;; date of the book,   type list

(defun input-book (title author month year)
  (setf (symbol-value (intern title))
        (make-book :title title
                   :author author
                   :date (list month year))))

示例：

CL-USER 52 > (input-book "Lisp Style & Design"
                         "Molly M. Miller, Eric Benson"
                         1 1990)
#S(BOOK :TITLE "Lisp Style & Design"
        :AUTHOR "Molly M. Miller, Eric Benson"
        :DATE (1 1990))

CL-USER 53 > (book-author (symbol-value '|Lisp Style & Design|))
"Molly M. Miller, Eric Benson"

CL-USER 54 > (book-author |Lisp Style & Design|)
"Molly M. Miller, Eric Benson"

LISP：如何在defparameters中使用字符串

2 个答案: