package.lisp

   1
   2 (defpackage #:cl-devil
   3   (:nicknames #:il)
   4   (:use #:cl #:cffi :anaphora)
   5   (:shadow #:load #:error)
   6   (:export
   7    #:with-bound-image
   8    #:with-images
   9    #:with-init
  10    #:width-of
  11    #:height-of
  12    ;; bindings
  13    #:BIND-IMAGE
  14    #:BLIT
  15    #:COPY-IMAGE
  16    #:COPY-PIXELS
  17    #:DELETE-IMAGES
  18    #:GEN-IMAGES
  19    #:GET-DATA
  20    #:GET-ERROR
  21    #:GET-INTEGER
  22    #:INIT
  23    #:LOAD
  24    #:LOAD-F
  25    #:LOAD-IMAGE
  26    #:LOAD-L
  27    #:OVERLAY-IMAGE
  28    #:SAVE
  29    #:SAVE-F
  30    #:SAVE-IMAGE
  31    #:SAVE-L
  32    #:SET-DATA
  33    #:SET-PIXELS
  34    #:SHUTDOWN
  35    #:TEX-IMAGE
  36    ))
  37
  38 (defpackage #:ilut
  39   (:use #:cl #:cffi)
  40   (:export
  41    #:CONVERT-TO-SDL-SURFACE
  42    #:DISABLE
  43    #:ENABLE
  44    #:GET-BOOLEAN
  45    #:GL-BIND-MIPMAPS
  46    #:GL-BIND-TEX-IMAGE
  47    #:GL-BUILD-MIPMAPS
  48    #:GL-LOAD-IMAGE
  49    #:GL-SAVE-IMAGE
  50    #:GL-SCREEN
  51    #:GL-SCREENIE
  52    #:GL-SET-TEX
  53    #:GL-SUB-TEX
  54    #:GL-TEX-IMAGE
  55    #:RENDERER
  56    #:SDL-SURFACE-FROM-BITMAP
  57    #:SDL-SURFACE-LOAD-IMAGE
  58    ))