anchor.diff:  		  (make-64-bit-integer high32 low32)))))
   	 (t
   	  ;; Choose optimized routine
  -	  #-(or cmu sbcl scl)
  +	  #-(or cmu sbcl lispworks scl)
   	  (native-to-string char-ptr)
  -	  #+(or cmu sbcl scl)
  +	  #+(or cmu sbcl lispworks scl)
   	  (uffi:convert-from-foreign-string char-ptr)))))))
     
   
  
positive.code: 	((= i len4))
        (declare (fixnum i))
        (setf (aref (the (simple-array (signed-byte 32) (*)) str) i)
  	(uffi:deref-array s :int i))
  	(incf i))
      (do ((i (* 4 len4)))
  	((= i len))
        (declare (fixnum i))
        (setf (aref (the (simple-array (signed-byte 8) (*)) str) i)
  	(uffi:deref-array s :unsigned-char i))
        (incf i))
      str))
  
  
negative.code: 	((= i len))
        (declare (fixnum i))
        (setf (schar str i)
  	(code-char (uffi:deref-array s '(:array :unsigned-char) i)))
        (incf i))
      str))
  
  