https://github.com/vlad-km/mlisa
Lisp production-rule system (LISA - Lisp-based Intelligent Software Agent) modified for JSCL A fork of http://lisa.sourceforge.net/ v3.2
https://github.com/vlad-km/mlisa
common-lisp jscl lisa lisp lisp-production-rule
Last synced: 9 months ago
JSON representation
Lisp production-rule system (LISA - Lisp-based Intelligent Software Agent) modified for JSCL A fork of http://lisa.sourceforge.net/ v3.2
- Host: GitHub
- URL: https://github.com/vlad-km/mlisa
- Owner: vlad-km
- License: gpl-3.0
- Archived: true
- Created: 2021-04-04T17:08:50.000Z (about 5 years ago)
- Default Branch: main
- Last Pushed: 2021-05-23T15:53:11.000Z (about 5 years ago)
- Last Synced: 2025-06-30T07:48:08.864Z (12 months ago)
- Topics: common-lisp, jscl, lisa, lisp, lisp-production-rule
- Language: Common Lisp
- Homepage:
- Size: 1.05 MB
- Stars: 1
- Watchers: 1
- Forks: 1
- Open Issues: 4
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
README
## mLisa
## Lisp production-rule system (LISA) modified for JSCL.
## A fork of `http://lisa.sourceforge.net/`. Fossil Lisp code, ancient as mammoth's shit
#### Compilation only under web-repl (platform Electron)
```lisp
(setq bin #())
(load "00-prelude.lisp" :hook bin)
(load "01-utils.lisp" :hook bin)
(load "02-belief.lisp" :hook bin)
(load "03-reflect.lisp" :hook bin)
(load "04-core.lisp" :hook bin)
(load "05-rete.lisp" :hook bin)
(load "06-config.lisp" :hook bin :output "lisa.js")
```
Will be bundle js-code "lisa.js".
Compilation "lisa.js" look at https://github.com/vlad-km/mLisa/releases v0.1-alpha `First iteration`
### Use with browser
File `jscl.html`:
```html
```
```lisp
(deftemplate hobbit ()
(slot name) (slot age))
(defrule r-1 ()
(hobbit (name ?name) (age ?age))
=>
(format t "Spawn hobbit ~a ~a ~%" ?name ?age))
(defrule r-2 ()
(hobbit (name gendalf) (age 100))
=>
(format t "Spawn wizard, ancient as mammoth's shit~%"))
(assert> (hobbit (name frodo)(age 30)))
(assert> (hobbit (name bilbo)(age 50)))
(assert> (hobbit (name gendalf)(age 100)))
```
- General view 
### What's next
Read original documentation.
Have a fun.
##### As is, without any guarantees or obligations