hg.stevelosh.com > cl-netpbm

(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package "NETPBM.QUICKUTILS")
    (defpackage "NETPBM.QUICKUTILS"
      (:documentation "Package that contains Quickutil utility functions.")
      (:use :cl))))

(in-package "NETPBM.QUICKUTILS")

;; need to define this here so sbcl will shut the hell up about it being
;; undefined when compiling quickutils.lisp.  computers are trash.
(defparameter *utilities* nil)
author	Steve Losh <steve@stevelosh.com>
date	Wed, 26 Dec 2018 23:21:04 -0500
parents	de4030a2d5b9
children	(none)