1. Paul Sexton
  2. cl-tcod


Paul Sexton  committed bb2690c

Minor fixes related to zip functions that operate on characters.

  • Participants
  • Parent commits d500d53
  • Branches default

Comments (0)

Files changed (1)

File tcod.lisp

View file
  • Ignore whitespace
+   #:mouse-wheel-up
+   #:mouse-wheel-down
 (defun zip-put (zip val)
   (typecase val
     (string (zip-put-string zip val))
-    (character (zip-put-char zip val))
+    (character (zip-put-char zip (char-code val)))
     (integer (zip-put-int zip val))
     (float (zip-put-float zip val))
     (otherwise (error "ZIP-PUT: don't know how to translate value ~S" val))))
 (defun* zip-put-colour (zip (colour colournum))
   (multiple-value-bind (r g b) (decompose-colour colour)
-    (zip-put-char zip (code-char r))
-    (zip-put-char zip (code-char g))
-    (zip-put-char zip (code-char b))))
+    (zip-put-char zip r)
+    (zip-put-char zip g)
+    (zip-put-char zip b)))
 (declaim (inline zip-put-color))
 (defun zip-put-color (zip color)
 (defun* zip-get-colour ((zip zipptr))
-  (let ((r (char-code (zip-get-char zip)))
-        (g (char-code (zip-get-char zip)))
-        (b (char-code (zip-get-char zip))))
+  (let ((r (zip-get-char zip))
+        (g (zip-get-char zip))
+        (b (zip-get-char zip)))
     (compose-colour r g b)))
 (declaim (inline zip-get-color))