obriencj

(defmacro pseudop (method . args)
  (let ((as-name (symbol (+ "emit_" (str method))))
	(method (symbol (+ "__compiler__.pseudop_" (str method)))))

    (if args
	`(defmacro ,as-name ,args
	   (cons ',method ,@args nil))
      `(defmacro ,as-name ()

obriencj

maybe:python-sibilant siege$ sibilant sample_defclass.lspy
Tom says: Hey there, Sally
Sally says: What's up, Tom
Tom says: Good-bye!
Sally says: Good-bye!

obriencj

maybe:python-sibilant siege$ python3 sample1.py
Traceback (most recent call last):
  File "sample1.py", line 18, in <module>
    call_a(100)
  File "sample1.py", line 7, in call_a
    call_1(call_b, value)
  File "sample2.lspy", line 3, in call_1
    (into arg))
  File "sample1.py", line 11, in call_b
    call_2(call_c, value)

obriencj

maybe:python-sibilant siege$ sibilant sample.lspy
True is True
False is False
None is False
nil is False
True is True
100 is True
False is False
-100 is True
(1 will you 8 flake tacos_1 tacos_2 tacos_3 tacos_4 tacos_5 tacos_2 tacos_3 tacos_4 tacos_5)

obriencj

maybe:python-sibilant siege$ cat tacos.lspy 

(defun make_tacos (X)
  (cons 'tacos X))

(define tacos 'awesome)
maybe:python-sibilant siege$ python3
Python 3.5.3 (default, Apr 23 2017, 18:09:27) 
[GCC 4.2.1 Compatible Apple LLVM 8.0.0 (clang-800.0.42.1)] on darwin
Type "help", "copyright", "credits" or "license" for more information.

obriencj

Keybase proof

I hereby claim:

• I am obriencj on github.
• I am obriencj (https://keybase.io/obriencj) on keybase.
• I have a public key whose fingerprint is B813 6B61 D568 811E 626F 0DBA B5AB A230 5282 9C5C

To claim this, I am signing this object:

obriencj

#! /usr/bin/env python3


from functools import partial
from inspect import currentframe

import sys


STACK_LIMIT = 64

obriencj

from threading import Thread
from unittest import TestCase
from xmlrpclib import ServerProxy
from SimpleXMLRPCServer import SimpleXMLRPCServer


class Dummy(object):
    def __init__(self):
        self.data = list(xrange(0,10))

obriencj

def attempt_1():
    data = list()

    # no prob, bob. data is captured as a closure cell of action
    action = lambda x: data.append(x)
    action(5)
    return data

obriencj

((lambda (f)
    ((lambda (r) (f (lambda () ((r r)))))
     (lambda (r) (f (lambda () ((r r)))))))
  (lambda (despair)
    (lambda () (despair))))