Commit fe222004 authored by Pascal J. Bourguignon's avatar Pascal J. Bourguignon

Corrected sprite-name substitutions.

parent 7142ca20
......@@ -607,8 +607,10 @@ RETURN: SELF
(set-sprite-data self
(mapcar (lambda (frame) (split-string frame *new-line*))
sprite-data)))
((and (consp sprite-data) (consp (car sprite-data)) (or (stringp (caar sprite-data))
(consp (caar sprite-data))))
((and (consp sprite-data)
(consp (car sprite-data))
(or (stringp (caar sprite-data))
(consp (caar sprite-data))))
(let ((new-data
(make-array
(list (length sprite-data)
......@@ -640,7 +642,7 @@ RETURN: SELF
((stringp cur-char) (aref cur-char 0))
((numberp cur-char) (code-char cur-char))
((symbolp cur-char)
(aref (symbol-sprite-name cur-char) 0))
(aref (sprite-name cur-char) 0))
(t (error "~S is not a character!" cur-char))
)))
(loop for x from 0 below (array-dimension new-data 2)
......@@ -653,7 +655,7 @@ RETURN: SELF
((stringp cur-char) (aref cur-char 0))
((numberp cur-char) (code-char cur-char))
((symbolp cur-char)
(aref (symbol-sprite-name cur-char) 0))
(aref (sprite-name cur-char) 0))
(t (error "~S is not a character!"
cur-char))
))))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment