stassats

;;; Usage (percentage (analyze-systems '(a b c d))) => 42.23

(eval-when (:compile-toplevel :load-toplevel :execute)
  (when (asdf:find-system :named-readtables nil)
    (asdf:load-system :named-readtables)))

(defun analyze-form (form)
  (typecase form
    (symbol
     (when (eql (symbol-package form) (find-package 'cl))

afeinberg

(require :sb-concurrency)
(defpackage :demo (:use :cl :sb-thread :sb-concurrency :sb-ext))

(in-package :demo)

(defun make-atomic-boolean (&optional (init nil))
  (list init))

(defun atomic-boolean-get (ab)
  (barrier (:read) 

sshirokov

(defpackage :fsm 
  (:use :cl)
  (:export :standard-state-machine
           :standard-state-machine-event
           :state
           :defstate
           :deffsm))
(in-package :fsm)

;; Basic copy-pasta protection

aras-p

// Just before switching jobs:
// Add one of these.
// Preferably into the same commit where you do a large merge.
//
// This started as a tweet with a joke of "C++ pro-tip: #define private public",
// and then it quickly escalated into more and more evil suggestions.
// I've tried to capture interesting suggestions here.
//
// Contributors: @r2d2rigo, @joeldevahl, @msinilo, @_Humus_,
// @YuriyODonnell, @rygorous, @cmuratori, @mike_acton, @grumpygiant,

vu3rdd

Context

This tweet explains it all.

I have a huge pile of papers on my computer waiting to be read. Often I read parts of it immediately after I see the paper, but I forget about it until someone points on another article, how awesome that paper is. I then remember to read it more carefully.

One way to fix it is to work with like minded people and have serious (non-hand wavy) discussion around the paper.

The list below will grow. My hard disk has more papers than I can count. I have carefully chosen a list of very readable papers in the list below. Special thanks for the authors for publishing their great ideas.

namuol

rage-quit support for bash

HOW TO INSTALL

Put flip somewhere in your $PATH and chmod a+x it.

Copy fuck into ~/.bashrc.

burke

#!/usr/bin/env ruby
# coding: utf-8

abort "Usage: fuck you <name>" unless ARGV[0] == "you" && ARGV.size == 2

a = "abcdefghijklmnopqrstuvqxyz".each_char.to_a
b = "ɐqɔpǝɟƃɥıɾʞʃɯuodbɹsʇnʌʍxʎz".each_char.to_a
ws = Hash[a.zip(b)]
ws.default = ->(f){f}

michaeljforster-zz

(in-package #:grok-cl-parenscript-react)

(hunchentoot:define-easy-handler (handle-tutorial :uri "/tutorial")
    ()
  (cl-who:with-html-output-to-string (stream)
    (:html
      (:head
        (:title "React Tutorial")
        (:script :type "text/javascript" :src *react-url*))
      (:body

PuercoPop

(in-package :famiclom)

(require 'sb-sprof)

(defun check-for-input ()
  (let ((event (sdl:new-event)))
    (loop
        ;; Pops the event-queue and binds it to event, return 0 if no pending
        ;; events.
       :for event-poll = (sdl-cffi::SDL-Poll-event event)

guicho271828

(defun event-p (x) t) ;; constantly t
(defun key-p (x) t)   ;; constantly t

;; w/o defpattern
(match event
  ((and (sdl:event- (type (eq :key-down-event)))
       ;;^^^^^^^^^^ this specify the container type
                   ;;^^^^ this is a slot
                   ;;      ^^^^^^^^^^^^^^^^^^ and this specifies the type of the slot.
        (sdl::key-  (key (eq :sdl-key-z)) state)))