X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=files.lisp;fp=files.lisp;h=5be36b4ca5f4e6554f733bfb89462556b32f0cce;hp=f1134089472744c5cf8b998c5ca8c637a6f9924d;hb=f05e44b099e5976411b3ef1f980ec616bd221425;hpb=8f6d2e9fa2cee1be6687044f2f4813630305682b

diff --git a/files.lisp b/files.lisp
index f113408..5be36b4 100755
--- a/files.lisp
+++ b/files.lisp
@@ -78,7 +78,8 @@ relevant."
        (si (pathname-name name)
 	   `(,width ,height
 		    ,@(mapcar #'(lambda (x) (/ x sidelength 1.0))
-			      (list cx* cy* (+ cx* width) (+ cy* height)))))
+			      (list cx* cy* (+ cx* width) (+ cy* height)))
+		    ,cx* ,cy*))
        (incf cx)
        (cond ((= cx optimal-x-num)
 	      (incf cy)
@@ -86,7 +87,9 @@ relevant."
 	      (setf cx 0 cx* 0))
 	     (T (incf cx* max-width))))
      names pixeldata widths heights)
-    (setf *spritesheet* (list new-image-data sidelength))))
+    (setf *spritesheet* (list new-image-data sidelength))
+    ;; since the output of "setf" kills emacs, I return Nil here ...
+    nil))
 
 
 (defun init-files ()