anchor.diff:  	    byte-size
   	    byte-position))
   
  +(proclaim '(ftype (or
  +		   (function (null) null)
  +		   (function (cons) t))
  +	    car cdr))
  +
   (proclaim '(ftype (function (list) t)
  -	    car
  -	    cdr
   	    caar
   	    cadr
   	    cdar
  
positive.code: 		   (function (long-float integer) long-float))
  	    scale-float))
  
  
  
negative.code: (proclaim '(ftype (function (symbol) t)
  	    boundp))
  
  (proclaim '(ftype (function (&optional (or string function) &rest list) nil)
  	    break))
  
  (proclaim '(ftype (function (broadcast-stream) list)
  