yvm

#| -*- mode:lisp -*-
   CLOS wrapper for CLX
|#

(eval-when (:compile-toplevel :load-toplevel :execute) 
  (require :quicklisp)
  (quicklisp:quickload '("clx" "uiop")))

(defpackage #:clx-clos
  (:documentation "")

yvm

(eval-when (:compile-toplevel :load-toplevel :execute) 
  (require :quicklisp)
  (quicklisp:quickload "clx"))

(defpackage #:midpoint
  (:documentation "Midpoint algorithm for circle rendering example")
  (:use #:common-lisp #:xlib)
  (:export #:run))

(in-package #:midpoint)

yvm

(eval-when (:compile-toplevel :load-toplevel :execute) 
  (require :quicklisp)
  (quicklisp:quickload "clx")
  (quicklisp:quickload "bt-semaphore"))

(defpackage #:clx-3d-bubbles
  (:documentation "3D points demo")
  (:use #:common-lisp #:xlib)
  (:nicknames #:bubbles)
  (:export #:bubbles))