Function: eieio-oref-default--anon-cmacro

eieio-oref-default--anon-cmacro is a function defined in eieio-core.el.gz.

Signature

(eieio-oref-default--anon-cmacro EXP CLASS SLOT)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/eieio-core.el.gz
;; Closure converted to defun by helpful.
(defun eieio-oref-default--anon-cmacro
    (exp class slot)
  (ignore class)
  (pcase slot
    ((and
      (or `',name
	  (and name
	       (pred keywordp)))
      (guard
       (not
	(memq name eieio--known-slot-names))))
     (macroexp-warn-and-return
      (format-message "Unknown slot `%S'" name)
      exp nil 'compile-only))
    ((and
      (or `',name
	  (and name
	       (pred keywordp)))
      (guard
       (not
	(memq name eieio--known-class-slot-names))))
     (macroexp-warn-and-return
      (format-message "Slot `%S' is not class-allocated" name)
      exp nil 'compile-only))
    (_ exp)))