luismbo

#!/bin/bash

GIT=/usr/bin/git
GIT_FETCH_TIMEOUT="5m"

warn() {
    echo "${1}" >&2
}

die() {

luismbo

;;;; ENSURE-SUPERCLASS-MIXIN
;;;
;;; Example usage:
;;;
;;;   (defclass foo () ())
;;;
;;;   (defclass my-metaclass (ensure-superclass-mixin standard-class)
;;;     ()
;;;     (:default-initargs
;;;      :ensured-superclasses '(foo)))

luismbo

submit:
	python submit.pyc
clean:
	find . \( -name "*~" -name "*.dfsl" -o -name "*.fasl" -o -name "*.fas" -o -name "*.lib" -o -name "*.x86f" -o -name "*.amd64f" -o -name "*.sparcf" -o -name "*.sparc64f" -o -name "*.hpf" -o -name "*.hp64f" -o -name "*.ppcf" -o -name "*.nfasl" -o -name "*.ufsl" -o -name "*.fsl" -o -name "*.lx64fsl" \) -exec rm {} \;

luismbo

#!/usr/bin/env python
 
API_KEY='XXX'
API_URL='https://api.xively.com/v2/feeds/XXX'
SERIAL_PORT='/dev/tty.usbserial-A9005aBb'
 
import serial
import json
import requests
 

luismbo

;;;;; REPL Read Mode

(setq slime-repl-read-mode-map
  (let ((map (make-sparse-keymap)))
    (set-keymap-parent map lisp-mode-map)
    (define-key map "\C-m" 'slime-repl-return)
    (define-key map [return] 'slime-repl-return)
    (define-key map "\C-c\C-b" 'slime-repl-read-break)
    (define-key map "\C-c\C-c" 'slime-repl-read-break)
    (define-key map [remap slime-indent-and-complete-symbol] 'ignore)

luismbo

CapsLock::Ctrl

F13::WinActivate, ahk_exe firefox.exe
^#u::WinActivate, ahk_exe firefox.exe

F14::WinActivate, ahk_exe thunderbird.exe
^#i::WinActivate, ahk_exe thunderbird.exe

F15::WinActivate, ahk_exe Slack.exe
^#o::WinActivate, ahk_exe Slack.exe

luismbo

Keybase proof

I hereby claim:

• I am luismbo on github.
• I am luismbo (https://keybase.io/luismbo) on keybase.
• I have a public key ASCvm-kTgSnAQwHt2mK9XI45slHYkaDh50NBmtR2QXeioAo

To claim this, I am signing this object:

luismbo

(in-package :cl-user)

;;; Vince, A. "Scheduling periodic events." Discrete Applied Mathematics 25.3 (1989): 299-310.
;;; http://www.sciencedirect.com/science/article/pii/0166218X89900085

;; * Events E_1, ..., E_n occur periodically with periods m_1, ..., m_n.
;; * x_i denote any occurence time of E_i.
;; * 0 <= x_i <= m_i for all i since E_i recurs at intervals m_i.
;; * Other occurences of E_i are given by x_i + k*m_i, k an integer.
;; * Therefore an n-tuple of times x = (x_1, ..., x_n) determines all occurences of

luismbo

~/s/typep ❯❯❯ cat compiler-bug.lisp
(in-package :cl-user)

(defclass foo ()
  ())

(defun bar ()
  (let ((x (non-existing-function-1)))
    (when (typep x 'foo)
      (non-existing-function-2 x))))

luismbo

(in-package :cl-user)

(defmacro defun* (name args &body body)
  `(progn
     (defun ,name ,args ,@body)))

(progn
  (defun* works ()))

(uiop:with-upgradability ()