| (ns snapkitty.lisp.bridge.compiler | |
| "Compile LISP → knowledge graph" | |
| (:require [snapkitty.lisp.bridge.reader :as reader])) | |
| (defn compile-form [form] | |
| "Compile a LISP form into structured knowledge" | |
| (cond | |
| (symbol? form) {:type :symbol :name (str form)} | |
| (number? form) {:type :number :value form} | |
| (string? form) {:type :string :value form} | |
| (list? form) {:type :sexpr | |
| :head (first form) | |
| :args (mapv compile-form (rest form))} | |
| :else {:type :unknown :value form})) | |
| (defn compile-lisp [code] | |
| "Compile LISP code to knowledge structure" | |
| (let [forms (reader/read-lisp code)] | |
| (mapv compile-form forms))) | |