Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: ac49465281
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (16 sloc) 0.631 kb
;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10; indent-tabs-mode: nil -*-
;;;;
;;;; Copyright © 2009 Josh Marchan, Adlai Chandrasekhar
;;;;
;;;; Utilities
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(in-package :chanl)
(defmacro fun (&body body)
"This macro puts the FUN back in FUNCTION."
`(lambda (&optional _) (declare (ignorable _)) ,@body))
(defmacro define-speedy-function (name args &body body)
`(progn (declaim (inline ,name))
(defun ,name ,args
(declare (optimize (speed 3) (safety 0) (debug 0)))
,@body)))
Jump to Line
Something went wrong with that request. Please try again.