Coverage report: /home/ellis/comp/core/lib/syn/gen/var.lisp

KindCoveredAll%
expression028 0.0
branch00nil
Key
Not instrumented
Conditionalized out
Executed
Not executed
 
Both branches taken
One branch taken
Neither branch taken
1
 ;;; var.lisp --- Codegen Variables
2
 
3
 ;; 
4
 
5
 ;;; Code:
6
 (in-package :syn/gen)
7
 (defvar *gen* nil)
8
 
9
 (eval-always
10
   (defvar *gen-designators* (list :c :cpp :cu :rs :py :js :zig :cl :el :scm)))
11
 
12
 (deftype gen-designator () `(or (member ,@*gen-designators*) null))
13
 
14
 (defparameter *code-reader* 'gen)
15
 (defvar *backup-readtable* (copy-readtable nil))
16
 
17
 (defvar *gen-warnings* '(:hyphen))
18
 
19
 (defvar *cl-symbols*
20
   (let ((syms))
21
     (do-external-symbols (s :common-lisp) (push s syms))
22
     syms))
23
 
24
 ;; (defparameter *opencl-backend*
25
 ;;   (append *cpp-backend* '(vector-initialization)))
26
 
27
 ;; (defparameter *glsl-backend*
28
 ;;   (append *c-backend* '(layout)))