(define-compilation eq (x y)
(concat "(" (ls-compile x env fenv) " === " (ls-compile y env fenv) ")"))
(define-compilation eq (x y)
(concat "(" (ls-compile x env fenv) " === " (ls-compile y env fenv) ")"))
(define-compilation string (x)
(concat "String.fromCharCode(" (ls-compile x env fenv) ")"))
(define-compilation string-upcase (x)
(concat "(" (ls-compile x env fenv) ").toUpperCase()"))
(define-compilation string (x)
(concat "String.fromCharCode(" (ls-compile x env fenv) ")"))
(define-compilation string-upcase (x)
(concat "(" (ls-compile x env fenv) ").toUpperCase()"))
(with-open-file (out output :direction :output :if-exists :supersede)
(let* ((source (read-whole-file filename))
(in (make-string-stream source)))
(with-open-file (out output :direction :output :if-exists :supersede)
(let* ((source (read-whole-file filename))
(in (make-string-stream source)))
when (plusp (length compilation))
do (write-line (concat compilation "; ") out))
(dolist (check *compilation-unit-checks*)
when (plusp (length compilation))
do (write-line (concat compilation "; ") out))
(dolist (check *compilation-unit-checks*)