(in-package :cl-user)

(defpackage island.lib.util
  (:use :cl)
  (:export :printop
           :formatop))

(in-package :island.lib.util)

(eval-when (:compile-toplevel)
  (defun printop (message)
    (print message #.*standard-output*))
 
  (defun formatop (control-string &rest format-arguments)
    (apply #'format #.*standard-output* control-string format-arguments)))