pseudoscholastic

darcs-hash:20050306124728-2648a-e3eb0f8e6157cd343a9b7b7fe114b5894ceb5cf7.gz

osc.lisp

@@ -17,7 +17,7 @@
 ;;
 ;; requirements
 ;;
-;;  dependent on sbcl for float encoding, other suggestions welcome.
+;;  dependent on sbcl or cmucl for float encoding, other suggestions welcome.
 ;;
 ;; commentary
 ;;
@@ -57,6 +57,8 @@
 ;;    - in-package'd
 ;;  2005-03-01
 ;;    - fixed address string bug
+;;  2005-0305
+;;    - 'declare' scattering and other optimisations
 
 (defpackage :osc
   (:use :cl)
@@ -66,7 +68,7 @@
 
 (in-package :osc)
  
-(declaim (optimize (speed 2) (safety 1)))
+(declaim (optimize (speed 3) (safety 1)))
 
 ;;;;;; ;    ;;    ;     ; ;     ; ; ;         ;
 ;; 
@@ -112,7 +114,6 @@
       (cat lump
            (pad (padding-length (length lump)))))))     
 		  
-
 (defun encode-data (data)
   "encodes data in a format suitable for an OSC message"
   (let ((lump (make-array 0 :adjustable t :fill-pointer t)))
@@ -127,7 +128,6 @@
       lump)))
 
 
-
 ;;;;;; ;    ;;    ;     ; ;     ; ; ;         ;
 ;; 
 ;;    decoding OSC messages
@@ -255,6 +255,7 @@
   "determines the length required for a padded osc string"
   (declare (type simple-string string))
   (let ((n (length string)))
+    (declare (type fixnum n))
     (+ n (padding-length n))))
 
 (defun padding-length (s)