Advertisement
Guest User

Untitled

a guest
Nov 16th, 2021
24
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.37 KB | None | 0 0
  1. (allowed NIL
  2.          "!rule.json" *Var1 *Var2)
  3.  
  4. (load (pack (car (file)) "db_queries.l"))
  5.  
  6. (load "@lib/http.l" "@lib/json.l")
  7.  
  8. (symbols 'rule 'pico)
  9.  
  10. (de rule.json (this this2)
  11.     (msg "test")
  12.     (msg *Var1)
  13.     (msg this2))
  14.  
  15. (de main ()
  16.     (symbols '(rule pico))
  17.     (pool "dbContent/" *Dbs))
  18.  
  19. (de go ()
  20.     (rollback)
  21.     (server 8080) '("!rule.json"))
  22.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement