+(defun %simple-fun-self (simple-fun)
+ (%simple-fun-self simple-fun))
+
+;;; Extract the function from CLOSURE.
+(defun %closure-fun (closure)
+ (%closure-fun closure))
+
+;;; Return the length of VECTOR. There is no reason to use this in
+;;; ordinary code, 'cause length (the vector foo)) is the same.