Advertisement
Guest User

Untitled

a guest
Oct 9th, 2018
140
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.46 KB | None | 0 0
  1. ;; in DEFCLASS MY-CLASS, the slot specification (MY-LOCAL-SLOT-MACRO
  2. ;; MY-SLOT) is invalid; the probable intended meaning may be achieved by specifiying
  3. ;; (MY-LOCAL-SLOT-MACRO :INITFORM MY-SLOT) instead.
  4. (macrolet ((my-local-slot-macro (name)
  5.              `(,name :initarg ,name
  6.                      :accessor ,(intern
  7.                                  (format nil "MY-CLASS-~A" (symbol-name name))))))
  8.   (defclass my-class ()
  9.     ((my-local-slot-macro my-slot))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement