|
@@ -213,7 +213,7 @@ Actions:
|
|
|
|
|
|
(defmacro dynamic-slot-access (predicate slotname accessor)
|
|
|
"Given a predicate where the predicate is a struct slot accessor like 'market-price-of-',
|
|
|
- an 'accessor' like 'petrofuel', and a struct location, return the slot accessor function"
|
|
|
+ a slotname like 'petrofuel', and a struct location, return the result of the slot accessor function"
|
|
|
`(funcall ,(symbol-function (find-symbol (string-upcase (concatenate 'string predicate slotname)))) ,accessor))
|
|
|
|
|
|
(defun display-prices ()
|