通過其名稱訪問結構實例

我試圖通過另一個結構實例或其名稱來訪問結構實例的字段。由於這聽起來固然很混亂，我有一個（非常構造）例如：通過其名稱訪問結構實例

(defstruct author 
    (name nil) 
    (books '()) 
    (years '())) 

(defstruct book 
    (name nil) 
    (author '()) 
    (copy-sold '())) 

(defparameter hitchikers-guide 
    (make-book :name "Hitchikers-Guide" 
      :author '(douglas-adams) 
      :copy-sold '(a lot))) 

(defparameter douglas-adams 
    (make-author :name "Douglas Adams" 
       :books '(Hitchikers-guide restaurant life-and-universe fish) 
       :years '(too few))) 

(defparameter authors 
    '(douglas-adams pterry))

我有實例hitchikers-guide。如果我想查找其作者的所有書籍，可以輸入REPL (author-books douglas-adams)，我可以獲得他所有書籍的列表。不過，如果我進入

(author-books (first (book-author hitchikers-guide)))

或

(author-books (first authors))

我得到的錯誤信息：

價值道格拉斯亞當斯是預期類型的作者不是。

我做錯了嗎，還是沒有辦法以這種方式訪問這些字段？

來源

2013-06-26 martin

您的變量authors包含symbol s，而不是author s。

嘗試

(defparameter authors (list douglas-adams pterry))

代替（如，五言的，pterry已經被定義）。

同樣，(book-author hitchikers-guide)是symbol s的列表，而不是author s。

您需要使用symbol-value才能獲得相應的author。

來源

2013-06-26 17:19:12 sds

請注意'symbol-value'只適用於這種情況，因爲變量被聲明爲特殊的，因爲它們是用'defparameter'定義的。在這種情況下，做'（defparameter作者（列表道格拉斯 - 亞當斯pterry））'是可能的，只是因爲'douglas-adams'和（可能）'pterry'已經被定義。 –

如果你想通過一個符號來查找一個對象作爲它的標識符，你需要爲它使用一個數據結構。

簡單版本在包中使用符號。

(defun find-object (name) 
    (symbol-value name)) 

(defun intern-object (object name) 
    (setf (symbol-value name) object))

但你也可以使用一個哈希表：

(defvar *my-objects* (make-hash-table)) 

(defun find-object (name) 
    (gethash name *my-objects*)) 

(defun intern-object (object name) 
    (setf (gethash name *my-objects*) object))

來源

2013-06-26 17:41:15

在稍舊但仍然合法的樣式中，您還可以使用已知密鑰將對象存儲在符號的屬性列表中。然後你可以用['get']（http://clhs.lisp.se/Body/f_get.htm）來檢索它，即'（get'douglas-adams'author）'會返回'author'對象道格拉斯亞當斯。 –

這是一個不錯的做法，雖然不是通用的，但對於給定的類型討論_designators_。例如，_string指示符_是一個字符，字符串或符號，Common Lisp中與字符串相關的大部分函數都接受字符串指示符，而不僅僅是字符串。您可以將_作者指定符_定義爲作者或符號，並讓作者相關函數採用_作者指定符_（通過靜靜地將符號映射到它命名的作者）。 –

是先

- 作者或書嗎？

;; first the author 
(defstruct (author :conc-name make-author-internal) 
    (name nil) 
    (books '()) 
    (years '())) 

(defun make-author (name years) 
    (make-author-internal :name name :books '() :years years)) 

(defun author-add-book (author book) 
    (setf (author-books author) 
     (cons book (author-books author)))) 

;; now the book, requires an author (assumes one, if >1, use a list) 
(defstruct (book :conc-name make-book-internal) 
    (name nil) 
    (author nil) 
    (copy-sold '())) 

(defun make-book (name author copy-sold) 
    (let ((book (make-book-internal :name name :author author ...))) 
    (author-add-book author book) 
    book)) 

;; ... 

(defparameter douglas-adams 
    (make-author "Douglas Adams" ...)) 

(defparameter hitchikers-guide 
    (make-book "Hitchikers-Guide" douglas-adams ...))

來源

2013-06-26 21:43:30 GoZoner

通過其名稱訪問結構實例

回答

相關問題