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    #:CONVERT-IMAGE
  16    #:COPY-IMAGE
  17    #:COPY-PIXELS
  18    #:DELETE-IMAGES
  19    #:DISABLE
  20    #:ENABLE
  21    #:FLIP-IMAGE
  22    #:GEN-IMAGES
  23    #:GET-DATA
  24    #:GET-ERROR
  25    #:GET-INTEGER
  26    #:GET-PALETTE
  27    #:INIT
  28    #:IS-ENABLED
  29    #:KEY-COLOR
  30    #:LOAD
  31    #:LOAD-F
  32    #:LOAD-IMAGE
  33    #:LOAD-L
  34    #:OVERLAY-IMAGE
  35    #:SAVE
  36    #:SAVE-F
  37    #:SAVE-IMAGE
  38    #:SAVE-L
  39    #:SET-DATA
  40    #:SET-INTEGER
  41    #:SET-PIXELS
  42    #:SHUTDOWN
  43    #:TEX-IMAGE
  44    ))
  45
  46 (defpackage #:ilut
  47   (:use #:cl #:cffi)
  48   (:export
  49    #:CONVERT-TO-SDL-SURFACE
  50    #:DISABLE
  51    #:ENABLE
  52    #:GET-BOOLEAN
  53    #:GL-BIND-MIPMAPS
  54    #:GL-BIND-TEX-IMAGE
  55    #:GL-BUILD-MIPMAPS
  56    #:GL-LOAD-IMAGE
  57    #:GL-SAVE-IMAGE
  58    #:GL-SCREEN
  59    #:GL-SCREENIE
  60    #:GL-SET-TEX
  61    #:GL-SUB-TEX
  62    #:GL-TEX-IMAGE
  63    #:INIT
  64    #:RENDERER
  65    #:SDL-SURFACE-FROM-BITMAP
  66    #:SDL-SURFACE-LOAD-IMAGE
  67    ))