[noctool-cvs] CVS source

[imattsson]

Update of /project/noctool/cvsroot/source
In directory clnet:/tmp/cvs-serv17040

Modified Files:
	utils.lisp 
Log Message:
IM

Really helps if you actually tset before committing. No longer
fails on 255 or #\ij-ligature (not, I believe, it's actually called that).


--- /project/noctool/cvsroot/source/utils.lisp	2008/06/14 12:08:00	1.8
+++ /project/noctool/cvsroot/source/utils.lisp	2008/06/14 12:11:17	1.9
@@ -178,7 +178,7 @@
 		append (let ((n (typecase val
 				  (character (char-code val))
 				  (integer val))))
-			 (loop for pos downfrom (* 8 (truncate (floor (log (1+ n) 2)) 8)) to 0 by 8
+			 (loop for pos downfrom (* 8 (truncate (floor (log (max 1 n) 2)) 8)) to 0 by 8
 			       collect (ldb (byte 8 pos) n))))
 	  '(vector (unsigned-byte 8))))