Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (allowed NIL
- "!rule.json" *Var1 *Var2)
- (load (pack (car (file)) "db_queries.l"))
- (load "@lib/http.l" "@lib/json.l")
- (symbols 'rule 'pico)
- (de rule.json (this this2)
- (msg "test")
- (msg *Var1)
- (msg this2))
- (de main ()
- (symbols '(rule pico))
- (pool "dbContent/" *Dbs))
- (de go ()
- (rollback)
- (server 8080) '("!rule.json"))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement