Commits

Paul Sexton committed 82d5280

Correct some minor bugs.
Muffle some uninteresting SBCL warnings.

Comments (0)

Files changed (1)

 ;;; - to start the colour system call START-COLOURS.
 ;;; - to make a new colour and associate it with a name, use MAKE-COLOUR.
 
-
+(declaim (optimize (speed 0) (safety 2) (debug 3)))
+
+#+sbcl (declaim (sb-ext:muffle-conditions sb-ext:compiler-note))
 
 
 (defpackage :tcod
    #:console-get-background-colour
    #:console-get-foreground-color
    #:console-get-background-color
+   #:console-set-alignment
+   #:console-get-alignment
+   #:console-set-background-flag
+   #:console-get-background-flag
    #:console-print
    #:console-print-ex
    #:console-print-rect
 
 
 (define-c-function ("TCOD_console_get_alignment"
-                    console-set-alignment) alignment
+                    console-get-alignment) alignment
     ((con console))
   (call-it))
 
 
 (defcfun ("TCOD_console_print_ex" %console-print-ex) :void
   (con console) (x :int) (y :int) (flag background-flag)
-  (alignment align) (fmt :string) &rest)
+  (align alignment) (fmt :string) &rest)
 
 
 (defun* console-print-ex ((con console) (x ucoord) (y ucoord)
 
 (defun hello-world ()
   (tcod:console-init-root 80 50 "Libtcod Hello World" nil :renderer-sdl)
-  (tcod:console-print-centre tcod:*root* 40 25 :none "Hello World!")
+  (tcod:console-set-alignment *root* :center)
+  (tcod:console-print tcod:*root* 40 25 "Hello World!")
   (tcod:console-flush)
   (tcod:console-wait-for-keypress t))