Function: closql-oref

closql-oref is a byte-compiled function defined in closql.el.

Signature

(closql-oref OBJ SLOT)

Source Code

;; Defined in ~/.emacs.d/elpa/closql-20260101.1828/closql.el
(defun closql-oref (obj slot)
  (cl-check-type slot symbol)
  (let ((class (eieio--object-class obj)))
    (cond-let
      ([c (eieio--slot-name-index class slot)]
       (let ((value (aref obj c)))
         (if (eq value eieio--unbound)
             (closql-dref obj slot)
           value)))
      ([c (eieio--class-slot-name-index class slot)]
       (aref (eieio--class-class-allocation-values class) c))
      ((slot-missing obj slot 'oref)))))