projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
MOD, FLOOR
[jscl.git]
/
lispstrack.lisp
diff --git
a/lispstrack.lisp
b/lispstrack.lisp
index
c8bb3c5
..
7bb6945
100644
(file)
--- a/
lispstrack.lisp
+++ b/
lispstrack.lisp
@@
-14,12
+14,10
@@
((not ,condition))
,@body))
((not ,condition))
,@body))
- #+common-lisp
(defun concat-two (s1 s2)
(concatenate 'string s1 s2)))
(defun concat-two (s1 s2)
(concatenate 'string s1 s2)))
-(defvar *newline* "
-")
+(defvar *newline* (string (code-char 10)))
(defun concat (&rest strs)
(!reduce (lambda (s1 s2) (concat-two s1 s2))
(defun concat (&rest strs)
(!reduce (lambda (s1 s2) (concat-two s1 s2))
@@
-387,6
+385,12
@@
(define-compilation = (x y)
(concat "((" (ls-compile x env fenv) ") == (" (ls-compile y env fenv) "))"))
(define-compilation = (x y)
(concat "((" (ls-compile x env fenv) ") == (" (ls-compile y env fenv) "))"))
+(define-compilation mod (x y)
+ (concat "((" (ls-compile x env fenv) ") % (" (ls-compile y env fenv) "))"))
+
+(define-compilation floor (x)
+ (concat "(Math.floor(" (ls-compile x env fenv) "))"))
+
(define-compilation null (x)
(concat "(" (ls-compile x env fenv) "== undefined)"))
(define-compilation null (x)
(concat "(" (ls-compile x env fenv) "== undefined)"))
@@
-408,7
+412,7
@@
(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 code-char (x)
+(define-compilation string (x)
(concat "String.fromCharCode( " (ls-compile x env fenv) ")"))
(define-compilation char (string index)
(concat "String.fromCharCode( " (ls-compile x env fenv) ")"))
(define-compilation char (string index)