Lifelovinglight

(defun prompt (handler)
  (princ #\Newline)
  (princ "> ")
  (finish-output)
  (funcall handler
	   (read-prompt (split-at #\Space
				  (coerce (string-upcase (read-line)) 'list))))
  (prompt handler))

(defun main ()

Lifelovinglight

(defparameter *database*
  (make-hash-table :test 'equal))

(defparameter *id-index* 0)

(defun new-index ()
  (let ((n *id-index*))
    (incf *id-index*)
    n))

Lifelovinglight

module Sexp (Sexp, parseSexp) where

import Text.Parsec
import Text.Parsec.Char
import Data.Char
import Data.Text (Text)
import qualified Data.Text as Text
import Data.Map (Map)
import qualified Data.Map as Map

Lifelovinglight

(use-modules (srfi srfi-1))

(define (ae string)
  (if (string-null? string)
      string
      (let loop ((result (make-string (1- (* 2 (string-length string)))))
		 (index 0)
		 (len (string-length string))
		 (blank-line #t))
	(if (= index len)

Lifelovinglight

(defun parse-ftp-traffic (str)
  (case (parse-integer str :junk-allowed t)
    ((220) 'helo)
    ((230) 'login-successful)
    ((331) 'password-requested)
    ((332) 'no-anonymous-logins)
    ((530) 'login-failed)
    (otherwise nil)))

(defun speak (str)

Lifelovinglight

(locally
    (declaim
     (optimize (speed 3)
               (space 3)
               (safety 0)
               (debug 0)
               (compilation-speed 0))
     (ftype (function (fixnum) fixnum)
            dec-fixnum
            dec-fixnum-fixnum))

Lifelovinglight

#!/bin/bash

if [ "$#" -lt 1 ]; then
	echo "Usage: $0 <interface label>"
else
	NEW_MAC=$(ip link show $1 | tail -n1 | grep -Po 'link/ether \K[[:xdigit:]:]{8,8}')

	for i in {0..2}; do
		printf -v BYTE "%02x" $(($RANDOM%256))
		NEW_MAC=$NEW_MAC:$BYTE

Lifelovinglight

(defpackage :hippie-prompt
  (:use :common-lisp)
  (:export :prompt
	   :set-prompt))

(in-package :hippie-prompt)

(defun symbolize (ln)
  (intern (string-upcase (coerce ln 'string))))

Lifelovinglight

{-# LANGUAGE DataKinds #-}

module Lib
       ( primitiveRead
       , LispType ( Nil
                  , LispInteger
                  , LispString
                  , LispSymbol
                  , LispTrue
                  , LispList )

Lifelovinglight

Keybase proof

I hereby claim:

• I am lifelovinglight on github.
• I am whiteline (https://keybase.io/whiteline) on keybase.
• I have a public key ASBIgyRmAwkwYiQjNxDTfM5xu8wMU99PIy0pWH0XPazj8Ao

To claim this, I am signing this object: