utilities.lisp

   1 ;;;; $Id: utilities.lisp,v 1.4 2007/12/17 12:52:21 xach Exp $
   2
   3 (in-package #:salza2)
   4
   5 (defvar *dtrace-enabled* nil)
   6
   7 (defmacro dtrace (&rest vars)
   8   `(when *dtrace-enabled*
   9      (format *trace-output* "~{~&; ~S => ~S~%~}~%"
  10              (list ,@(loop for sym in vars
  11                            collect `(quote ,sym)
  12                            collect sym)))))
  13
  14 (defun toggle-dtrace ()
  15   (setf *dtrace-enabled* (not *dtrace-enabled*)))
  16
  17
  18 (defun make-octet-vector (size)
  19   (make-array size :element-type 'octet))
  20
  21 (defun octet-vector (&rest elements)
  22   (make-array (length elements)
  23               :element-type 'octet
  24               :initial-contents elements))