Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6bc31415f8
Fetching contributors…

Cannot retrieve contributors at this time

15 lines (12 sloc) 0.53 kb
(in-package :cleric)
(defmacro defconstant-not-eql (name value &optional doc)
`(defconstant ,name (if (boundp ',name) (symbol-value ',name) ,value)
,@(when doc (list doc))))
(defmacro multiple-value-bind* (bind-clauses &body body)
(if (null bind-clauses) `(progn ,@body)
(destructuring-bind ((varlist values-form) &rest rest) bind-clauses
(if rest
`(multiple-value-bind ,varlist ,values-form
(multiple-value-bind* ,rest ,@body))
`(multiple-value-bind ,varlist ,values-form
,@body) ))))
Jump to Line
Something went wrong with that request. Please try again.