zzkt/osc
1
0
Fork 0
Code Issues 7 Pull requests Projects Releases Activity Actions

change #'cat to return (unsigned-byte 8) vectors

Browse source 
Ignore-this: 7e329f1ce1d3d108be83c6d3ea2bd5

darcs-hash:20100915193512-16a00-d86150e25298ac7ee175727ea6146ee47f030246
This commit is contained in:
j.forth 2010-09-15 20:35:12 +01:00 committed by Jamie Forth
parent 819de36f0f
commit c739b3eca0
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
osc.lisp
View file

@ -351,7 +351,7 @@ not contain stale data."
;; utility functions for osc-string/padding slonking
(defun cat (&rest catatac)
(apply #'concatenate '(vector *) catatac))
(apply #'concatenate '(vector (unsigned-byte 8)) catatac))
(defun padding-length (s)
"returns the length of padding required for a given length of string"