```common lisp
(cl:in-package #:cleavir-ast-to-hir)

(defmethod compile-ast ((ast cleavir-ast:speed-ast) context)
  (compile-ast (cleavir-ast:child-ast ast)
	       (clone-context context
			      :speed-value (cleavir-ast:value ast))))
```

Define method on COMPILE-AST specialized to DEBUG-AST.
user
```common lisp
(cl:in-package #:cleavir-ast-to-hir)

(defmethod compile-ast ((ast cleavir-ast:speed-ast) context)
  (compile-ast (cleavir-ast:child-ast ast)
	       (clone-context context
			      :speed-value (cleavir-ast:value ast))))

(defmethod compile-ast ((ast cleavir-ast:debug-ast) context)
  (compile-ast (cleavir-ast:child-ast ast)
	       (clone-context context
			      :debug-value (cleavir-ast:value ast))))
```
assistant