(let [(l (list 1 2 3))]
  (assume
   ((l list))
   (print l)))
;; Error: during expansion of (assume ...) - call of non-procedure: #<transformer>

;; 	Call history:

;; 	compiler.scm:410: find-id	  
;; 	compiler.scm:411: ##sys#get	  
;; 	compiler.scm:463: ##sys#get	  
;; 	compiler.scm:464: ##sys#alias-global-hook	  
;; 	compiler.scm:401: g1619	  
;; 	compiler.scm:1272: walk	  
;; 	compiler.scm:498: constant?	  
;; 	compiler.scm:401: g1619	  
;; 	compiler.scm:1272: walk	  
;; 	compiler.scm:498: constant?	  
;; 	compiler.scm:401: g1619	  
;; 	compiler.scm:1272: walk	  
;; 	compiler.scm:498: constant?	  
;; 	compiler.scm:1246: ##sys#hash-table-ref	  
;; 	compiler.scm:1248: ##sys#hash-table-set!	  
;; 	compiler.scm:615: ##sys#canonicalize-body	  	<--