ympbyc

Talking Lisps

This is a sketch illustrating dynamic interactions between three different implementations of Lisp.
Common Lisp, Emacs Lisp, and an very old Scheme are engaged in a conversation and producing a very crude talking REPL.

It's by no means complete nor useful at this point but it's a good starting point.

ympbyc

(define-condition selection-required (simple-error)
  ((message :initarg :message :reader message))
  (:report (lambda (c s) (format s "Selection required: ~A" (message c)))))

(defmacro selection-restarts (options message)
  "Generates restart-case from given list of options. Useful for interactive selection."
  (let ((x    (gensym))
        (rpt  (gensym))
        (i    (gensym))
        (name (gensym)))

ympbyc

(defpackage :distance-fns
  (:use :cl :cepl :rtg-math :vari)
  (:nicknames :df))

(in-package :df)
 
(defun-g rand ((co :vec2))
  (fract (* (sin (dot co (v! 12.98 78.23)))  43758.54)))

ympbyc

;; Original file can be found here: https://web.archive.org/web/20030317235658/http://www.snowcrest.net:80/dpriest/x.emacs

;; to start type alt-0 alt-x, then (hi-i:say-hi) at the prompt

;;(setq load-path (append load-path (list  "x:/mirai-1-1/eli")))
(setq load-path (append load-path (list  "d:/mirai-1-1/eli")))
(load "fi-site-init")


(setf fi::common-lisp-first-time nil)

ympbyc

"use strict";

document.addEventListener("DOMContentLoaded", function () {
  var mainEl = document.getElementById("main");

  //add page unique class to #main
  mainEl.classList.add("page-" + location.href.split(/\/|\#|\?\&/)[3].replace("-copy", ""));

  if (mainEl.classList.contains("page-architecture")) setTimeout(tagcloud, 100);

ympbyc

function qs (x) { return document.querySelector(x); }

document.addEventListener("DOMContentLoaded", ()=>{
  var mainEl = document.getElementById("main");
  
  //add page unique class to #main
  var slug = location.href.split(/\/|\#|\?\&/)[3];
  mainEl.classList.add("page-" + (slug || "ambientdesigns").replace("-copy", ""));
  
  if (mainEl.classList.contains("page-architecture"))

ympbyc

(use srfi-1)

(define (mlf-symbol sym)
  (string->symbol (string-append "$" (symbol->string sym))))

(define (compile expr)
  (cond
   [(number? expr) expr]
   [(string? expr) (string-append "\"" expr "\"")]
   [(symbol? expr) (mlf-symbol expr)]

ympbyc

;;Strip down the core language to its bones and provide a really powerful macro facility.
;;Just skim over. Don't read carefully.
;;It's just an idea. I'm not happy with this yet.

;; Macros with ability to scan and transform callers of a function

(defmacro (deflazy fname . rest)
  (let ((expr (last rest))
        (params (butlast rest)))
    `(= ,fname ,@params

ympbyc

Getting Started

Setup

1. Clone this repository https://github.com/frenchy64/clojurescript/tree/tools.analyzer-ast
2. Checkout the tools.analyzer.ast branch.
3. lein install that branch.
4. Now you should have [org.clojure/clojurescript "0.0-SNAPSHOT"] in your maven repo
5. Clone typedclojure/core.typed
6. git checkout ctyp-323-cljs

ympbyc