(require-extension coops)

(if #f
    (define-class <foo>
      ()
      ((a accessor: foo-a))))

(print "here")
(define-class <foo>
  ()
  ((a accessor: foo-a)))

;; output
;; Note: implicitly defining generic-procedure: foo-a
;; here

;; Error: unbound variable: foo-a