;;;; Compiler
+(/debug "loading compiler.lisp!")
+
;;; Translate the Lisp code to Javascript. It will compile the special
;;; forms. Some primitive functions are compiled as special forms
;;; too. The respective real functions are defined in the target (see
(defun gvarname (symbol)
(declare (ignore symbol))
- (format nil "v~d" (incf *variable-counter*)))
+ (code "v" (incf *variable-counter*)))
(defun translate-variable (symbol)
(awhen (lookup-in-lexenv symbol *environment* 'variable)
(defvar *literal-counter* 0)
(defun genlit ()
- (format nil "l~d" (incf *literal-counter*)))
+ (code "l" (incf *literal-counter*)))
(defun dump-symbol (symbol)
#-jscl
,@(mapcar (lambda (form)
`(code "vs = " ,(ls-compile form t) ";"
"if (typeof vs === 'object' && 'multiple-value' in vs)"
- (code "args = args.concat(vs);" )
- "else"
+ (code " args = args.concat(vs);" )
+ " else "
(code "args.push(vs);" )))
forms))
"args[1] = args.length-2;"
(cond
((floatp x) (push (float-to-string x) fargs))
((numberp x) (push (integer-to-string x) fargs))
- (t (let ((v (format nil "x~d" (incf counter))))
+ (t (let ((v (code "x" (incf counter))))
(push v fargs)
(push `(code "var " ,v " = " ,(ls-compile x) ";"
- "if (typeof " v " !== 'number') throw 'Not a number!';"
- )
+ "if (typeof " ,v " !== 'number') throw 'Not a number!';")
prelude)))))
(js!selfcall
`(code ,@(reverse prelude))
(define-builtin %write-string (x)
`(code "lisp.write(" ,x ")"))
+(define-builtin /debug (x)
+ `(code "console.log(xstring(" ,x "))"))
+
;;; Storage vectors. They are used to implement arrays and (in the
;;; future) structures.