[noctool-cvs] CVS source

imattsson imattsson at common-lisp.net
Sat Jun 14 12:08:01 UTC 2008


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

Modified Files:
	utils.lisp 
Log Message:
IM

OCTETIFY failed whenever it tried to convert a 0 or #\Nul


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




More information about the noctool-cvs mailing list