[noctool-cvs] CVS source

[imattsson]

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

Modified Files:
	utils.lisp 
Log Message:
IM

Now with less compiler warnings.


--- /project/noctool/cvsroot/source/utils.lisp	2008/06/14 12:11:17	1.9
+++ /project/noctool/cvsroot/source/utils.lisp	2008/06/14 12:41:43	1.10
@@ -174,13 +174,14 @@
 	rv))))
 
 (defun octetify (str)
-  (coerce (loop for val across str
-		append (let ((n (typecase val
-				  (character (char-code val))
-				  (integer val))))
-			 (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))))
+  (coerce
+   (loop for val across str
+	 append (let ((n (etypecase val
+			   (character (char-code val))
+			   (integer val))))
+		  (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))))
 
 (defun encode-base-64-octet-vector (octet-vector)
   (let ((start octet-vector)