pnathan

(require 'sb-introspect)

(defun curry-helper (paramlist args function-name)
  (if (= (length paramlist) (length args))
      (apply function-name args)
      (lambda (&rest more-args)
        (let ((args (append args more-args)))
          (assert (>= (length paramlist) (length args)))
          (curry-helper paramlist args function-name)))))

chaitanyagupta

Reader Macros in Common Lisp

This post also appears on lisper.in.

Reader macros are perhaps not as famous as ordinary macros. While macros are a great way to create your own DSL, reader macros provide even greater flexibility by allowing you to create entirely new syntax on top of Lisp.

Paul Graham explains them very well in [On Lisp][] (Chapter 17, Read-Macros):

The three big moments in a Lisp expression's life are read-time, compile-time, and runtime. Functions are in control at runtime. Macros give us a chance to perform transformations on programs at compile-time. ...read-macros... do their work at read-time.

Era-Dorta

# VERY IMPORTANT! After each kernel update or dkms rebuild the modules must be signed again with the script
# ~/.ssl/sign-all-modules.sh

# Place all files in ~/.ssl folder
mkdir ~/.ssl
cd ~/.ssl

# Generate custom keys with openssl
openssl req -new -x509 -newkey rsa:2048 -keyout MOK.priv -outform DER -out MOK.der -nodes  -subj "/CN=Owner/"

antirez

# LVDB - LLOOGG Memory DB
# Copyriht (C) 2009 Salvatore Sanfilippo <antirez@gmail.com>
# All Rights Reserved

# TODO
# - cron with cleanup of timedout clients, automatic dump
# - the dump should use array startsearch to write it line by line
#   and may just use gets to read element by element and load the whole state.
# - 'help','stopserver','saveandstopserver','save','load','reset','keys' commands.
# - ttl with milliseconds resolution 'ttl a 1000'. Check ttl in dump!

riseOfCurse

#include <iostream>
template<int item> struct num { static int const value = item; };//包装整数
struct null {};		//TODO， 空是否需要内容
//-------------定义序对--------------
template<class left, class right>	
struct cons {
	using car = left;
	using cdr = right;
	static int const length = cdr::length + 1;
};

fukamachi

(annot:defannotation fntype (args result form)
    (:arity 3) 
  (let* ((last-form (cl-annot.util:progn-form-last form))
         (symbol (cl-annot.util:definition-form-symbol last-form)))
    `(progn (declaim (ftype (function ,args ,result) ,symbol))
            ,form)))

;; Usage:
;;    (ql:quickload :cl-syntax)
;;    (syntax:use-syntax :annot)