yosugi

; named let for common lisp
(defmacro nlet (tag var-vals &body body)
  `(labels ((,tag ,(mapcar #'car var-vals) ,@body))
     (,tag ,@(mapcar #'cadr var-vals))))

yosugi

/**
 * pretty print for PHP
 */
function pp($obj, $printer = 'var_dump')
{
    if (isset($_SERVER['REQUEST_METHOD'])) echo '<pre>' . PHP_EOL;

    $bts = debug_backtrace(false);
    $bt = array_shift($bts);
    echo $bt['file'] . ':' . $bt['line'] . PHP_EOL;