vendor/quickutils-package.lisp @ 8f8345435007 default tip

Update array constructors to please new SBCL
author Steve Losh <steve@stevelosh.com>
date Tue, 23 Jul 2024 09:41:58 -0400
parents 1e155f658715
children (none)
(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)