SBCL Internals Playground

1. sb-cltl2

(use-package :sb-cltl2)

(augment-environment nil) ;; null-lexenv

#<NULL-LEXENV>

(ql:quickload :q)

(use-package :dql)

(let ((e (find-class 'dql::dql-expr))
      (env (find-class 'dql::dql-env)))
  (finalize-inheritance e)
  (finalize-inheritance env)
  (list
   :expr
   (class-slots e)
   :env
   (class-slots env)))

(:EXPR
 (#<STANDARD-EFFECTIVE-SLOT-DEFINITION OBJ/AST:EXPR>
  #<STANDARD-EFFECTIVE-SLOT-DEFINITION STD/META:NAME>)
 :ENV
 (#<STANDARD-EFFECTIVE-SLOT-DEFINITION OBJ/SCHEMA:FIELDS>
  #<STANDARD-EFFECTIVE-SLOT-DEFINITION STD/META:NAME>
  #<STANDARD-EFFECTIVE-SLOT-DEFINITION Q/DQL::ENV>))

(define-declaration fast (spec env)
  (declare (ignore env))
  (values :declare (cons 'fast (or (cdr spec) t))))

NIL