(defclass al ()
  ((fx :initform 13 :accessor fx@)))

(fx@ (make-instance 'al))

;; so then I can do

(defun fx (arg)
  (print arg))